。创建数据库对象调用统一地创建函数。如下：
Sub OpenConn(ByRef conn)
 Dim strDBPath, strDBConnection
 
 strDBPath = Server.MapPath("database/tax.mdb")
 strDBConnnection = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & strDBPath
 Set conn = Server.CreateObject("ADODB.Connection")
 conn.Open strDBConnnection
End Sub
7、当一个对象不在使用时要释放对象资源，比如objFSO,objRS对象等。采用统一函数调用。函数如下：
Sub CloseObj(ByRef obj)
 If IsObject(obj) Then
  obj.Close
  Set obj = nothing
 End If
End Sub
9、时间全部以字符串的形式保存到数据库中，这样做能够是日期在不同的数据库中都能良好地保存，也方便数据库地迁移。时间用14位字符串保存，日期用8位字符串保存。

上面的观点仅供参考