adminright4.asp

完美政府版,正版网站解决方案

<%'未安装--------------------------------------------------------------------
if CheckObject(getXMLDOM) and CheckObject("Scripting.FileSystemObject") then
pathlist=getPathList("../plugin/")(0)
pathlist=split(pathlist,"*")
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#F4F6FC" width="100%">
  <tr>
    <td class=td3 width="100%" colspan="5" bgcolor="#F4F6FC" height="30">&nbsp;论坛未安装插件：</td>
  </tr>
  <%
    set SkinXML=new XmlClass
    
for i=0 to ubound(pathlist)
pathi=pathlist(i)

	if instr(allplugin,Lcase("*"&pathi&"*"))=0 then
      SkinXML.XmlPath="../plugin/"&pathi&"/config.xml"
      SkinXML.open
	'response.write SkinXML.getError()
		response.write"<tr ><form name=plugin"&i&" action='adminright4.asp?action=addplugin' method='POST'><td width=20% height=30><input type=hidden name=pluginname value='"&SkinXML.SelectXmlNodeText("pluginname")&"'><input type=hidden name=pluginlink value='"&SkinXML.SelectXmlNodeText("pluginlink")&"'><input type=hidden name=pluginid value='"&pathi&"'>　插件文件夹： "&pathi&"</td><td width=20% >　名称："&SkinXML.SelectXmlNodeText("pluginname")&"</td><td width=20% >　链接："&SkinXML.SelectXmlNodeText("pluginlink")&"</td><td width=20% >　作者："&SkinXML.SelectXmlNodeText("designer")&" [<a href="&SkinXML.SelectXmlNodeText("link")&" target=_blank>主页</a>, <a href='mailto:"&SkinXML.SelectXmlNodeText("mail")&"'>邮箱</a>]</td><td width=20% align=right><a href='#' onclick='javascript:document.plugin"&i&".submit();'>[自动安装]</a>&nbsp;&nbsp;</td></form></tr>"
	end if
next

	 SkinXML.CloseXml
	set SkinXML=nothing

%>  
</table>

<%'未安装--------------------------------------------------------------------
End if
%>
<form method="POST" action="adminright4.asp?action=addplugin">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#F4F6FC" width="100%">
    <tr>
    <td class=td3 colspan=2>手动安装论坛插件：</td>
  </tr>
  <tr class=td2>
    <td width="30%" height="30">
    <p style="line-height: 120%; margin: 5">插件名称：</td>
    <td width="70%">&nbsp;<input type="text" name="pluginname" size="30"> *</td>
  </tr>
  <tr class=td2>
    <td height="30">
    <p style="line-height: 120%; margin: 5">插件所在文件夹：</td>
    <td>&nbsp;<input type="text" name="pluginid" size="30"> *</td>
  </tr>
<tr class=td2>
    <td height="30">
    <p style="line-height: 120%; margin: 5">插件链接：</td>
    <td>&nbsp;<input type="text" name="pluginlink" size="53"> *</td>
  </tr>  
	<tr>
    <td class=td2 colspan="2" align="center" height="35" bordercolor="#F4F6FC">
    <input type="submit" value="    确  定  安  装    " name="B1"></td>
  </tr>
  </table></form>
<%case"addplugin"
pluginname=replace(request.form("pluginname"),"'","''")
pluginid=replace(request.form("pluginid"),"'","''")
pluginlink=replace(request.form("pluginlink"),"'","''")

if pluginname="" or pluginid="" or pluginlink=""  then
call send("·请填写完整必填资料<br>·<a href='javascript:history.go(-1)'><span class=errfont>返回重新填写</span></a>")
else
conn.execute("insert into plugin(pluginname,pluginid,pluginlink) values('"&pluginname&"','"&pluginid&"','"&pluginlink&"')")
call send("添加论坛插件 "&pluginname&" 成功。")
end if
%>
<%case"delplugin"
id=checknum(request.querystring("id"))
conn.execute("delete*from plugin where id="&id&"")
call send("卸载论坛插件成功。")
%>
<%case"editplugin"
id=checknum(request.querystring("id"))
set rs=conn.execute("select*from plugin where id="&id&"")
%>
<form method="POST" action="adminright4.asp?action=editpluginok&id=<%=id%>">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#F4F6FC" width="100%">
    <tr>
    <td class=td3 colspan=2>编辑论坛插件：</td>
  </tr>
  <tr class=td2>
    <td width="30%" height="30">
    <p style="line-height: 120%; margin: 5">插件名称：</td>
    <td width="70%">&nbsp;<input type="text" name="pluginname" size="30" value="<%=checkform(rs("pluginname"))%>"> *</td>
  </tr>
  <tr class=td2>
    <td height="30">
    <p style="line-height: 120%; margin: 5">插件所在文件夹：</td>
    <td>&nbsp;<input type="text" name="pluginid" size="30" value="<%=checkform(rs("pluginid"))%>"> *</td>
  </tr>
  <tr class=td2>
    <td height="30">
    <p style="line-height: 120%; margin: 5">插件链接：</td>
    <td>&nbsp;<input type="text" name="pluginlink" size="53" value="<%=checkform(rs("pluginlink"))%>"> *</td>
  </tr>
	<tr>
    <td class=td2 colspan="2" align="center" height="35" bordercolor="#F4F6FC">
    <input type="submit" value="    确  定  修  改    " name="B1"></td>
  </tr>
  </table></form>
<%case"editpluginok"
id=checknum(request.querystring("id"))
pluginname=replace(request.form("pluginname"),"'","''")
pluginid=replace(request.form("pluginid"),"'","''")
pluginlink=replace(request.form("pluginlink"),"'","''")

if pluginname="" or pluginid="" or pluginlink="" then
	call send("·请填写完整必填资料<br>·<a href='javascript:history.go(-1)'><span class=errfont>返回重新填写</span></a>")
else
	conn.execute("update plugin set pluginname='"&pluginname&"',pluginid='"&pluginid&"',pluginlink='"&pluginlink&"' where id="&id&"")
	call send("修改论坛插件成功。")
end if


'________________________________________________论坛插件 END___________________________________________________________________





case "delanyuser"
%><br><form action="adminright4.asp?action=deluser" method="POST">
  <table style="BORDER-COLLAPSE: collapse" cellSpacing="0" cellPadding="0" width="100%" border="0">
    <tr>
    <td class=td3 colspan=2>删除指定日期内没有登陆的用户</td>
    </tr>
    <tr>
      <td class=td2 width="50%" height="28">
      <p style="MARGIN: 5px">删除多少天没有登陆的用户：( 填数字 ) </p>
      </td>
      <td width="50%">
      <input size="20" name="daynum"></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#F4F6FC" colspan="2" align="center" height="35">
      
    <input type="submit" value="  确 认 删 除  " name="B1"></td>
    </tr>
  </table>
</form>
<%case"deluser"
dim daynum
daynum=checknum(request.form("daynum"))
conn.execute("update [user] set del=true where lasttime<now()+"&timeset&"/24-"&daynum&"")
call send("批量删除用户成功。")
case"zl"
dim usedtable,topicnum,allnum,usernum,bdadmin,bdadmin2
topicnum=conn.execute("select count(id) from topic")(0)
usedtable=application(prefix&"usedtable")
usedtable=split(usedtable,"|")
allnum=0
for i=1 to ubound(usedtable)
allnum=allnum+conn.execute("select count(bbsid) from bbs"&usedtable(i)&"")(0)
next
usernum=conn.execute("select count(userid) from [user] where not del")(0)

conn.execute("update config set topicnum="&topicnum&",allnum="&allnum&",usernum="&usernum&"")
set rs=conn.execute("select id,followid from [bdinfo] where followid<>0")
do while not rs.eof
bdadmin2=""
set bdadmin=conn.execute("select name from admin where bd="&rs("id")&"")
do while not bdadmin.eof
bdadmin2=bdadmin("name")&"|"&bdadmin2
bdadmin.movenext
loop
set bdadmin=nothing
conn.execute("update bdinfo set admin='"&bdadmin2&"' where id="&rs("id")&" and followid<>0")
rs.movenext
loop
set rs=nothing
call send("整理话题数成功。<br>整理总帖数成功。<br>整理用户数成功。<br>整理各版面版主成功。")

%>
<%case"changeinfo"%>
<form method="POST" action="adminright4.asp?action=userinfo">
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#F4F6FC" width="100%">
 <tr>
   <td class=td2 width="25%" height="50" bgcolor="#F4F6FC">&nbsp;要进行修改的用户名：</td>
   <td bgcolor="#F4F6FC">&nbsp;<input type="text" name="name" size="40">&nbsp;
    <input type="submit" value="  确  认  " name="B1"></td>
</tr></table></form>
<%case"userinfo"
name=replace(request.form("name"),"'","''")
set rs=conn.execute("select top 1 userinfo,mark from [user] where name='"&name&"'")
if rs.eof then
call send("该用户不存在。")
else
userinfo=rs("userinfo")
userinfo1=split(rs("userinfo"),"|")
%>
<form method="POST" action="adminright4.asp?action=editinfo">
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor="#F4F6FC">
        <tr class=td2>
          <td width="25%" height="28">
          <p style="margin: 5">用户名：</td>
          <td width="75%">
          <p style="margin: 5">
<input type="hidden" name="name" size="40" value="<%=checktitle(name)%>"><input type="hidden" name="userinfo" size="40" value="<%=checktitle(userinfo)%>"><%=checktitle(name)%></td>
        </tr>
        <tr>
          <td class=td2>
          <p style="margin: 5">自定义头像：</td>
          <td>
          <p style="margin: 5"><input name=mypic size=38 maxlength=100 value="<%=checktitle(userinfo1(5))%>"> 
          * 完整Url地址<br>图像宽度：<input type=text name=picw size=6 value="<%=checktitle(userinfo1(6))%>"> 
          * 高度： 
        <input type=text name=pich size=6 value="<%=checktitle(userinfo1(7))%>"> *（宽最大<%=checknum(application(prefix&"picw"))%> &nbsp; 高最大<%=checknum(application(prefix&"pich"))%>）</td>
        </tr>
<tr class=td2><td width="25%"><p style="margin: 5">自定义头衔：</td><td width="75%"><p style="margin: 5"><input type=text name=diyname size=30 maxlength=255 value="<%=checktitle(userinfo1(10))%>"></td></tr>
<tr class=td2><td width="25%" valign="top"><p style="margin: 5">个性签名：</td><td width="75%"><p style="margin: 5">
        <TEXTAREA name=gxqm rows=5 wrap=PHYSICAL cols=60 style="font-family: 宋体; font-size: 9pt"><%=checktitle(userinfo1(8))%></TEXTAREA></td></tr>
<tr class=td2><td width="25%"><p style="margin: 5">论坛积分：</td><td width="75%"><p style="margin: 5">
  <input type="text" name="mark" size="20" value="<%=rs("mark")%>">*</td></tr>
<tr class=td2>
  <td width="100%" colspan="2" bgcolor="#F4F6FC" height="32" align="center">
    <input type="submit" value="    确  定  修  改    " name="B1"></td></tr>
      </table></form>
<%end if
set rs=nothing
%>
<%case"editinfo"
dim picw,pich,diyname,gxqm,mypic,mark
name=replace(request.form("name"),"'","''")
userinfo=replace(request.form("userinfo"),"'","''")
userinfo=split(userinfo,"|")
picw=checknum(Request.Form("picw"))
pich=checknum(Request.Form("pich"))
mypic=Replace(Request.Form("mypic"),"'","''")
mark=checknum(request.form("mark"))
if picw="" or pich="" or mypic="" or mark="" then
call send("·请填写完整必填资料<br>·<a href='javascript:history.go(-1)'><span class=errfont>返回重新填写</span></a>")
else
gxqm=Request.Form("gxqm")
gxqm=Replace(left(gxqm,255),"'","''")
gxqm=replace(gxqm,"|","│")

diyname=Request.Form("diyname")
diyname=Replace(left(diyname,8),"'","''")
diyname=replace(diyname,"|","│")


uinfo=userinfo(0)&"|"&userinfo(1)&"|"&userinfo(2)&"|"&userinfo(3)&"|"&userinfo(4)&"|"&mypic&"|"&picw&"|"&pich&"|"&gxqm&"|"&userinfo(9)&"|"&diyname
conn.execute("update [user] set userinfo='"&uinfo&"',mark="&mark&" where name='"&name&"'")
call send("修改用户资料成功。")
end if
%>
<%end select
%></td>
  </tr>
</table>
<!--#include file="bottom.asp"-->