temp & "</td><td>" & rs("szd_t")
temp = temp & "</td></tr>"
rs.MoveNext
Wend

temp = temp & "</table>"
'temp赋值完毕,把它再返回给函数
DisplayRecords = temp
Else
DisplayRecords = "Data Not Available."
End If
'释放内存
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Function

　　

上一页  [1] [2] 

在google里搜索更多提高数据显示效率--缓存探幽

	Web www.51ec.org

上一篇信息学院： 学习ASP有用的代码

下一篇信息学院： 于学习ASP和编程的28个观点