conn.asp

来自「程序名称：酷虎网校友录 V1.0 （商业版）*(修改版） * 本软体为商业软件」· ASP 代码 · 共 33 行

<%
dim db,conn,connstr
db="khoo_site_data.mdb" '数据库路径，请真实填写
set Conn = server.CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath(db)
conn.Open connstr
IF Session("User")<>"" Then
SQL="Select 姓名,最后访问时间  From 注册信息 Where 姓名='" & Session("User") &"'"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Conn,3,2
IF Not RS.EOF Then
RS("最后访问时间")=Now()
RS.Update
End IF

End IF
SQL="Select * From 校友录基本信息"
Set BasicRS=Server.CreateObject("ADODB.Recordset")
BasicRS.Open SQL,Conn,1,1
IF BasicRS.EOF Then
'Response.End
End IF

WebSiteName=BasicRS("网站名称")
WebSiteURL=BasicRS("网站地址")
CMBName=BasicRS("校友录名称")
CMBURL=BasicRS("校友录地址")
BigLOGO=BasicRS("大LOGO")
SmallLOGO=BasicRS("小LOGO")
MaxperPage=10 '定义每一页显示的数据记录的常量 
'Curl="http://khoo.kom.cn"
'CName="酷虎网KhooSite"
%>