index.asp

一个用ASP编制的电子留言板

<%  
    dim IDnumber,TDnumber,Dold,Dnew,sql
Response.Expires=0
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../data/system.mdb") & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
sql="select * from massage"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,3,2
	 IDnumber=0
	 TDnumber=0
	 Dnew=FormatDateTime(now(),2)
	 do until rs.eof  
	  Dold=FormatDateTime(rs("m_time"),2) 
	  if Dold=Dnew then
	  TDnumber=TDnumber+1
	  end if
	  rs.movenext
	  IDnumber=IDnumber+1
	 loop
     Session("Mnumber") =IDnumber 
	 Session("Tnumber") =TDnumber 
	 rs.close
     Conn.close
	 Set rs=Nothing
	 Set Conn=Nothing
	 Response.Redirect("write.asp") 
%>