conn.inc

同样是一个在ASP.NET+SQL基础环境下开发的网上BBS系统

<%
Response.Buffer=True
%>

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbs.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open Connstr
%>
<%
Sub ShowChild( child )
sql= "SELECT * FROM details WHERE Num IN (" & child & ")"
dim rootRs
Set rootRs=conn.Execute(sql)
'Response.Write "<ul>"
Do While Not rootRs.Eof
'Response.Write "<li>" & vbCrlf
Response.Write "<tr>"
If DateDiff( "d",rootRs("DateAndTime"),DateAdd("d",-3,Now()))<0 Then
Response.Write "<td><center>Y</center></td>" 
else
Response.Write "<td><center>N</center></td>"

End If
Response.Write "<td><center><a href=showdetail.asp?SerialNum=" & Request("SerialNum") & "&Num=" & rootRs("Num") & "  target=right>" &rootRs("Theme") & "</a></center></td>" 
Response.Write "<td><font color=red><center><b>" & rootRs("UID") & "</b></center></font></td>" 
Response.Write "<td><em><font color=vbwhite><center>" & rootRs("DateAndTime") & "</center></font></em></td>"
Response.Write "<td><font color=vbpurple><center>" & rootRs("VisitTimes") & "</center></font></td>"
Response.Write "<td><font color=vbgray><center>" & rootRs("Length") & "字</center></font></td>" 
'Response.Write "</li>" & vbCrlf 
Response.Write "</tr>"
If rootRs("child")<>""  And rootRs("child")<>"0" Then
ShowChild rootRs("child")
End If
rootRs.MoveNext
Loop
rootRs.close
Set rootRs=Nothing
Response.Write "</ul>"
End Sub
%>
<%
Sub Check(SerialNum)

sql="DELETE FROM current_user WHERE (LastLogon  BETWEEN '00-1-1' AND '" & DateAdd("n",-5,now()) & "')"

conn.Execute(sql)
sql="DELETE FROM  new_essay WHERE (IssueTime  BETWEEN '00-1-1' AND '" & DateAdd("n",-5,now()) & "')"
conn.Execute(sql)

sql="SELECT * FROM current_user WHERE SerialNum='" & SerialNum & "' AND IpAddress='" & Request("REMOTE_ADDR") & "'"


'response.write Request.servervariables("REMOTE_HOST") & "<br>"

Set CK_UserRs=conn.Execute(sql)
If CK_UserRs.Eof OR CK_UserRs.Bof Then
Response.Write "你现在无权访问！<br>"
Response.Write "可能有以下原因：<br>"
Response.Write "1.您是在五分钟之前到过本论坛的，这之间您曾关闭了浏览器，请重新登陆。<br>"
Response.Write "2.您已经在另外的IP地址登陆到了本论坛，本论坛只许一个用户同时在一处登陆！<br>"
Response.Write "3.您是拨号上网，刚才断线了，现在您的机器的动态IP地址已经发生了变化。不要着急，系统会在五分钟后自动清除先前的记录。请稍后重新登陆。<br>"
Response.Write "4.您企图以他人的名义进入论坛，请您使用自己的帐号。本论坛随时可以申请帐号。谢谢!"
Response.End
Else
sql="UPDATE current_user SET LastLogon= '" & Now() & "' WHERE  SerialNum='" & SerialNum & "' AND IpAddress='" & Request("REMOTE_ADDR") & "'"
conn.Execute sql
End If
End Sub
%>
<%
Function DealInput(exp1)
dim exp2
exp2=Replace(exp1,"<","&lt;")
exp2=Replace(exp2,">","&gt;")
exp2=Replace(exp2,"'","''")
DealInput=exp2
End Function
%>