📄 am_mess.asp
字号:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037 Emial：hechenn@126.com）
' Copyright 2006 txcodes.com - All Rights Reserved.
'***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<%
Call Page_formBody()
Call Page_Spane(5)
Page_HeadName="<A HREF=Am_Mess.asp?Action=To>发送短信</A> | <A HREF=Am_Mess.asp?Action=Sc>短信搜索</A> | <A HREF=Am_Mess.asp?Action=Delal>短信删除</A>"
Select Case Action
Case "To"
Call Page_AdminFlag(60)
Page_BootmName="发送短信"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Am_Mess.asp?Action=ToMess>"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=30 CLASS=Table8>收信人名称：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=MessUser TYPE=text id=MessUser size=40 >"&_
" 发送给所有用户："&_
"<INPUT NAME=MessToAll TYPE=checkbox id=MessToAll VALUE=1 CLASS='radio_all'>"&_
"</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>短信主题：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=MessName TYPE=text id=MessName size=60></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=230 CLASS=Table8>短信内容：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=MessContent cols=80 rows=15 id=MessContent></TEXTAREA> HTML支持</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok TYPE=submit CLASS='submit_all' id=ok VALUE=发送信息> "&_
"<INPUT NAME=cl TYPE=reset id=cl CLASS='submit_all' VALUE=重新输入></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
Case "Sc"
Call Page_AdminFlag(61)
Page_BootmName="短信搜索"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Am_Mess.asp?Action=Managex&xSelect=UserName>"&_
"<TR>"&_
"<TD HEIGHT=40 CLASS=Table8>请输入用户名："&_
"<INPUT NAME=Selectkey TYPE=text id=Selectkey size=25>"&_
" （请输入用户全名） "&_
"<INPUT NAME=ok TYPE=submit CLASS='submit_all' id=ok VALUE=' 搜索 '></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
Case "Delal"
Call Page_AdminFlag(61)
Page_BootmName="删除短信"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Am_Mess.asp?Action=Delalu>"&_
"<TR>"&_
"<TD HEIGHT=23 ALIGN=center CLASS=Table6>删除某一用户的短信</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=90 CLASS=Table8>请输入用户名："&_
"<INPUT NAME=UserName TYPE=text id=UserName size=25>"&_
" （请输入用户全名） "&_
"<INPUT TYPE=submit NAME=Submit CLASS='submit_all' VALUE=' 删除 '><br><br>"&_
"<INPUT NAME=To TYPE=checkbox id=To VALUE=1 CLASS='radio_all'> 收件箱 "&_
"<INPUT NAME=Form TYPE=checkbox id=Form VALUE=1 CLASS='radio_all'> 发件箱 "&_
"<INPUT NAME=Goto TYPE=checkbox id=Goto VALUE=1 CLASS='radio_all'> 已发送 "&_
"<INPUT NAME=Dell TYPE=checkbox id=Dell VALUE=1 CLASS='radio_all'> 废件箱"&_
"</TD>"&_
"</TR>"&_
"</form>"&_
"<Form NAME=inbox method=post action=Am_Mess.asp?Action=Delald>"&_
"<TR>"&_
"<TD HEIGHT=23 ALIGN=center CLASS=Table6> 删除指定日期内的短信 </TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=50 CLASS=Table8>删除多少天前的短信："&_
"<INPUT NAME=MessDate TYPE=text id=MessDate size=25 onkeypress=event.returnValue=IsDigit();>"&_
" （请输入数字） "&_
"<INPUT TYPE=submit NAME=Submit CLASS='submit_all' VALUE=' 删除 '></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
Case "S"
PageMessx=1
FileName="Am_Mess.asp?Action=Manage"
Selectkey=request("Selectkey")
Set Rs_edit=server.createobject("Adodb.Recordset")
Sql="Select * From Tx_Mess Where MessId=" & Id
Rs_edit.open Sql,Conn,1,1
Page_BootmName="查看短信 > " & Selectkey &"的短信"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<TR>"&_
"<TD ALIGN=center CLASS=Table8>"&_
"<TABLE WIDTH=570 BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
"<TR>"&_
"<TD ALIGN=center CLASS=Table15><B>" & Rs_edit("MessName") & "</B></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD CLASS=Table15>" & Rs_edit("MessContent") & "</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30>发件人：" & Rs_edit("MessForm") & " 收件人：" & Rs_edit("MessTo") & " 添加时间：" & Rs_edit("MessDate") & "</TD>"&_
"</TR>"&_
"</TABLE></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=25 ALIGN=center CLASS=Table8>『 <A HREF=Am_Mess.asp?Action=To>发送短信</A> 』『 <a onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}' href=Am_Mess.asp?Action=Del&Id=" & Rs_edit("MessId") & ">删除</A> 』『 <A HREF=Am_Mess.asp?Action=Sc>短信搜索</A> 』</TD>"&_
"</TR>"&_
"</TABLE>"
Rs_edit.Close
Set Rs_edit=Nothing
Call Page_aTable(0,0)
Case "Managex"
Response.Redirect "Am_Mess.asp?Action=Manage&xSelect=" & xSelect & "&Selectkey=" & Request.form("Selectkey")
Case "Manage"
Dim PageMessx
PageMessx=1
FileName="Am_Mess.asp?Action=Manage"
Selectkey=request("Selectkey")
Set Rs=server.createObject("Adodb.RecordSet")
Sql="select * from Tx_User where User_Name='" & Selectkey & "'"
Rs.open sql,Conn,1,1
IF Selectkey="" THEN
Errorst="请输入要查找的用户！"
founderr=true
ElseIF Rs.recordCount=0 THEN
Errorst="没这个人！"
founderr=true
End IF
Rs.Close
set Rs=nothing
if founderr=true THEN
Call Form_Error()
else
Page_BootmName="<A HREF=Am_Mess.asp?Action=Sc>短信搜索</A> > "
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Select Case xSelect
Case "UserName"
Sql="Select * From Tx_Mess where MessTo='" & Selectkey & "' and MessDel=0 and MessSend=1 order by MessDate desc"
Page_BootmName=Page_BootmName+Selectkey & "的收件箱"
ToorForm="发件人"
Case "Messo"
Sql="Select * From Tx_Mess where MessForm='" & Selectkey & "' and MessDel=0 and MessSend=1 order by MessDate desc"
Page_BootmName=Page_BootmName+Selectkey & "的发件箱"
ToorForm="收件人"
Case "Messf"
Sql="Select * From Tx_Mess where MessForm='" & Selectkey & "' and MessDel=0 and MessSend=0 order by MessDate desc"
Page_BootmName=Page_BootmName+Selectkey & "的已发送"
ToorForm="收件人"
Case "Messd"
Sql="Select * From Tx_Mess where MessTo='" & Selectkey & "' and MessDel=1 order by MessDate desc"
Page_BootmName=Page_BootmName+Selectkey & "的废件箱"
ToorForm="发件人"
End Select
Rs_Manage.open Sql,Conn,1,1
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD WIDTH=5% CLASS=Table6>ID</TD><TD HEIGHT=23 CLASS=Table6>短信主题</TD><TD WIDTH=15% CLASS=Table6>" & ToorForm & "</TD><TD WIDTH=10% CLASS=Table6>属性</TD><TD WIDTH=18% CLASS=Table6> 发信时间 </TD><TD WIDTH=22% CLASS=Table6>操作</TD></TR>"
Rs_Manage.PageSize = 15
totalrec=Rs_Manage.RecordCount
iPageSize=Rs_Manage.PageSize
currentPage=request("page")
if currentpage="" THEN
currentpage=1
else
if Not isChkInteger(currentPage) THEN
response.Redirect "javascript:history.go(-1);"
End IF
currentpage=clng(currentpage)
End IF
if totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
else
n= totalrec \ Cint(iPageSize)+1
End IF
if not (Rs_Manage.bof And Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
if currentpage > n THEN currentpage = n
if currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof And page_count<Cint(iPageSize)
page_count=page_count+1
if Rs_Manage("MessExamines")=1 THEN
MessExamines="已查看"
else
MessExamines="<FONT COLOR=006600>未查看</FONT>"
End IF
if ToorForm="发件人" THEN
ToorFormName=Rs_Manage("MessForm")
else
ToorFormName=Rs_Manage("MessTo")
End IF
strIfa = strIfa & "<Form NAME=inbox method=post action=Am_Mess.asp?Action=Delall>"&_
"<TR CLASS=Table8 onmouseout=" & CHR(34) & "this.style.backgroundColor=''" & CHR(34) & " onmouseover=" & CHR(34) & "this.style.backgroundColor='#799ae1'" & CHR(34) & ">"&_
"<TD HEIGHT=25 ALIGN=center>" & Rs_Manage("MessId") & "</TD>"&_
"<TD><A HREF='Am_Mess.asp?Action=S&Selectkey=" & Selectkey & "&Id=" & Rs_Manage("MessId") & "'>" & Rs_Manage("MessName") & "</A></TD>"&_
"<TD ALIGN=center>" & ToorFormName & "</TD>"&_
"<TD>" & MessExamines & "</TD>"&_
"<TD>" & Rs_Manage("MessDate") & "</TD>"&_
"<TD ALIGN=center>"&_
"<A HREF='Am_Mess.asp?Action=S&Selectkey=" & Selectkey & "&Id=" & Rs_Manage("MessId") & "'>查看</A> | "&_
"<A HREF=Am_Mess.asp?Action=Del&Id=" & Rs_Manage("MessId") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A> | "&_
"<INPUT TYPE=checkbox NAME=Id VALUE=" & Rs_Manage("MessId") & " CLASS='radio_all'>"&_
"</TD>"&_
"</TR>"
Rs_Manage.MoveNext
Wend
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
strIfa = strIfa & "<TR>"&_
"<TD HEIGHT=30 colspan=7 ALIGN=center CLASS=Table9>"&_
"<INPUT TYPE=checkbox NAME=chkall VALUE=on onclick=CheckAll(this.form) CLASS='radio_all'>"&_
" 选择全部 "&_
"<INPUT TYPE=submit NAME=Del VALUE=' 删除 ' CLASS='submit_all' onClick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'> "&_
"</TD>"&_
"</TR>"&_
"</form>"&_
"<TR>"&_
"<TD HEIGHT=25 colspan=7 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR>"&_
"</TABLE>"
Call Page_aTable(0,1)
End IF
Case "ToMess"
IF request.form("MessToAll")=1 THEN
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_User"
Rs.open Sql,Conn,1,1
While Not Rs.Eof
MessUser=Rs("User_Name") & "," & MessUser
Rs.moveNext
Wend
Rs.Close
Set Rs=Nothing
Else
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_User Where User_Name='" & request.form("MessUser") & "'"
Rs.open Sql,Conn,1,1
IF Rs.recordCount<>0 THEN
MessUser=Rs("User_Name")
End IF
Rs.Close
Set Rs=Nothing
End IF
IF request.form("MessUser")="" and request.form("MessToAll")<>1 THEN
Errorst="对不起，请输入收信人名称！"
founderr=True
ElseIF MessUser="" THEN
Errorst="对不起，无此用户！"
founderr=True
ElseIF request.form("MessName")="" THEN
Errorst="对不起，请输入短信主题！"
founderr=True
ElseIF request.form("MessContent")="" THEN
Errorst="对不起，请输入短信内容！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
IF request.form("MessToAll")=1 THEN
MessUser=split(MessUser,",")
For intTemp=0 to ubound(MessUser)
Call PageMessTo(session("Loginuser"),MessUser(intTemp),1,request.form("MessName"),request.form("MessContent"))
Next
Else
Call PageMessTo(session("Loginuser"),MessUser,1,request.form("MessName"),request.form("MessContent"))
End IF
ToHistory=VisitorsForm
saveok="短信发送成功！"
Call Form_Saveok()
End IF
Case "Del"
Conn.execute "Delete From Tx_Mess Where MessId=" & Id
ToHistory=VisitorsForm
saveok="删除成功！"
Call Form_Saveok()
Case "Delall"
IF request.form("Id")="" THEN
Errorst="请选择要删除的对象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.execute "Delete From Tx_Mess Where MessId in (" & request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="删除成功！"
Call Form_Saveok()
End IF
Case "Delald"
IF request.form("MessDate")="" THEN
Errorst="请输入删除天数！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.execute "Delete From Tx_Mess Where MessDate>=dateadd('d',-" & request.form("MessDate") & ",Now())"
ToHistory=VisitorsForm
saveok="短信删除成功！"
Call Form_Saveok()
End IF
Case "Delalu"
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_User Where User_Name='" & request.form("UserName") & "'"
Rs.open Sql,Conn,1,1
IF Rs.recordCount<>0 THEN
MessUser=Rs("User_Name")
End IF
Rs.Close
Set Rs=Nothing
IF request.form("UserName")="" THEN
Errorst="请输入用户名！"
founderr=True
ElseIF MessUser="" THEN
Errorst="无此用户！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
IF request.form("To")=1 THEN
Conn.execute "Delete From Tx_Mess where MessTo='" & MessUser & "' and MessDel=0 and MessSend=1"
End IF
IF request.form("Form")=1 THEN
Conn.execute "Delete From Tx_Mess where MessForm='" & MessUser & "' and MessDel=0 and MessSend=1"
End IF
IF request.form("Goto")=1 THEN
Conn.execute "Delete From Tx_Mess where MessForm='" & MessUser & "' and MessDel=0 and MessSend=0"
End IF
IF request.form("Dell")=1 THEN
Conn.execute "Delete From Tx_Mess where MessForm='" & MessUser & "' and MessDel=1"
End IF
ToHistory=VisitorsForm
saveok="短信删除成功！"
Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -