📄 site_infoedit.asp

📁 7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。
💻 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.2//EN" "http://www.wapforum.org/DTD/wml12.dtd">
<!--#include file="../data/conn.asp"-->
<!--#include file="loginoff.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="must-revalidate" forua="true"/>
<meta http-equiv="Cache-Control" content="no-cache" forua="true"/>
<meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
<meta http-equiv="Expires" content="0" forua="true"/>
<meta http-equiv="Pragma" content="no-cache" forua="true"/>
<meta http-equiv="Content-Type" content="text/vnd.wap.wml; charset=utf-8"/>
</head>
<%
Server.ScriptTimeout=999
dim id
id=request("id")
if IsEmpty(id) then
response.redirect "site_manage.asp"
end if	
  if purview="system" then
  strtmp=" true "
  else 
  strtmp=" adminid='" & request.querystring("main") &"'"
  end if
sql="update sites set IsRegpass=true Where id=" & id &" and "& strtmp
conn.execute sql
set objgbrs=Server.CreateObject("ADODB.Recordset")
sql="select * from sites Where id=" & id &" and " & strtmp
objgbrs.open sql,conn,1,1
dim siteshortnametmp
siteshortnametmp=objgbrs("siteshortname")
if objgbrs("siteshortname") ="" then
siteshortnametmp=left(objgbrs("sitename"),2)
end if

%>
<card  title="修改网站">
<p>
<a href="<%=objgbrs("siteurl")%>"><%=objgbrs("sitename")%></a><br/>
ID：<%=objgbrs("id")%><br/>
用户名：<input name="newsiteid<%=minute(time)%><%=second(time)%>" maxlength="10" value="<%=objgbrs("siteid")%>"/><br/>
站名：<input name="newsitename<%=minute(time)%><%=second(time)%>" maxlength="10" value="<%=objgbrs("sitename")%>"/><br/>
网址：<input name="newurl<%=minute(time)%><%=second(time)%>" maxlength="100" value="<%=objgbrs("siteurl")%>"/><br/>
简介：<input name="newsiteabout<%=minute(time)%><%=second(time)%>" maxlength="200" value="<%=objgbrs("siteabout")%>"/><br/>
总进站: <%=objgbrs("fromall")%><br/>
总出站: <%=objgbrs("toall")%><br/>
总赢取: <%=objgbrs("fromall")-objgbrs("toall")%><br/>
今日进站: <%=objgbrs("fromjin")%><br/>
今日出站: <%=objgbrs("tojin")%><br/>
昨日进站: <%=objgbrs("fromzuo")%><br/>
昨日出站: <%=objgbrs("tozuo")%><br/>
最后进站: <%=(month(objgbrs("fromtime"))& "-"& day(objgbrs("fromtime"))& " "& hour(objgbrs("fromtime"))& ":"& minute(objgbrs("fromtime")))%><br/>
当前状态：
<select name="newIsViewSite<%=minute(time)%><%=second(time)%>" value="<%=Abs(CInt(objgbrs("IsViewSite")))%>">
<option value="1">正常显示</option>
<option value="0">隐藏显示</option>
</select><br/>
固链名：<input name="newsiteshortname<%=minute(time)%><%=second(time)%>" maxlength="4" value="<%=siteshortnametmp%>"/><br/>
首页显示：
<select name="newIsfixed<%=minute(time)%><%=second(time)%>" value="<%=Abs(CInt(objgbrs("Isfixed")))%>">
<option value="1">首页固链</option>
<option value="0">普通友链</option>
</select><br/>
<anchor title="确定更改">[确定更改]
<go href="site_infosave.asp" method="post" accept-charset="utf-8">
<postfield name="id" value="<%=id%>"/>
<postfield name="desc" value="<%=request.querystring("desc")%>"/>
<postfield name="siteid" value="$(newsiteid<%=minute(time)%><%=second(time)%>)"/>
<postfield name="sitename" value="$(newsitename<%=minute(time)%><%=second(time)%>)"/>
<postfield name="siteurl" value="$(newurl<%=minute(time)%><%=second(time)%>)"/>
<postfield name="siteabout" value="$(newsiteabout<%=minute(time)%><%=second(time)%>)"/>
<postfield name="IsViewSite" value="$(newIsViewSite<%=minute(time)%><%=second(time)%>)"/>
<postfield name="Isfixed" value="$(newIsfixed<%=minute(time)%><%=second(time)%>)"/>
<postfield name="siteshortname" value="$(newsiteshortname<%=minute(time)%><%=second(time)%>)"/>
</go></anchor><br/>
连接地址：<%=(mywaphost & "/you/re.asp?id=" & objgbrs("siteid"))%>
<br/>--------<br/>
<a href="site_delcomfirm.asp?id=<%=id%>&amp;desc=<%=request.querystring("desc")%>">[删除此站]</a>
<br/>
<anchor>[返回上页]<prev/></anchor>
<br/>
<a href="site_manage.asp">[管理中心]</a><br/>
<a href="/index.asp">[<%=mywapname%>]</a><br/>
<a href="loginexit.asp">[安全退出]</a><br/>
<%=mywaphost%><br/><%=mywapcatchword%>
</p>
</card>
</wml>

<%
objgbrs.close
set objgbrs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -