boardconn.asp

来自「中国网站网贴吧程序源码（ASP+ACCESS） 实现功能： 多级分类查找,可按多」· ASP 代码 · 共 30 行

<%
function GetIp()
	getclientip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
	If getclientip = "" Then
		getclientip = Request.ServerVariables("REMOTE_ADDR")
	end if
	GetIp = getclientip
end function

on error resume next
Dim Conn,Connstr,Db,StartTime
StartTime=timer()
Db="../../data/data.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'Connstr="Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
Conn.Open Connstr
if err then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2>WWW.I263.NET DATA UPDATE...</font></center>"
response.write "</td></tr></table></center>"
response.end
end if
Function CloseDatabase
Conn.close
Set Conn = NOTHING
End Function
%>