guestbook_list.asp

网上购物系统

<!--#include file=Conn.asp -->
<!--#include file=include/MyRequest.asp -->
<!--#include file="include/Pages.asp"-->
<!--#include file=Sub.asp -->
<%
action=my_request("action",0)
if action="save" then call save()

sub save()
    guest_info_name  =my_request("guest_info_name",0)
    guest_info_email =my_request("guest_info_email",0)
    guest_info_qq    =my_request("guest_info_qq",0)
    guest_info_detail=my_request("guest_info_detail",0)
    CheckCode        =my_request("codeid",0)

    ErrMsg=""
    if guest_info_name="" then
    	FoundErr=True
	    ErrMsg=ErrMsg & "<li>名字不能为空！</li>"
    end if
    if guest_info_email="" then
    	FoundErr=True
	    ErrMsg=ErrMsg & "<li>Email不能为空！</li>"
    end if
    if guest_info_detail="" then
    	FoundErr=True
	    ErrMsg=ErrMsg & "<li>留言内容不能为空！</li>"
    end if
    if CheckCode="" then
    	FoundErr=True
	    ErrMsg=ErrMsg & "<li>验证码不能为空！</li>"
    end if
    if session("CheckCode")="" then
	    FoundErr=True
	    ErrMsg=ErrMsg & "<li>你登录时间过长，请重新返回登录页面进行登录。</li>"
    end if
    if CheckCode<>CStr(session("CheckCode")) then
	    FoundErr=True
	    ErrMsg=ErrMsg & "<li>您输入的确认码和系统产生的不一致，请重新输入。</li>"
    end if
        
    if FoundErr<>True then
        Set rs= Server.CreateObject("ADODB.Recordset")
        sql="select * from guest_info"
        rs.open sql,conn,1,3
        rs.addnew
        rs("guest_info_name")  =guest_info_name
        rs("guest_info_email") =guest_info_email
        rs("guest_info_qq")    =guest_info_qq
        rs("guest_info_detail")=guest_info_detail
        rs("guest_info_time")  =now()
        rs("guest_info_IP")    =Request.ServerVariables("REMOTE_ADDR")
        rs.update
        rs.close
        set rs=nothing
        call ok("恭喜，您已成功添加新留言！","guestbook_List.asp")
    else
        call WriteErrMsg(ErrMsg)
    end if
end sub

Call Header("在线留言","在线留言")
response.write  "<div class=MainDesc>"&_
				"<table width=100% border=0>"&_
				"	<tr><td align=right colspan=2><img src=images/ico_add_guestbook.gif><b><a href=#add>点此发表新留言</a></b></td></tr>"&_
				"	<tr><td class='RightHead'>名称</td><td class='RightHead'>留言信息</td></tr>"
    				set rs=server.createobject("adodb.recordset")
    				sql="select guest_info_name,guest_info_qq,guest_info_email,guest_info_detail,guest_info_ip,guest_info_time,guest_info_backdetail,guest_info_backTime from guest_info where isnull(guest_info_backTime)=false order by guest_info_id desc"
    				rs.open sql,conn,1,1
    				if rs.eof then 
    					response.write  "<tr><td align=center colspan=2>目前暂无留言信息!</td></tr></table>"
    				else
    					rs.PageSize =10 '每页记录条数
        				iCount=rs.RecordCount '记录总数
        				iPageSize=rs.PageSize
        				maxpage=rs.PageCount 
        				page=request("page")  
        				if Not IsNumeric(page) or page="" then
        			    	page=1
        				else
         			    	page=cint(page)
        		    	end if    
        				if page<1 then
        			   	 	page=1
        				elseif  page>maxpage then
        			    	page=maxpage
        				end if   
        				rs.AbsolutePage=Page
        				if page=maxpage then
	    			    	x=iCount-(maxpage-1)*iPageSize
        				else
	    			    	x=iPageSize
        				end if
        				i=1
        
        				set guest_info_name      =rs(0)
        		    	set guest_info_qq        =rs(1)
        		    	set guest_info_email     =rs(2)
        				set guest_info_detail    =rs(3)
        				set guest_info_ip        =rs(4)
        				set guest_info_time      =rs(5)
        				set guest_info_backdetail=rs(6)
        				set guest_info_backTime  =rs(7)
        
        				while not rs.eof and i<=rs.pagesize
response.write  "	<tr>"&_
				"		<td valign=top>"&guest_info_name&"</td>"&_
			 	"		<td valign=top>"&guest_info_detail&"&nbsp;&nbsp;("&guest_info_time&")<br>"
							if guest_info_backdetail<>"" then
response.write  "				<b><font color=#FF6600>管理员回复:</b></font><font color=#FF3300>"&guest_info_backdetail&"</font>"
							end if
response.write 	"		</td>"&_
				"	</tr>"
    					rs.movenext
    					i=i+1
    					wend
response.write "	<tr><td colspan=2>"
    				call PageControl(iCount,maxpage,page)
response.write "	</td></tr></table>"
    				end if
    				rs.close
    				set rs=nothing
response.write 	"<form action=guestbook_List.asp method=post name=form1>"&_
				"<input type=hidden name=action value=save>"&_
				"<table width=100% border=0><tr><td colspan=2 class=RightHead><a name=add>发表您的留言：</a></td></tr>"&_
				"<tr><td>您的名字：</td><td><input type=text name=guest_info_name size=30></td></tr>"&_
				"<tr><td>Email：</td><td><input type=text name=guest_info_email size=30></td></tr>"&_
				"<tr><td>联系QQ：</td><td><input type=text name=guest_info_QQ size=30></td></tr>"&_
				"<tr><td valign=top>您的留言：</td><td><textarea rows=6 name=guest_info_detail cols=50></textarea></td></tr>"&_
				"<tr><td>验证码：</td><td><input name=codeid size=10>&nbsp;<img src=Include/checkcode.asp>请照样输入彩色数字(验证码)</td></tr>"&_
				"<tr><td> </td><td><input type=submit value= 提交留言  ></td></tr>"&_
				"</form>"&_
				"</table>"&_
				"</div>"
Footer
%>