data_config.asp

. 缓存处理技术

<%@ codepage=936 %>
<%
  Option Explicit
  Response.Buffer=True
  Server.ScriptTimeOut=60
  Session.TimeOut=30


  Dim IsSqlDataBase
  IsSqlDataBase = 0


  Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName


  SqlLocalName = "(local)"

  SqlDatabaseName = "cnbbr"

  SqlUsername = "sa"

  SqlPassword = ""



  Dim Db
  Db="data/#[e-mail]"

  Dim SqlDiff,SqlNowString
  if IsSqlDatabase=1 then
     SqlDiff=" "
     SqlNowString = "GetDate()"
  else
     SqlDiff=" * "
     SqlNowString = "now()"
  end if


  Dim ProcessStartTime,ProcessEndTime
  ProcessStartTime=Timer()
%>