conn.asp

来自「flash软件包 可以实现日记本功能 编译通过 可以使用」· ASP 代码 · 共 16 行

<%
error_ip = Request.ServerVariables("REMOTE_ADDR")
if error_ip = "202.103.229.174" then
  Response.Write("本站不欢迎你的到来。")
  Response.End()
end if
'数据库链接字符串
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../asp/###！￥%diary.asp")
conn.open connstr

Function CloseDataConn
  conn.close
  set conn = Nothing
end Function
%>