⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 bzcl.asp

📁 燃点真情的WAP建站整站程序! 这个都是市面上有的人拿来卖的
💻 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.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.inc"-->
<!--#include file="ydzq.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<card id="main" title="管理版主" >
<p>
<%id=ubb(request("id"))
cz=ubb(request("cz"))
txt=ubb(request("txt"))
if txt<>"" then id=txt
set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from Users where id="&id
rs.open rspl,conn,1,2
if rs.eof then 
response.write("没有该版主")
else
set rse=Server.CreateObject("ADODB.Recordset")
rspple="select * from ydbbs where id="&rs("gllt")
rse.open rspple,conn,1,2
if rse.eof then 
bkmc="无此版块"
else
bkmc=rse("name")
end if
%>
管理版面:
<%if rs("ltzj")=0 then
response.write "("&bkmc&")"
else
response.write "[社管]"
end if%><br/>
会员ID:<%=ubb(rs("id"))%><br/>
会员昵称:<%=ubb(rs("nini"))%><br/>
手机号吗:<%=ubb(rs("sjhm"))%><br/>
手机型号:<%=ubb(rs("oopp"))%><br/>
登陆密码:<%=ubb(rs("mm"))%><br/>
注册时间:<%=ubb(rs("zcsj"))%><br/>
注册IP:<%=ubb(rs("myip"))%><br/>
社区金币:<%=ubb(rs("myjb"))%><br/>
社区勋章:
<%if rs("xuan")<>"" then%>
<%=ubb2(rs("xuan"))%>
<%else%>
暂无
<%end if%>
<br/>
社区积分:<%=ubb(rs("myjf"))%><br/>
----------<br/>
密码问题:<%=ubb(rs("mmwt"))%><br/>
问题答案:<%=ubb(rs("wtda"))%><br/>
----------<br/>
<a href="getcl.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;fid=<%=id%>&amp;cz=35">撤除版主</a>

<%if rs("grzt")<>"2" then%>
<a href="getcl.asp?sid=<%=sid%>&amp;id=<%=usb(id)%>&amp;fid=<%=id%>&amp;cz=9">全区加黑</a>
<%elseif rs("grzt")="2" then%>
<a href="getcl.asp?sid=<%=sid%>&amp;id=<%=usb(id)%>&amp;fid=<%=id%>&amp;cz=17">全区解黑</a><%end if%>
<br/>
<a href="tzjl.asp?sid=<%=sid%>&amp;id=<%=usb(id)%>">贴子记录</a>  <a href="eaitface.asp?sid=<%=sid%>&amp;id=<%=usb(id)%>">编辑资料</a><br/>
<a href="delxz.asp?sid=<%=sid%>&amp;id=<%=usb(id)%>">去掉勋章</a> <a href="xuanget.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;fid=<%=id%>">授予勋章</a><br/>
<a href="zbgl.asp?sid=<%=sid%>&amp;fid=<%=rs("id")%>&amp;id=<%=id%>">金币管理</a>  <a href="jfgl.asp?sid=<%=sid%>&amp;fid=<%=rs("id")%>&amp;id=<%=id%>">积分管理</a><br/>
<a href="czcl.asp?sid=<%=sid%>&amp;fid=<%=rs("id")%>&amp;id=<%=id%>&amp;cz=5">清除回复</a>
<a href="getcl.asp?sid=<%=sid%>&amp;fid=<%=rs("id")%>&amp;id=<%=id%>&amp;cz=11">清除发贴</a>
<%end if%>
<br/>----------<br/>
<a href="bz.asp?sid=<%=sid%>">[版主管理]</a><br/>
<a href="enter.asp?sid=<%=sid%>">[社区管理]</a><br/>
<a href="index.asp?sid=<%=sid%>">[后台管理]</a><br/>
<%
conn.close
set conn=Nothing%>
</p>
</card>
</wml>

⌨️ 快捷键说明

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