admin_setup.asp

一个超市管理系统

<!-- #include file="setup.asp" -->
<%
if adminpassword<>session("pass") then
response.redirect "admin.asp?menu=login"
end if
%>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<link href=images/skins/<%=Request.Cookies("skins")%>/bbs.css rel=stylesheet>
<br><center>
<p></p>

<%

select case Request("menu")

case "link"
link

case "linkok"
linkok

case "dellink"
conn.execute("delete from [link] where id="&Request("id")&"")
link

case "upclubconfig"
upclubconfig

case "upclubconfigok"
upclubconfigok

case "upclubconfigok2"
upclubconfigok2

case "variable"
variable
case "variableok"
variableok
end select


sub link





%>
友情链接管理
<FORM action=?menu=linkok method=post>
<TABLE cellSpacing=0 cellPadding=0 width="383" border=0>
<TBODY>
<TR>
<TD width="163">论坛名称： </TD>
<TD width="288"><INPUT size=40 name=name></TD></TR>

<tr>
<TD width="163">论坛URL： </TD>
<TD width="288"><INPUT size=40 name=url value="http://"> </TD>
</tr>

<TR>
<TD width="163">图标URL： </TD>
<TD width="288"><INPUT size=40 name=logo value="http://"> </TD></TR>

<TR>
<TD width="163" height=15>论坛简介： </TD>
<TD width="288" height=15><INPUT size=40 name=intro> </TD></TR>
<TR>
<TD colSpan=2 height=15 width="451">
<DIV align=center><INPUT type=submit value=" 添 加 " name=Submit>
<input type="reset" value=" 重 填 " name="Submit2">

</DIV></TD></TR></TBODY></TABLE></FORM>



<%
rs.Open "link",Conn
do while not rs.eof
response.write "<a title='"&rs("name")&""&chr(10)&""&rs("intro")&"' href="&rs("url")&" target=_blank><img src="&rs("logo")&" border=0 width=88 height=31></a> <a href=?menu=dellink&id="&rs("id")&">删除</a>　　　"
rs.movenext
loop
rs.close
end sub

sub linkok

if Request("url")="http://" or Request("url")="" then
error2("论坛URL没有填写")
end if

rs.Open "link",Conn,1,3
rs.addnew
rs("name")=Request("name")
rs("logo")=Request("logo")
rs("url")=Request("url")
rs("intro")=Request("intro")
rs.update
rs.close
link
end sub


sub upclubconfig
%>

<fieldset style="WIDTH: 550">
<legend>社区资料更新</legend>
此操作将更新论坛资料、用户资料<br>（防止论坛统计错误和用户类型显示不正确的情况发生）<br>
<a href="?menu=upclubconfigok">点击这里更新论坛统计数据</a><br>
<a href="?menu=upclubconfigok2">点击这里更新所有用户资料 </a>
</fieldset><br>

<%
end sub


sub upclubconfigok

rs.Open "bbsconfig",Conn
do while not rs.eof

tmprs=conn.execute("Select count(forumid) from forum where forumid="&rs("id")&"")
allarticle=tmprs(0)
tmprs=conn.execute("Select count(forumid) from reforum where forumid="&rs("id")&"")
allrearticle=tmprs(0)
conn.execute("update [bbsconfig] set toltopic="&allarticle&",tolrestore="&allarticle+allrearticle&" where ID="&rs("id")&"")

rs.movenext
loop
rs.close
%>
操作成功！<br>
<br>
已经更新社区所有论坛的统计数据<br>
<%
end sub



sub upclubconfigok2
tmprs=conn.execute("Select count(id) from user")
alluser=tmprs(0)
conn.execute("update [clubconfig] set associatortol="&alluser&"")
%>

操作成功！<br>
<br>
共更新 <%=alluser%> 位成员的资料<br>
<%
end sub



sub variable

%>

<form method="post" action="?menu=variableok">
<table>
<tr>
<td width="40%">社区区长（多区长添加请用“|”分隔）：<br>例如： <font color="#FF0000">yuzi|裕裕</font></td>
<td><input size="30" name="administrators" value="<%=administrators%>"></td>
</tr>
<tr>
<td width="40%">社区管理密码：</td>
<td>
<input size="30" name="adminpassword" value="<%=adminpassword%>" type="password"></td>
</tr>
<tr>
<td width="40%">社区名称：</td>
<td><input size="30" name="clubname" value="<%=clubname%>"></td>
</tr>
<tr>
<td width="40%">社区URL：</td>
<td><input size="30" name="cluburl" value="<%=cluburl%>"></td>
</tr>
<tr>
<td width="40%">主页名称（底部显示）：</td>
<td><input size="30" name="homename" value="<%=homename%>"></td>
</tr>
<tr>
<td width="40%">主页地址（底部显示）：</td>
<td><input size="30" value="<%=homeurl%>" name="homeurl"></td>
</tr>

<tr>
<td width="40%">过滤敏感字（多字请用“|”分隔）：<br>例如： <font color="#FF0000">fuck|shit|你妈</font></td>
<td><input size="30" value="<%=badwords%>" name="badwords"></td>
</tr>
<tr>
<td width="40%">禁止IP地址进入论坛（多IP请用“|”分隔）：</td>
<td><input size="30" value="<%=badip%>" name="badip"></td>
</tr>


<tr>
<td width="40%">社区首页自动展开所有论坛：</td>
<td>
<input type=radio name="allclass" value="0" <%if allclass=0 then%>checked<%end if%>>关闭
<input type=radio name="allclass" value="1" <%if allclass=1 then%>checked<%end if%>>打开
</td>
</tr>

<tr>
<td width="40%">注册用户密码通过Email发送：<br><font color="#FF0000">服务器必须支持邮件发送功能</font></td>
<td>
<input type=radio name="SendPassword" value="0" <%if SendPassword=0 then%>checked<%end if%>>关闭
<input type=radio name="SendPassword" value="1" <%if SendPassword=1 then%>checked<%end if%>>打开
</td>
</tr>

<tr>
<td width="40%">发送邮件组件：</td>
<td>
<select name="selectmail">
<option value="">关闭</option>
<option value="JMail" <%if selectmail="JMail" then%>selected<%end if%>>JMail</option>
<option value="CDONTS" <%if selectmail="CDONTS" then%>selected<%end if%>>CDONTS</option>
</select>
</td>
</tr>
<tr>
<td width="40%">SMTP Server地址：</td>
<td><input size="30" value="<%=smtp%>" name="smtp"></td>
</tr>
<tr>
<td width="40%">邮件服务器登录名：</td>
<td><input size="30" value="<%=MailServerusername%>" name="MailServerusername"></td>
</tr>
<tr>
<td width="40%">邮件服务器登录密码：</td>
<td>
<input size="30" value="<%=MailServerPassword%>" name="MailServerPassword" type="password"></td>
</tr>
<tr>
<td width="40%">发件人Email地址：</td>
<td><input size="30" value="<%=smtpmail%>" name="smtpmail"></td>
</tr>

</table>

<input type="submit" value=" 更 新 ">
<%
end sub


sub variableok

if Request("clubname")="" then
error2("请输入社区名称")
end if

filtrate=split(Request("badip"),"|")
for i = 0 to ubound(filtrate)
if instr(remoteaddr,""&filtrate(i)&"") > 0 then
error2("请检查你输入的IP地址是否正确")
end if
next


master=split(administrators,"|")
for i = 1 to ubound(master)-1
conn.execute("update [user] set membercode=1 where username='"&master(i)&"'")
next
administrators2="|"&replace(Request("administrators"),"||","|")&"|"



rs.Open "clubconfig",Conn,1,3
rs("administrators")=replace(administrators2,"||","|")
rs("badwords")=Request("badwords")
rs("badip")=Request("badip")
rs("adminpassword")=Request("adminpassword")
rs("clubname")=Request("clubname")
rs("cluburl")=Request("cluburl")
rs("homename")=Request("homename")
rs("homeurl")=Request("homeurl")
rs("allclass")=Request("allclass")
rs("selectmail")=Request("selectmail")
rs("smtp")=Request("smtp")
rs("smtpmail")=Request("smtpmail")
rs("MailServerusername")=Request("MailServerusername")
rs("MailServerPassword")=Request("MailServerPassword")
rs("SendPassword")=Request("SendPassword")
rs.update


master=split(rs("administrators"),"|")
for i = 1 to ubound(master)-1
conn.execute("update [user] set membercode=5 where username='"&master(i)&"'")
next

rs.close

on error resume next
if Request("selectmail")="JMail" then
Set JMail=Server.CreateObject("JMail.Message")
If -2147221005 = Err Then
error2("本服务器不支持 JMail.Message 组件！请关闭发送邮件功能！")
End If
elseif Request("selectmail")="CDONTS" then
Set MailObject = Server.CreateObject("CDONTS.NewMail")
If -2147221005 = Err Then
error2("本服务器不支持 CDONTS.NewMail 组件！请关闭发送邮件功能！")
End If
end if


%>
更新成功
<br><br><a href=javascript:history.back()>返 回</a>
<%
end sub


htmlend

%>