📄 post1.asp

📁 采用三级目录

💻 ASP

字号:

<!--#include file="conn.asp"-->
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<%
  set rscon=server.createobject("adodb.recordset")
  sql="select * from config where id=1"
  rscon.open sql,connconfig,1,1
%> 
<%
if request("shouji")=rscon("masterphone") and request("pass")=rscon("pass") then
%>
<%
note=encodestr(request("note"))
lid=encodestr(request("lid"))
if note="" then response.redirect "../err.asp?id=1"

set rs=server.createobject("adodb.recordset")
sql="select * from liu"
rs.open sql,conn,1,3
rs.addnew
rs("content")=note
rs("lid")=lid
rs.update
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from book where id="&lid
rs.open sql,conn,1,3
rs("hui")="1"
rs.update
rs.close
set conn=nothing
%>
<?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"> 
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="回复成功" id="test" ontimer="show.asp?id=<%=lid%>&amp;shouji=<%=request("shouji")%>&amp;pass=<%=request("pass")%>">
		<timer value="3"/>
		<p align='center'>祝贺你，回复成功!<br/>3秒钟后自动返回</p>
<p align='center'><a href="show.asp?id=<%=lid%>&amp;shouji=<%=request("shouji")%>&amp;pass=<%=request("pass")%>">[返回主题]</a><br/><a href="index.asp">[留言首页]</a></p>
</card>
</wml>
<% else
response.redirect "../err.asp?id=2"
end if %>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -