?? guest_save.asp
字號:
?<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'====================================================================
' 請你保留這段說明，這并不會影響你的速度,
' 程序制作：橫云 掌上校園版權所有，請勿破解
' 完成時間： 2007-09-27 主頁地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com QQ:554904632
'====================================================================
%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
username=request("username")
lzhf=request("lzhf")
Ly_str=request("Ly_str")
if username="" then response.redirect "guest_input.asp"
if lzhf="" then response.redirect "guest_input.asp"
if Ly_str="" then response.redirect "guest_input.asp"
if keyWord(Ly_str)>0 then response.redirect "guest_input.asp"
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from guest where IPinfo='"&pno&"' order by ID desc"
rs.open sql,conn,1,2
dim errr
errr=0
if rs.recordcount>0 then
if rs("username")=username and rs("Ly_str")=Ly_str then errr=1
end if
if errr=1 then eer="请不要重复留言，<br/>正在返回留言首页！<br/>"
if errr<>1 then
rs.addnew
if username<>"" then rs("username")=username
if lzhf<>"" then rs("lzhf")=lzhf
if Ly_str<>"" then rs("Ly_str")=Ly_str
rs("IPinfo")=pno
rs("bookdate")=date()
rs.update
end if
rs.close
set rs=Nothing
conn.close
set conn=nothing
%>
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card title="发表留言" ontimer="guest_list.asp">
<timer value="20"/>
<p>
<%if eer="" then%>
发表成功，<br/>
正在返回留言首页！<br/>
<%else%>
<%=eer%>
<%end if%>
----------<br/>
<a href="guest_list.asp">留言首页</a><br/>
<a href="../index.asp">网站首页</a><br/>
</p>
</card>
</wml>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -