admin_message.asp

采用的是新云内核

<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 网站名称：QQ空间潮流时尚站
' 当前版本：NewCloud Site Management System Version 2.1
' 文件名称：admin_account.asp
' 更新日期：2008-01-01
' 官方网站：QQ空间潮流时尚站【www.518hi.com】QQ：270022919
'=====================================================================
' Copyright 2008-2010 518hi.com - All Rights Reserved.
' 518hi is a trademark of 518hi.com
'=====================================================================
Dim Action
If Not ChkAdmin("SendMessage") Then
	Server.Transfer("showerr.asp")
	Response.End
End If

Action = LCase(Request("action"))
Select Case Trim(Action)
Case "save"
	Call SaveNewMessage
Case "del"
	Call DeleteMessage
Case "delall"
	Call DeleteAllMessage
Case Else
	Call showmain
End Select
If FoundErr = True Then
	ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
Sub showmain()
	Dim RsObj
	Response.Write "<script language=JavaScript>" & vbNewLine
	Response.Write "var _maxCount = '64000';" & vbNewLine
	Response.Write "function doSubmit(){" & vbNewLine
	Response.Write "	if (document.myform.topic.value==''){" & vbNewLine
	Response.Write "		alert('短信标题不能为空！');" & vbNewLine
	Response.Write "		return false;" & vbNewLine
	Response.Write "	}" & vbNewLine
	Response.Write "	myform.content1.value = Composition.document.body.innerHTML; " & vbNewLine
	Response.Write "	MessageLength = Composition.document.body.innerHTML.length;" & vbNewLine
	Response.Write "	if(MessageLength < 2){" & vbNewLine
	Response.Write "		alert('短信内容不能小于2个字符！');" & vbNewLine
	Response.Write "		return false;" & vbNewLine
	Response.Write "	}" & vbNewLine
	Response.Write "	if(MessageLength > _maxCount){" & vbNewLine
	Response.Write "		alert('短信的内容不能超过'+_maxCount+'个字符！');" & vbNewLine
	Response.Write "		return false;" & vbNewLine
	Response.Write "	}" & vbNewLine
	Response.Write "	document.myform.Submit1.disabled = true;" & vbNewLine
	Response.Write "	document.myform.submit();" & vbNewLine
	Response.Write "}" & vbNewLine
	Response.Write "</script>" & vbNewLine
	Response.Write "<table cellspacing=1 align=center cellpadding=3 border=0 class=tableborder>"
	Response.Write "	<tr>"
	Response.Write "		<th colspan=2> >>用户短信管理<< </th>"
	Response.Write "	</tr>"
	Response.Write "	<tr>"
	Response.Write "		<td class=TableRow1 colspan=2>共有用户短信：<b><font color=red>" & AllUsersmsnum & "</font></b> 条 &nbsp;&nbsp;今日用户短信：<b><font color=red>" & DayUsersmsnum & "</font></b> 条 &nbsp;&nbsp;<a href=""?action=del"" onclick=""return confirm('您确定要删除所有用户短信吗?')"" class=showmeun>删除所有用户短信</a></td>"
	Response.Write "	</tr>"
	Response.Write "	<form name=form1 method