site_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"-->
<wml>
<%
Server.ScriptTimeout=999
dim admin,action
admin=request.querystring("admin")

action=request.querystring("action")
set objgbrs=Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from admin"
objgbrs.open sql,conn,1,2
if action="" then
%>
<card  title="友链设置">
<p>
<a href='<%=request.servervariables("Script_name")%>?action=regpassall'>全部通过审核</a><br/>
-------<br/>
<%
Server.ScriptTimeout=999
  set objrs=Server.CreateObject("ADODB.Recordset")
  conn.CommandTimeOut = 999
  ssql="select top 100 id,sitename from sites where IsRegpass=false order by id desc "
  objrs.open ssql,conn,1,1
if objrs.eof then
   Response.write ""
Else
For i=1 to 20
  Response.write ""& "<a href='../turnto.asp?id=" & objrs("id") & "'>" & objrs("sitename") &"</a>"
    Response.write " <small>　<a href='site_setting.asp?action=regpass&amp;id=" & objrs("id") &  "&amp;desc=" & desctmp & "'>通过</a></small> " 
  Response.write " <small>　<a href='site_infoedit.asp?id=" & objrs("id") &  "&amp;desc=" & desctmp & "'>编辑</a></small> <br/>" 
    objrs.Movenext
  if objrs.EOF then Exit for
    Next
  End if
  response.write "当前共有"&objrs.RecordCount&"个站点未通过审核。<br/>"
objrs.close
Set objrs= Nothing
%>
-------<br/><anchor>[返回上页]<prev/></anchor><br/><a href='site_manage.asp'>[管理中心]</a><br/><a href='<%=mywaphome%>'>[<%=mywapname%>]</a><br/><a href='loginexit.asp'>[安全退出]</a><br/>
<%=mywaphost%><br/><%=mywapcatchword%>
</p>
</card>
</wml>

<%
response.end
end if
dim id
id = request.querystring("id")
if action="regpassall" or action="regpass" then
sql="update sites set IsRegpass = true,IsViewSite=true "
if id <> "" then 
sql="update sites set IsRegpass = true,IsViewSite=true where id="&id
end if
conn.execute (sql)
%>
<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='<%=mywaphome%>'>[<%=mywapname%>]</a><br/>
<a href='loginexit.asp'>[安全退出]</a><br/>
<%=mywaphost%><br/><%=mywapcatchword%>
</p>
</card>
</wml>
<%
end if
objgbrs.close
set objgbrs=nothing
conn.close
set conn=nothing
%>