摘要:
一 隐藏执行时间 Sub s__HideTimeOver() Dim tTimeOver tTimeOver = FormatNumber((Timer() - tStartTime) * 1000, 3, true) response.Write(vbCrLf & "") End Sub二 打开数据库连接 function f__OpenConn() Dim connstr connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" connstr = connstr & Serv
阅读全文