<%
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>您輸入的確認碼和系統(tǒng)產生的不一致，請重新輸入。</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>點此發(fā)表新留言</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 '每頁記錄條數(shù)
        			iCount=rs.RecordCount '記錄總數(shù)
        			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>發(fā)表您的留言：</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>聯(lián)系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>請照樣輸入彩色數(shù)字(驗證碼)</td></tr>"
response.write "<tr><td> </td><td><input type=submit value= 提交留言  ></td></tr>"
response.write "</form>"
call down()
%>