guestbook_list.asp

多多网店系统v3.01 完全免费可用版-功能简介: 支持多模板皮肤色切换[8套] 支持按商品特性[推荐商品/特价商品/新品分类]浏览 支持按商品类别浏览 支持单件商品用支付宝交易按钮直接支付订

<%
dim dbpath
dbpath=""
%>
<!--#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()
end if

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 up("在线留言","在线留言","在线留言")
response.write "<tr><td align=Center colspan=2><img src=images/ico_add_guestbook.gif><b><a href=#add>点此发表新留言</a></b></td></tr>"
response.write "<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 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>"
    			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>"
response.write "	<td valign=top>"&guest_info_name&"</td>"
response.write "	<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>"
response.write "</tr>"
    				rs.movenext
    				i=i+1
    				wend
    				response.write "<tr><td colspan=2>"
    				call PageControl(iCount,maxpage,page)
    				response.write "</td></tr>"
    			end if
    			rs.close
    			set rs=nothing
    			
response.write "<form action=guestbook_List.asp method=post name=form1>"
response.write "<input type=hidden name=action value=save>"
response.write "<tr><td colspan=2 class=RightHead><a name=add>发表您的留言：</a></td></tr>"
response.write "<tr><td>您的名字：</td><td><input type=text name=guest_info_name size=30></td></tr>"
response.write "<tr><td>Email：</td><td><input type=text name=guest_info_email size=30></td></tr>"
response.write "<tr><td>联系QQ：</td><td><input type=text name=guest_info_QQ size=30></td></tr>"
response.write "<tr><td valign=top>您的留言：</td><td><textarea rows=10 name=guest_info_detail cols=50></textarea></td></tr>"
response.write "<tr><td>验证码：</td><td><input name=codeid size=10>&nbsp;<img src=Include/checkcode.asp>请照样输入彩色数字(验证码)</td></tr>"
response.write "<tr><td> </td><td><input type=submit value= 提交留言  ></td></tr>"
response.write "</form>"
call down()
%>