警告:本网站含有烟草内容,谢绝十八岁以下人士进入!



<% dim dbkillSql,killSqlconn,connkillSql,Sqlin_IP Sqlin_IP=Request.ServerVariables("REMOTE_ADDR") dbkillSql="SqlIn.mdb" 'On Error Resume Next Set killSqlconn = Server.CreateObject("ADODB.Connection") connkillSql="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbkillSql) killSqlconn.Open connkillSql If Err Then err.Clear Set killSqlconn = Nothing Response.Write "数据库连接出错,请检查连接字串。" Response.End End If %>