Sub ShowPage(objRS,no)
objRSAbsolutePosition=no
ResponseWrite ("<tr>")
For J=0 To objRSFieldsCount-1
Data="<td >" & objRSFields(j)name & "</td>"
If objRSFields(j)name = "" then
Data = Data & "<td><img src=""" & objRSFields(j)value & """></td>"
Else
Data = Data & "<td>" & objRSFields(j)value & "</td>"
End If
ResponseWrite Data
Next
ResponseWrite("</tr>")
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)