📄 msg_save.asp

📁 7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。

💻 ASP

字号:

<%response.buffer=true%>
<%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="../data/conn.asp"-->
<!--#include file="loginoff.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<%
dim msgid,msgtitle,msgbody,IsViewMsg,id
id=request.form("id")
msgtitle=request.form("msgtitle")
msgbody=request.form("msgbody")
IsViewMsg=request.form("IsViewMsg")
if msgtitle="" or msgbody="" then
response.write "<card id='card1' title='修改网站'><p align='left'>"
response.write "标题及内容不得为空！<br/><br/>----------<br/><a href='msg_edit.asp?id="&id&">[返回重写]</a><br/></p></card></wml>"
response.end
End if
if id="" then
response.redirect "error.asp"
end if
 sql="update message set msgtitle=" & sqlstr(msgtitle) &", "
 sql=sql&"msgbody=" & sqlstr(msgbody) & ","
 sql=sql&"IsViewMsg=" & IsViewMsg 
 sql=sql&" where CStr(msgid)='" & id &"'"
 conn.execute sql
  response.write "<card id='card1' title='修改成功' ontimer='../message.asp'><timer value='5'/><p>"
  response.write"修改成功！！正在返回...<br/><br/><a href='site_manage.asp?desc="&desc&"'>[管理中心]</a><br/>"
  response.write mywaphost &"<br/>" & mywapcatchword
  response.write "</p></card></wml>"

conn.close
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -