conn.asp

这是一个校友录管理系统

<%
dim db,conn,connstr
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=SQLOLEDB;Data Source=(local);Initial Catalog=xyl;User ID=sa;Password=yanyan;" 
conn.Open connstr
IF Session("User")<>"" Then
SQL="Select username,lastvst  From [user] Where username='" & Session("User") &"'"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Conn,3,2
IF Not RS.EOF Then
RS("lastvst")=Now()
RS.Update
End IF

End IF
SQL="Select * From school"
Set BasicRS=Server.CreateObject("ADODB.Recordset")
BasicRS.Open SQL,Conn,1,1
IF BasicRS.EOF Then
'Response.End
End IF

WebSiteName=BasicRS("httpname")
WebSiteURL=BasicRS("httpaddress")
CMBName=BasicRS("xylname")
CMBURL=BasicRS("xylhttp")
BigLOGO=BasicRS("bigLogo")
SmallLOGO=BasicRS("smallLogo")
MaxperPage=10 '定义每一页显示的数据记录的常量 

%>