admin_tool.asp

秘密网源代码 传闻拉了 100W风投

<!-- #include file="setup.asp" -->
<!-- #include file="CheckAdmin.asp" -->
<%

if RequestCookies("Userpass")="" or RequestCookies("Userpass")<>session("pass") then Response.Write ("<script>top.location.href='login.asp';</script>")
if UserRoleID <> 1 then Alert("您没有权限进入后台")
LinkID=RequestInt("LinkID")
TimeLimit=RequestInt("TimeLimit")
RoleID=RequestInt("RoleID")

UserName=HTMLEncode(Request("UserName"))
Body=HTMLEncode(Request("Body"))


select case Request("menu")
	case "Message"
		Message
	case "BatchSendMail"
		BatchSendMail
	case "BatchSendMailok"
		BatchSendMailok
	case "Messageok"
		if TimeLimit="" then error2("您没有选择日期！")
		Conn.execute("Delete from [Wo_PrivateMessages] where CreateTime<"&SqlNowString&"-"&TimeLimit&"")
		Alert("已经将"&TimeLimit&"天以前的短讯息删除了！")
	case "DelMessageUser"
		if UserName="" then Alert("您没有输入窝友名！")
		Conn.execute("Delete from [Wo_PrivateMessages] where RecipientUserName='"&UserName&"'")
		Conn.execute("update [Wo_PrivateMessages] set IsSenderDelete=1 where SenderUserName='"&UserName&"'")
		Alert("已经将"&UserName&"的短讯息全部删除了！")
	case "DelMessagekey"
		key=HTMLEncode(Request("key"))
		if key="" then Alert("您没有输入关键词！")
		Conn.execute("Delete from [Wo_PrivateMessages] where Body like '%"&key&"%'")
		Alert("已经将内容中包含 "&key&" 的短讯息删除了！")
	case "Link"
		Link
	case "Linkok"
		Linkok
	case "editLink"
		editLink
	case "editLinkok"
		Rs.Open "select * from [Wo_Links] where LinkID="&LinkID&"",Conn,1,3
			Rs("name")=Request("name")
			Rs("url")=Request("url")
			Rs("Logo")=Request("Logo")
			Rs("Intro")=Request("Intro")
		Rs.update
		Rs.close
		Response.Write("编 辑 成 功 ！")
	case "DelLink"
		Conn.execute("Delete from [Wo_Links] where LinkID="&LinkID&"")
		Link
end select

Sub BatchSendMail

if SiteConfig("SelectMailMode")="" then Alert("您没有开启发送邮件功能！")


%>

<form name="form" method="post" action="?menu=BatchSendMailok" onSubmit="return CheckForm(this);">
<input name="Body" type="hidden">
<table cellspacing="1" width="90%" border="0" id=CommonListArea align="center">
	<tr id=CommonListTitle3>
		<td align=center colspan=2>群发邮件</td>
	</tr>
	<tr id=CommonListCell>
		<td align=Left width="12%">收件人：　</td>
		<td width="85%"><select name="RoleID">
<%
		sql="select * from [Wo_Roles] where RoleID > 0 order by RoleID"
		Set Rs=Conn.Execute(sql)
			Do While Not Rs.EOF
			Response.Write("<option value='"&Rs("RoleID")&"'>"&Rs("Name")&"</option>")
				Rs.MoveNext
			loop
		Rs.Close
%>
</select>    
		</td>
	</tr>
	<tr id=CommonListCell>
		<td align=Left>主题：</td>
		<td width="85%"><input size="60" name="Subject"></td>
	</tr>
	<tr id=CommonListCell>
		<td valign="top"> 内容：</td>
		<td align=center height="250"> <SCRIPT type="text/javascript" src="Editor/Post.js"></SCRIPT>
		</td>
	</tr>
   <tr id=CommonListCell>
		<td align=center colspan=2> <input type="submit" value=" 发 送 " name=EditSubmit> <input type="reset" value=" 重 填 "><br></td>
	</tr>
</table>
</form>

<%
End Sub

Sub BatchSendMailok
if Request("Subject")="" then Alert("请填写邮件主题")
if Request("Body")="" then Alert("请填写邮件内容")
	if RoleID>0 then
		sql="select UserEmail from [Wo_Users] where UserRoleID="&RoleID&""
	else
		sql="select UserEmail from [Wo_Users]"
	end if
	Set Rs=Conn.Execute(sql)
		do while not Rs.eof
			SendMail Rs("UserEmail"),Request("Subject"),Request("Body")
			Rs.Movenext
		loop
	Set Rs = Nothing
	Response.Write("邮件群发发送成功！")
End Sub

Sub Message
%>
数据库共 <%=Conn.execute("Select count(MessageID) from [Wo_PrivateMessages]")(0)%> 条短讯息
<br><br>
<table cellspacing="1" width="99%" border="0" id=CommonListArea align="center">
	<tr id=CommonListTitle3>
		<td align="center">批量删除短消息</td>
	</tr>
	<tr id=CommonListCell>
		<form method="POST" action="?menu=DelMessageUser"><td align="center">批量删除 <input size="13" name="UserName" onkeyup="ValidateTextboxAdd(this, 'btnadd')" onpropertychange="ValidateTextboxAdd(this, 'btnadd')" onfocus="javascript:focusEdit(this)" onblur="javascript:blurEdit(this)" value="窝友名" Helptext="窝友名"> 的短讯息 <input type="submit" value="确定" id='btnadd' disabled></td></form>
	</tr>
	<tr id=CommonListCell>
		<form method="POST" action="?menu=DelMessagekey">
		<td align="center">批量删除内容含有 <input size="20" name="key" onkeyup="ValidateTextboxAdd(this, 'nrkey')" onpropertychange="ValidateTextboxAdd(this, 'nrkey')" onfocus="javascript:focusEdit(this)" onblur="javascript:blurEdit(this)" value="关键词" Helptext="关键词"> 的短讯息 <input type="submit" value="确定" id='nrkey' disabled>
		</td>
		</form>
	</tr>


	<tr id=CommonListCell>
		<form method="POST" action="?menu=Messageok"><td align="center">删除 <select name="TimeLimit">
			<option value="30">30</option>
			<option value="60">60</option>
			<option value="90">90</option>
			</select> 天以前的短讯息
<input type="submit" value="确定">

		</td></form>
	</tr>

</table>
</form>
<%
End Sub

Sub Link
%>
<FORM action=?menu=Linkok method=Post>
<table cellspacing="1" width="100%" border="0" id=CommonListArea align=center>
		<tr id=CommonListTitle3><td colspan="2">　■ 友情链接管理</td></tr>
		<tr id=CommonListCell><td>网站名称：<INPUT size=40 name=name></td><td>地址URL：<INPUT size=40 name=url value="http://"></td></tr>
		<tr id=CommonListCell><td>网站简介：<INPUT size=40 name=Intro></td><td>图标URL：<INPUT size=40 name=Logo value="http://"></td></tr>
		<tr id=CommonListCell><td colspan="2" align="center"><INPUT type=submit value=" 添 加 "> <input type="reset" value=" 重 填 "></td></tr>
</table>
</FORM>
<table cellspacing="1" width="100%" border="0" id=CommonListArea>
	<tr id=CommonListTitle3>
		<td colspan="2">　■ 友情链接</td>
	</tr>
	<tr id=CommonListCell>
		<td align="center" width="5%"><img src="../images/shareforum.gif"></td>
		<td>
<%
	Rs.Open "[Wo_Links]",Conn
	do while not Rs.eof
		if Rs("Logo")="" or Rs("Logo")="http://" then
			Link1=Link1+"<a onmouseover="&Chr(34)&"showmenu(event,'<div class=menuitems><a href=?menu=editLink&LinkID="&Rs("LinkID")&">编辑</a></div><div class=menuitems><a href=?menu=DelLink&LinkID="&Rs("LinkID")&">删除</a></div>')"&Chr(34)&" title='"&Rs("Intro")&"' href="&Rs("url")&" target=_blank>"&Rs("name")&"</a>　　"
		else
			Link2=Link2+"<a onmouseover="&Chr(34)&"showmenu(event,'<div class=menuitems><a href=?menu=editLink&LinkID="&Rs("LinkID")&">编辑</a></div><div class=menuitems><a href=?menu=DelLink&LinkID="&Rs("LinkID")&">删除</a></div>')"&Chr(34)&" title='"&Rs("name")&""&chr(10)&""&Rs("Intro")&"' href="&Rs("url")&" target=_blank><img src="&Rs("Logo")&" border=0 width=88 height=31></a>　　"
		end if
		Rs.Movenext
	loop
	Rs.close
%>
<%=Link1%>
<br><br>
<%=Link2%>
		</td>
	</tr>
</table>
<%
End Sub

Sub editLink
	sql="Select * From [Wo_Links] where LinkID="&LinkID&""
	Set Rs=Conn.Execute(sql)
%>
<FORM action=?menu=editLinkok method=Post>
<input type=hidden name=LinkID value=<%=LinkID%>>
<table cellspacing="1" width="100%" border="0" id=CommonListArea align=center>
		<tr id=CommonListTitle3><td colspan="2">　■ 友情链接管理</td></tr>
		<tr id=CommonListCell><td>网站名称：<INPUT size=40 name=name value="<%=Rs("name")%>"></td><td>地址URL：<INPUT size=40 name=url value="<%=Rs("url")%>"></td></tr>
		<tr id=CommonListCell><td>网站简介：<INPUT size=40 name=Intro value="<%=Rs("Intro")%>"></td><td>图标URL：<INPUT size=40 name=Logo value="<%=Rs("Logo")%>"></td></tr>
		<tr id=CommonListCell><td colspan="2" align="center"><INPUT type=submit value=" 编 辑 "> <input type="reset" value=" 重 填 "></td></tr>
</table>
</FORM>
<%
End Sub

Sub Linkok
	if Request("url")="http://" or Request("url")="" then Alert("群组URL没有填写")
	Rs.Open "[Wo_Links]",Conn,1,3
	Rs.addNew
		Rs("name")=Request("name")
		Rs("url")=Request("url")
		Rs("Logo")=Request("Logo")
		Rs("Intro")=Request("Intro")
	Rs.update
	Rs.close
	Link
End Sub

%>