| |
next
tr1="<tr>"&tr1&"</tr>"
for ri=0 to iTblRow
for ci=0 to iTblCol
td=td&"<td width='"&split(TbTil(ci),"|")(1)&"'>"&tbRs(ci,ri)&"</td>"
next
tr=tr&"<tr>"&td&"</tr>"
td=null
next
TbTil=null
tbRs=null
response.Write(tbStr&tr1&tr&"<tr><td colspan='"&iTblCol+1&"'>"&pageNav()&"</td></tr></tbody></table>")
tbStr=null
tr1=null
tr=null
End Function
'打印sql語句，以便語句有錯(cuò)誤時(shí)檢查
Public Sub prnSql()
response.Write(strsql)
End Sub
'-------------------------------------------------------------------------
'容錯(cuò)函數(shù)
'-------------------------------------------------------------------------
Private Function errMsg(errMsg)
If Err.number<>0 Then
'出現(xiàn)問題可利用此處代碼打印出描述信息，方便調(diào)試�？勺⑨尩�
response.Write(Cstr(Err.description)&"<br>")
Err.Clear
Response.Write "<font color='#FF0000'>"&errMsg&"出錯(cuò)</font>" '注釋
Response.End()
End If
End Function
'-------------------------------------------------------------------------
'容錯(cuò)函數(shù)結(jié)束
'-------------------------------------------------------------------------
End Class
%> 本新聞共 5頁,當(dāng)前在第 5頁 1 2 3 4 5 |
|
|
| 【收藏】【打印】【進(jìn)入論壇】 |
|
|
|
|
| |
|
|
|
