📄 site_infosave.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 id,siteid,sitename,siteurl,siteabout,IsViewSite,Isfixed,siteshortname,desc
id=encodestr(request.form("id"))
siteid=encodestr(request.form("siteid"))
sitename=encodestr(request.form("sitename"))
siteurl=encodestr(request.form("siteurl"))
siteabout=encodestr(request.form("siteabout"))
IsViewSite=encodestr(request.form("IsViewSite"))
Isfixed=encodestr(request.form("Isfixed"))
siteshortname=encodestr(request.form("siteshortname"))
desc=encodestr(request.form("desc"))

if siteid="" or sitename="" or siteurl="" then
response.write "<card id='card1' title='修改网站'><p align='left'>"
response.write "对不起，各项都必须填写！<br/><br/>----------<br/><a href='site_infoedit.asp?id="&id&"&amp;desc="&desc&"'>[返回重写]</a><br/></p></card></wml>"
response.end
End if
if id="" then
response.redirect "error.asp"
end if
 sql="update sites set siteid=" & sqlstr(siteid) &", "
 sql=sql&"sitename=" & sqlstr(sitename) & ","
 sql=sql&"siteurl=" & sqlstr(siteurl) & ","
 sql=sql&"siteabout=" &sqlstr(siteabout) & ","
 sql=sql&"IsRegpass=" & true & ","
 sql=sql&"IsViewSite=" & IsViewSite & ","
 sql=sql&"Isfixed=" & Isfixed & ","
 sql=sql&"siteshortname=" & sqlstr(siteshortname) 
 sql=sql&" where CStr(id)='" & id &"'"
 conn.execute sql
  response.write "<card id='card1' title='修改网站' ontimer='site_manage.asp?desc="&desc&"'><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 + -