admin_setting.asp

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

<%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"-->
<!--#include file=../md5/md5.asp-->
<wml>
<%
Server.ScriptTimeout=999
dim admin,adminpass,action
admin=request.querystring("admin")
adminname=request.form("adminname")
adminpass=md5(request.form("adminpass"))
mywapqq=request.form("mywapqq")
mywapname=request.form("mywapname")
mywaphost=request.form("mywaphost")
mywaphome=request.form("mywaphome")
mywapcatchword=request.form("mywapcatchword")
myunionname=request.form("myunionname")
myuniontopsize=request.form("myuniontopsize")
myunionpagesize=request.form("myunionpagesize")
myunionfrom=request.form("myunionfrom")
myunionisviewsite=request.form("myunionisviewsite")
myunionautohideday=request.form("myunionautohideday")
myunionautodelday=request.form("myunionautodelday")
action=request.form("action")
set objgbrs=Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from admin "'where adminname='"&session("admin")&"'"
objgbrs.open sql,conn,1,2
if action="" or len(adminname)<3 or len(adminpass)<3 then
%>
<card  title="修改网站">
<p>
=网站设置=
<br/>管理员用户名:
<input title="用户名" name="newadminname<%=minute(time)%><%=second(time)%>" maxlength="10" value="<%=objgbrs("adminname")%>"/>
<br/>管理员密码:<input title="密码" name="newadminpass<%=minute(time)%><%=second(time)%>" maxlength="16" value=""/>
<br/>管理员QQ:<input title="QQ号" name="newmywapqq<%=minute(time)%><%=second(time)%>" maxlength="16" value="<%=objgbrs("mywapqq")%>"/>
<br/>主站名：<input title="主站名" name="newmywapname<%=minute(time)%><%=second(time)%>" maxlength="20" value="<%=objgbrs("mywapname")%>"/>
<br/>主站域名：<input title="主站域名" name="newmywaphost<%=minute(time)%><%=second(time)%>" maxlength="26" value="<%=objgbrs("mywaphost")%>"/>
<br/>友链标题：<input title="友链标题" name="newmyunionname<%=minute(time)%><%=second(time)%>" maxlength="20" value="<%=objgbrs("myunionname")%>"/>
<br/>友链宣传语：<input title="友链宣传语" name="newmywapcatchword<%=minute(time)%><%=second(time)%>" maxlength="100" value="<%=objgbrs("mywapcatchword")%>"/>
<br/>友链排行显示数: <input title="友链排行显示数" name="newmyuniontopsize<%=minute(time)%><%=second(time)%>" maxlength="5" value="<%=objgbrs("myuniontopsize")%>"/>
<br/>友链分页显示数: <input title="友链分页显示数"  name="newmyunionpagesize<%=minute(time)%><%=second(time)%>" maxlength="2" value="<%=objgbrs("myunionpagesize")%>"/>

<br/>友链回访地址: <input title="友链回访地址"  name="newmyunionfrom<%=minute(time)%><%=second(time)%>" maxlength="50" value="<%=objgbrs("myunionfrom")%>"/>

<br/>通过审核方式:<select name="newmyunionisviewsite<%=minute(time)%><%=second(time)%>" value="<%=Abs(CInt(objgbrs("myunionisviewsite")))%>">
<option value="1">无需审核</option>
<option value="0">手动审核</option>
</select>
<br/>友链超过: <input title="隐藏条件(天)"  name="newmyunionautohideday<%=minute(time)%><%=second(time)%>" size="3" maxlength="3" value="<%=objgbrs("myunionautohideday")%>"/>天没链入则隐藏
<br/>友链超过: <input title="自删条件(天)"  name="newmyunionautodelday<%=minute(time)%><%=second(time)%>" size="3"  maxlength="3" value="<%=objgbrs("myunionautodelday")%>"/>天没链入则自删
<br/>
<anchor title="确定">[确定提交]
<go href="<%=request.servervariables("script_name")%>" method="post">
<postfield name="adminname" value="$(newadminname<%=minute(time)%><%=second(time)%>)"/>
<postfield name="adminpass" value="$(newadminpass<%=minute(time)%><%=second(time)%>)"/>
<postfield name="mywaphost" value="$(newmywaphost<%=minute(time)%><%=second(time)%>)"/>
<postfield name="mywapqq" value="$(newmywapqq<%=minute(time)%><%=second(time)%>)"/>
<postfield name="mywapname" value="$(newmywapname<%=minute(time)%><%=second(time)%>)"/>
<postfield name="mywaphome" value="http://1semm.net"/>
<postfield name="myunionname" value="$(newmyunionname<%=minute(time)%><%=second(time)%>)"/>
<postfield name="mywapcatchword" value="$(newmywapcatchword<%=minute(time)%><%=second(time)%>)"/>
<postfield name="myuniontopsize" value="$(newmyuniontopsize<%=minute(time)%><%=second(time)%>)"/>
<postfield name="myunionpagesize" value="$(newmyunionpagesize<%=minute(time)%><%=second(time)%>)"/>
<postfield name="myunionfrom" value="$(newmyunionfrom<%=minute(time)%><%=second(time)%>)"/>
<postfield name="myunionisviewsite" value="$(newmyunionisviewsite<%=minute(time)%><%=second(time)%>)"/>
<postfield name="myunionautohideday" value="$(newmyunionautohideday<%=minute(time)%><%=second(time)%>)"/>
<postfield name="myunionautodelday" value="$(newmyunionautodelday<%=minute(time)%><%=second(time)%>)"/>

<postfield name="action" value="edit"/>
</go></anchor><br/>
注意：提交前一定要重新输入管理员密码。
<br/>-------<br/><anchor>[返回上页]<prev/></anchor><br/><a href='site_manage.asp'>[管理中心]</a><br/><a href='<%=objgbrs("mywaphost")%>'>[<%=objgbrs("mywapname")%>]</a><br/><a href='loginexit.asp'>[安全退出]</a><br/>
<%=objgbrs("mywaphost")%><br/><%=objgbrs("mywapcatchword")%>
</p>
</card>
</wml>

<%
end if
if action="edit" then
'sql="update admin set adminname='" & adminname &"')" &"', adminpass='"& adminpass&"',mywapqq='"&mywapqq&"', mywapname='"&mywapname&"',mywaphost='"&mywaphost&"',mywaphome='"&mywaphome&"',myunionname='"&myunionname&"',myuniontopsize="&myuniontopsize&",myunionpagesize="&myuionpagesize&",myunionfrom='"&myunionfrom&"' "
'conn.execute sql
if myuniontopsize="" then
myuniontopsize=0
else 
myuniontopsize=CLng(myuniontopsize)
end if
if myunionpagesize="" then
myunionpagesize=0
else 
myunionpagesize=CLng(myunionpagesize)
end if
 objgbrs("adminname")=adminname
 objgbrs("adminpass")=adminpass
 objgbrs("mywapqq")=mywapqq
 objgbrs("mywapname")=mywapname
 objgbrs("mywaphost")=mywaphost
 objgbrs("mywaphome")=mywaphome
 objgbrs("mywapcatchword")=mywapcatchword
 objgbrs("myunionname")=myunionname
 objgbrs("myuniontopsize")=myuniontopsize
 objgbrs("myunionpagesize")=myunionpagesize
 objgbrs("myunionfrom")=myunionfrom
 objgbrs("myunionisviewsite")=myunionisviewsite
 objgbrs("myunionautohideday")=myunionautohideday
 objgbrs("myunionautodelday")=myunionautodelday
 objgbrs.update
%>
<card title="编辑成功" ontimer='site_manage.asp?desc=<%=request.querystring("desc")%>'><timer value='20'/>
<p>
设置成功啦!!<br/>
正在返回…<br/>
-------<br/>
<anchor>[返回上页]<prev/></anchor><br/>
<a href='site_manage.asp'>[管理中心]</a><br/>
<a href='<%=objgbrs("mywaphost")%>'>[<%=objgbrs("mywapname")%>]</a><br/>
<a href='loginexit.asp'>[安全退出]</a><br/>
<%=objgbrs("mywaphost")%><br/><%=objgbrs("mywapcatchword")%>
</p>
</card>
</wml>
<%
end if
objgbrs.close
set objgbrs=nothing
conn.close
set conn=nothing
%>