guest_save.asp

admin/admin.asp是WAP的后台管理登陆页面

<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-15   HTTP://www.wapfs.net
'=================================================
%>
<!--#INCLUDE FILE="conn.asp"-->
<% 	if request("types")="addly" then
	set rs=server.createobject("adodb.recordset")
	sql="select * from guest" 
	rs.open sql,conn,1,3
	rs.addnew
	rs("UserName")=request("UserName")
	rs("lzhf")=request("lzhf")
	rs("Ly_str")=request("Ly_str")
        rs("bookdate")=date()
        rs("IPinfo")=request.serverVariables("HTTP_X_UP_CALLING_LINE_ID")
	rs.update
        rs.close
	set rs=nothing
	conn.close
	set conn=nothing
        response.redirect "guest_list.asp"
        end if
%>
<% 
if request("types")="huifu" then
	set rs=server.createobject("adodb.recordset")
	sql="select * from guest where id="&request("id")
	rs.open sql,conn,1,3
	rs("Content")=request("Content")
	rs("reply")=request("reply")
        rs("cstr")=date()
	rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
        response.redirect "guest_list.asp?page="&session("page")&""
        end if
%>
<% if request("types")="del" then
        sql="delete from guest where id="&request("id")
        conn.execute sql
        response.redirect "guest_list.asp?page="&session("page")-1&""
   end if
%>