guest.asp

FLASH制作的留言本

<!--#include file="adovbs.inc" -->
<% 
   passwords = "dayuanlang830115"
   
   charu = request("charu")
    
   set conn = server.createobject("ADODB.connection")
   conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db1.mdb")
   set rs = server.createobject("ADODB.recordset")
   sql = "select * from guest order by sj DESC"
   
rs.open sql,conn,adopenstatic,adlockoptimistic


Select Case charu
           Case "true" 
				sub1 = request("sub")
   				name = request("name")
   				text = request("text")
   				email = request("email")
  				QQ = request("qq")
   				xingbie = request("xinbbie")   
      			rs.addnew
      			rs("name") = name
      			rs("sub") = sub1
      			rs("text") = text
      			rs("email") = email
      			rs("QQ") = QQ
      			rs("xingbie") = xingbie
      			rs.update
           Case "huifu"  
		        if request("password") = passwords then
					hf = "'" & request("huifu") & "'"
					no = clng(request("no"))
					sql2 = "UPDATE guest SET hf = " & hf & ", hfsj = now() WHERE [NO]=" & no
					conn.execute(sql2)
				else
					response.write "&mima=cuowu"
				end if
           Case "shanchu"  
		   		if request("password") = passwords then
 					no = clng(request("no"))
					sql3 = "delete * from guest where [NO] = " & no
					conn.execute(sql3)
				else
					response.write "&mima=cuowu"
				end if
           Case Else    
		   
				set rs2 = conn.execute("select count(*) from guest")
   				response.write "&total=" & rs2("expr1000")
				
   				page = clng(request("page"))   
  				rs.pagesize = 8
				if page > rs.pagecount then page = rs.pagecount
   				if page < 1 then page = 1
   				rs.absolutepage = page
				for i = 1 to 8
       				response.write "&name" & i & "=" & rs("name")
       				response.write "&sub" & i & "=" & rs("sub")
       				response.write "&text" & i & "=" & rs("text")
       				response.write "&email" & i & "=" & rs("email")
       				response.write "&qq" & i & "=" & rs("qq")
       				response.write "&xinbbie" & i & "=" & rs("xingbie")
       				response.write "&sj" & i & "=" & rs("sj")
       				response.write "&hfsj" & i & "=" & rs("hfsj")
       				response.write "&hf" & i & "=" & rs("hf")
       				response.write "&no" & i & "=" & rs("no")
    				rs.movenext
    				if rs.eof then exit for
      
   				next
   				response.write "&page=" & page				
End Select
	response.write "&eof=true&"

   response.write "&charu=false"
   
rs.close
set rs = nothing
conn.close
set conn = nothing
%>