adminright4.asp

本程序蓝本为6kbbs 默认前台管理员的帐号是:woodcoal

<!--#include file="bbs.asp"-->
<%dim action,strt,i,lguserid,sql,pass,name,userinfo,userinfo1,uinfo,qqshow,cid
action=request.querystring("action")
select case action
case"sql","execute" strt="执行 SQL 语句"
case"style","addstyle","delstyle","editstyle","editstyleok" strt="论坛风格设置":application(prefix&"style")=""
case"delanyuser","deluser" strt="批量删除用户"
case"zl" strt="论坛整理"
case"changeinfo","userinfo","editinfo" strt="修改用户资料"
end select
sub send(str)
response.write"<div align=center><table class=td1 border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=#cad6eb width=90% height=50><tr><td width=100% class=td2 colspan=2 background=pic/titlebg.gif height=26><p align=center>操作提示</p></td></tr><tr><td width=100% ><p style='margin:5px;line-height:150%'><font color= red>"&str&"</font></p></td></tr></table></div>"
end sub
%>
<%call admintop%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
    <td width="100%" valign="top" height="475">
<%
select case action
case"sql"
%><form method="POST" action="adminright4.asp?action=execute">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
  <tr>
    <td class=td2 width="100%" height="28" colspan="2" background="pic/titlebg.gif">
    <p align="center"><font color="#000000"><span style="font-weight: 400">
	SQL语句执行</span></font></td>
  </tr>
  <tr>
    <td class=td2 width="30%" height="32">
    <p style="margin: 5"><font color="#000000"><span style="font-weight: 400">SQL语句：</span></font></td>
    <td width="70%">&nbsp;<input type="text" name="sql" size="64"></td>
  </tr>
  <tr>
    <td class=td2 height="32">
    <p style="margin: 5"><font color="#000000"><span style="font-weight: 400">执行密码：</span></font></td>
    <td>&nbsp;<input type="password" name="pass" size="20"></td>
  </tr>
  <tr>
    <td class=td2 colspan="2" bgcolor="#F4F6FC" height="32" align="center">
    <input type="submit" value="   确  定  执  行   " name="B1"></td>
  </tr>
</table></div>
</form>
<%case"execute"
sql=request.form("sql")
pass=replace(request.form("pass"),"'","")
if sql="" or pass<>"7cbbs" then
call send("·请填写完整SQL语句和正确填写密码<br>·<a href='javascript:history.go(-1)'><font color=#ffffff>返回重新填写</font></a>")
else
On Error Resume Next 
conn.execute(sql)
if err.number<>0 then
call send("·SQL语句有错误，具体错误如下：<br>·"&Err.Description&"<br>·<a href=adminright4.asp?action=sql><font color=#ffffff>返回重新填写</font></a>")
else
call send("操作成功。")
end if
end if
%>
<%case"style"%><form method="POST" action="adminright4.asp?action=autouse">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
  <tr>
    <td class=td2 width="100%" colspan="4" height="28" background="pic/titlebg.gif">
	<p align="center">&nbsp;<font color="#000000"><span style="font-weight: 400">论坛现有风格</span></font></td>
  </tr>
  <%set rs=conn.execute("select id,stylename,autouse from style")
  do while not rs.eof
  response.write"<tr class=td2><td width=25% >　风格ID： "&rs("id")&"</td><td width=25% >　名称："&rs("stylename")&"</td><td width=25% >　<a title='编辑' href=adminright4.asp?action=editstyle&id="&rs("id")&"><img src=../pic/edit.gif border=0></a>&nbsp; &nbsp; <a title='删除' href=adminright4.asp?action=delstyle&id="&rs("id")&"><img src=../pic/del.gif border=0></a></td><td width=25% >　<input type=radio name=autouse value="&rs("id")&" ":if rs("autouse")=true then:response.write"checked":end if:response.write"> 默认使用</td></tr>"
rs.movenext
  loop
  set rs=nothing%>  <tr>
    <td class=td2 width="100%" colspan="4" bgcolor="#F4F6FC" height="30" align="center">
    <input type="submit" value="   确  定  修  改   " name="B1"></td>
  </tr>
</table></div>
</form><form method="POST" action="adminright4.asp?action=addstyle">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
  <tr>
    <td class=td1 width="100%" colspan="2" height="28" background="pic/titlebg.gif">
	<p align="center">&nbsp;<span style="font-weight: 400"><font color="#000000">添加论坛风格</font></span></td>
  </tr>
  <tr class=td2>
    <td width="30%">
    <p style="line-height: 120%; margin: 5"><font color="#000000">
	<span style="font-weight: 400">风格名称：</span></font></td>
    <td width="70%"><font color="#000000">&nbsp;</font><input type="text" name="stylename" size="30"><font color="#000000"> *</font></td>
  </tr>
  <tr class=td2>
    <td>
    <p style="line-height: 120%; margin: 5"><font color="#000000">
	<span style="font-weight: 400">论坛主要颜色：</span></font></td>
    <td><font color="#000000">&nbsp;</font><input type="text" name="c1" size="30"><font color="#000000"> *</font></td>
  </tr>
  <tr class=td2>
    <td>
    <p style="line-height: 120%; margin: 5"><font color="#000000">
	<span style="font-weight: 400">论坛表格底色：</span></font></td>
    <td><font color="#000000">&nbsp;</font><input type="text" name="c2" size="30"><font color="#000000"> *</font></td>
  </tr>
    <tr class=td2>
    <td>
    <p style="line-height: 120%; margin: 5"><font color="#000000">
	<span style="font-weight: 400">论坛文字颜色：</span></font></td>
    <td><font color="#000000">&nbsp;</font><input type="text" name="c3" size="30"><font color="#000000"> *</font></td>
  </tr>
  <tr class=td2>
    <td>
    <p style="line-height: 120%; margin: 5"><font color="#000000">
	<span style="font-weight: 400">论坛表格大小：</span></font></td>
    <td><font color="#000000">&nbsp;</font><input type="text" name="tbw" size="30"><font color="#000000"> *</font></td>
  </tr>
  <tr>
    <td class=td2>
    <p style="line-height: 120%; margin: 5"><font color="#000000">
	<span style="font-weight: 400">论坛表格背景图片：</span></font></td>
    <td>&nbsp;<input type="text" name="tbg" size="50"></td>
  </tr>
  <tr>
    <td class=td2 valign="top">
    <p style="line-height: 120%; margin: 5"><font color="#000000">
	<span style="font-weight: 400">论坛顶部信息：</span></font></td>
    <td>
    <p style="margin: 5">
    <textarea rows="6" name="tinfo" cols="62" style="font-family: 宋体; font-size: 9pt"></textarea></td>
  </tr>
    <tr>
    <td class=td2 valign="top">
    <p style="line-height: 120%; margin: 5"><font color="#000000">
	<span style="font-weight: 400">论坛底部信息：</span></font></td>
    <td>
    <p style="margin: 5"><textarea rows="6" name="binfo" cols="62" style="font-family: 宋体; font-size: 9pt"></textarea></td>
  </tr>  <tr>
    <td class=td2 valign="top">
    <p style="line-height: 120%; margin: 5"><font color="#000000">
	<span style="font-weight: 400">表格顶部信息：</span></font></td>
    <td>
    <p style="margin: 5"><textarea rows="6" name="ttop" cols="62" style="font-family: 宋体; font-size: 9pt"></textarea></td>
  </tr>  <tr>
    <td class=td2 valign="top">
    <p style="line-height: 120%; margin: 5"><font color="#000000">
	<span style="font-weight: 400">表格底部信息：</span></font></td>
    <td>
    <p style="margin: 5"><textarea rows="6" name="tbottom" cols="62" style="font-family: 宋体; font-size: 9pt"></textarea></td>
  </tr>  <tr>
    <td class=td2 colspan="2" align="center" height="35" bordercolor="#F4F6FC">
    <input type="submit" value="    确  定  添  加    " name="B1"></td>
  </tr>
  </table></div>
</form>
<%case"addstyle"
dim stylename,c1,c2,tbw,tbg,tinfo,binfo,ttop,tbottom,c3
stylename=replace(request.form("stylename"),"'","")
c1=replace(request.form("c1"),"'","")
c2=replace(request.form("c2"),"'","")
c3=replace(request.form("c3"),"'","")
tbw=replace(request.form("tbw"),"'","")
tbg=replace(request.form("tbg"),"'","")
tinfo=replace(request.form("tinfo"),"'","")
binfo=replace(request.form("binfo"),"'","")
ttop=replace(request.form("ttop"),"'","")
tbottom=replace(request.form("tbottom"),"'","")
if isnull(tinfo) or tinfo="" then tinfo=" "
if isnull(binfo) or binfo="" then binfo=" "
if isnull(ttop) or ttop="" then ttop=" "
if isnull(tbottom) or tbottom="" then tbottom=" "
if stylename="" or c1="" or c2="" or tbw="" then
call send("·请填写完整必填资料<br>·<a href='javascript:history.go(-1)'><font color=#ffffff>返回重新填写</font></a>")
else
conn.execute("insert into style(stylename,c1,c2,c3,tbw,tbg,tinfo,binfo,ttop,tbottom) values('"&stylename&"','"&c1&"','"&c2&"','"&c3&"','"&tbw&"','"&tbg&"','"&tinfo&"','"&binfo&"','"&ttop&"','"&tbottom&"')")
call send("添加论坛风格 "&stylename&" 成功。")
end if
%>
<%case"delstyle"
dim id,used
id=checknum(request.querystring("id"))
used=conn.execute("select top 1 autouse from style where id="&id&"")(0)
if used=true then
call send("该风格被默认使用，不能被删除。")
else
conn.execute("delete*from style where id="&id&"")
call send("删除论坛风格成功。")
end if
%>
<%case"editstyle"
id=checknum(request.querystring("id"))
set rs=conn.execute("select*from style where id="&id&"")
%>
<form method="POST" action="adminright4.asp?action=editstyleok&id=<%=id%>">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
  <tr>
    <td class=td1 width="100%" colspan="2" height="28" background="pic/titlebg.gif">
	<p align="center">&nbsp;<span style="font-weight: 400"><font color="#000000">编辑论坛风格</font></span></td>
  </tr>
  <tr class=td2>
    <td width="30%">
    <p style="line-height: 120%; margin: 5"><span style="font-weight: 400">
	<font color="#000000">风格名称：</font></span></td>
    <td width="70%"><font color="#000000">&nbsp;</font><input type="text" name="stylename" size="30" value="<%=kbbs(rs("stylename"))%>"><font color="#000000"> *</font></td>
  </tr>
  <tr class=td2>
    <td>
    <p style="line-height: 120%; margin: 5"><span style="font-weight: 400">
	<font color="#000000">论坛主要颜色：</font></span></td>
    <td><font color="#000000">&nbsp;</font><input type="text" name="c1" size="30" value="<%=kbbs(rs("c1"))%>"><font color="#000000"> *</font></td>
  </tr>
  <tr class=td2>
    <td>
    <p style="line-height: 120%; margin: 5"><span style="font-weight: 400">
	<font color="#000000">论坛表格底色：</font></span></td>
    <td><font color="#000000">&nbsp;</font><input type="text" name="c2" size="30" value="<%=kbbs(rs("c2"))%>"><font color="#000000"> *</font></td>
  </tr>
    <tr class=td2>
    <td>
    <p style="line-height: 120%; margin: 5"><span style="font-weight: 400">
	<font color="#000000">论坛文字颜色：</font></span></td>
    <td><font color="#000000">&nbsp;</font><input type="text" name="c3" size="30" value="<%=kbbs(rs("c3"))%>"><font color="#000000"> *</font></td>
  </tr>
  <tr class=td2>
    <td>
    <p style="line-height: 120%; margin: 5"><span style="font-weight: 400">
	<font color="#000000">论坛表格大小：</font></span></td>
    <td><font color="#000000">&nbsp;</font><input type="text" name="tbw" size="30" value="<%=kbbs(rs("tbw"))%>"><font color="#000000"> *</font></td>
  </tr>
  <tr>
    <td class=td2>
    <p style="line-height: 120%; margin: 5"><span style="font-weight: 400">
	<font color="#000000">论坛表格背景图片：</font></span></td>
    <td>&nbsp;<input type="text" name="tbg" size="50" value="<%=kbbs(rs("tbg"))%>"></td>
  </tr>
  <tr>
    <td class=td2 valign="top">
    <p style="line-height: 120%; margin: 5"><span style="font-weight: 400">
	<font color="#000000">论坛顶部信息：</font></span></td>
    <td>
    <p style="margin: 5"><textarea rows="6" name="tinfo" cols="62" style="font-family: 宋体; font-size: 9pt"><%=kbbs(rs("tinfo"))%></textarea></td>
  </tr>
    <tr>
    <td class=td2 valign="top">
    <p style="line-height: 120%; margin: 5"><span style="font-weight: 400">
	<font color="#000000">论坛底部信息：</font></span></td>
    <td>
    <p style="margin: 5"><textarea rows="6" name="binfo" cols="62" style="font-family: 宋体; font-size: 9pt"><%=kbbs(rs("binfo"))%></textarea></td>
  </tr>  <tr>
    <td class=td2 valign="top">
    <p style="line-height: 120%; margin: 5"><span style="font-weight: 400">
	<font color="#000000">表格顶部信息：</font></span></td>
    <td>
    <p style="margin: 5"><textarea rows="6" name="ttop" cols="62" style="font-family: 宋体; font-size: 9pt"><%=kbbs(rs("ttop"))%></textarea></td>
  </tr>  <tr>
    <td class=td2 valign="top">
    <p style="line-height: 120%; margin: 5"><span style="font-weight: 400">
	<font color="#000000">表格底部信息：</font></span></td>
    <td>
    <p style="margin: 5">
    <textarea rows="6" name="tbottom" cols="62" style="font-family: 宋体; font-size: 9pt"><%=kbbs(rs("tbottom"))%></textarea></td>
  </tr>  <tr>
    <td class=td2 colspan="2" align="center" height="35" bordercolor="#F4F6FC">
    <input type="submit" value="    确  定  修  改    " name="B1"></td>
  </tr>
  </table></div>
</form>
  <%case"editstyleok"
  id=checknum(request.querystring("id"))
stylename=replace(request.form("stylename"),"'","")
c1=replace(request.form("c1"),"'","")
c2=replace(request.form("c2"),"'","")
c3=replace(request.form("c3"),"'","")
tbw=replace(request.form("tbw"),"'","")
tbg=replace(request.form("tbg"),"'","")
tinfo=replace(request.form("tinfo"),"'","")
binfo=replace(request.form("binfo"),"'","")
ttop=replace(request.form("ttop"),"'","")
tbottom=replace(request.form("tbottom"),"'","")