%
If request.QueryString("action")="add" then
ucode = Trim(request.form("ucode"))
If ucode <> Trim(Session("Code")) then
Call Msg("請輸入正確的驗證碼!",1)
End if
t1 = Replace_Text(request.form("t1"))
t2 = Replace_Text(request.form("t2"))
t3 = Replace_Text(request.form("t3"))
t4 = Replace_Text(request.form("t4"))
t8 = Replace_Text(request.form("t8"))
ip = GetIP
if t1="" or t2="" or t3="" or t4="" or t8="" then
Call Msg("必填內容不能為空!",1)
end if
if ip="" then
Call Msg("非法提交!",1)
end if
SQL = "Select * from bbs order by id"
Call Rs_Open(Rs,SQL,Conn,3,2)
Rs.Addnew
Rs("t1") = t1
Rs("t2") = t2
Rs("t3") = t3
Rs("t4") = t4
Rs("t8") = t8
Rs("ip") = ip
Rs.update
Call Rs_end(Rs)
Call Msg ("咨詢成功,我們會盡快回復您!$$guestbook.asp",4)
Else
%>
|
注:以下只顯示我們給予回復的咨詢,我們會對您提交的資料保密!以下回復只代表上海零距離的觀點,如有錯誤,還請不吝賜教! 我們將在24小時內給您解答!立即咨詢 |
<%
SQL = "Select * from bbs where huifu <> ''order by id desc"
Call Rs_Open(Rs,SQL,Conn,1,1)
If Rs.eof or Rs.bof then
response.write "暫無新聞!"
Else
Call page_code(5)
For i = 1 to rs.pagesize
if Rs.eof then exit for
%>
<%=rs("id")%> |
<%=rs("t3")%> |
留言時間:<%=rs("adddate")%> |
主題: |
<%=rs("t1")%> |
內容: |
<%=rs("t8")%>
|
|
|
<%
Rs.movenext
next
End if
%>
<% Call Splitpage(Rs.Recordcount,Rs.Pagesize,6,1) %> |
|
|
|
<% end if %>
玩弄H奶水人妻无码A∨在线_99国内揄拍国内精品人妻免费_美国一级黄片_午夜福利欧美