11.asp

功能完备的留言板 公告管理 用户管理 留言管理 分页 功能的实现 Access数据库

<%
if request("reply")="提交" then
dim guestreply
dim guestdate
guestdate=request("time")
guestreply=request("guestreply")
call saveuserinfo
end if
response.redirect "admin.asp" 

sub saveuserinfo
	
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("book.asp")

	set comm=Server.CreateObject("adodb.command")
	comm.ActiveConnection=conn
	comm.CommandText="delete from guest where guestdate='"&guestdate&"'"  
	set rs=comm.Execute
	
	
	conn.close
	set comm=nothing
	set conn =nothing
end sub

%>
<% 
	if request("action")=admin then
    	dim guestdate
    	guestdate=request("time")
    	call deleteuserinfo
		response.redirect "admin.asp" 
	else
    	response.redirect "admin.asp"
    end if

sub deleteuserinfo
	
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("book.asp")

	set comm=Server.CreateObject("adodb.command")
	comm.ActiveConnection=conn
	comm.CommandText="delete from guest where guestdate='" & guestdate & "'"
	set rs=Comm.Execute
	
	conn.close
	set comm=nothing
	set conn =nothing
end sub
  
   
 %>