📄 guest_save.asp
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%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 + -