?? mess.asp
字號(hào):
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<%
'***********************************************************************************
' 產(chǎn)品名稱：臺(tái)訊企業(yè)全站管理系統(tǒng)（V2006簡(jiǎn)體中文版）
' 程序開(kāi)發(fā)：HECHENn（QQ：34103037 Emial：hechenn@126.com）
' Copyright 2006 txcodes.com - All Rights Reserved.
'***********************************************************************************
IF Session("Loginuser")="" THEN
error_title="對(duì)不起，請(qǐng)先登陸，如果您不是我們的會(huì)員，請(qǐng)先注冊(cè)！"
Call Page_check(3,0)
End IF
IF Action="Newadd" THEN
IF request.form("MessUser")<>"" THEN
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")="" THEN
Errorst="對(duì)不起，請(qǐng)輸入收信人名稱！"
founderr=True
elseif MessUser="" THEN
Errorst="對(duì)不起，無(wú)此用戶！"
founderr=True
elseif request.form("MessName")="" THEN
Errorst="對(duì)不起，請(qǐng)輸入短信主題！"
founderr=True
elseif request.form("MessContent")="" THEN
Errorst="對(duì)不起，請(qǐng)輸入短信內(nèi)容！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Call PageMessTo(session("Loginuser"),MessUser,1,checkfSQLStr(request.form("MessName")),Replace(checkfSQLStr(request.form("MessContent")),CHR(10),"<BR>"))
ToHistory="javascript:window.close()"
saveok="短信發(fā)送成功！"
Call Form_Saveok()
End IF
End IF
IF Action="saveok" THEN
IF request.form("MessUser")<>"" THEN
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")="" THEN
Errorst="對(duì)不起，請(qǐng)輸入收信人名稱！"
founderr=True
elseif MessUser="" THEN
Errorst="對(duì)不起，無(wú)此用戶！"
founderr=True
elseif request.form("MessName")="" THEN
Errorst="對(duì)不起，請(qǐng)輸入短信主題！"
founderr=True
elseif request.form("MessContent")="" THEN
Errorst="對(duì)不起，請(qǐng)輸入短信內(nèi)容！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Call PageMessTo(session("Loginuser"),MessUser,0,checkfSQLStr(request.form("MessName")),Replace(checkfSQLStr(request.form("MessContent")),CHR(10),"<BR>"))
ToHistory="javascript:history.go(-1);"
saveok="短信保存成功！"
Call Form_Saveok()
End IF
End IF
IF Action="del" THEN
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Mess Where MessId=" & Id & " and MessTo='" & Session("Loginuser") & "' OR MessId=" & Id & " and MessSend=0 and MessForm='" & Session("Loginuser") & "'"
Rs.open Sql,Conn,1,3
While Not Rs.Eof
Rs("MessDel")=1
Rs.MoveNext
Wend
Rs.close
Set Rs=Nothing
ToHistory="javascript:window.close()"
saveok="刪除成功，刪除的消息將置于您的回收站內(nèi)！"
Call Form_Saveok()
End IF
Page_Name="短信 -- " & Web_Const(0)
Call Page_Head()
%>
<DIV CLASS="t_talbe2">
<DIV CLASS="t_talbeall">
<DIV CLASS="t_talbe1">
<%Call Page_MessAdd()%>
<%Select Case Action
Case "New"
%>
<form NAME=MessNew method="post" action="Mess.asp?Action=Newadd">
<DIV CLASS="t_talbe3">
收件人： <INPUT NAME="MessUser" TYPE="text" CLASS="INPUTimage1" id="MessUser" SIZE="50" maxlength="25"><br>
主 題： <INPUT NAME="MessName" TYPE="text" CLASS="INPUTimage1" id="MessName" SIZE="50" maxlength="50"><br>
內(nèi) 容： <TEXTAREA NAME="MessContent" CLASS="textareaimage" cols="50" rows="8" id="MessContent"></TEXTAREA><br><br>
<DIV CLASS="table-tstd"><INPUT TYPE="image" src="Skins/Blue/go.gif" NAME="Ok" ALIGN="absmiddle"> <INPUT TYPE="image" src="Skins/Blue/save.gif" NAME="Ok" onClick="this.form.action='Mess.asp?Action=saveok';this.form.submit()" ALIGN="absmiddle"> <INPUT TYPE="image" src="Skins/Blue/cl.gif" NAME="Ok" ALIGN="absmiddle" onClick="vbscript:location.reload"></DIV>
</DIV>
</form>
<%Case "Read"
Dim MessFtName,MessToName
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Mess where MessId=" & Id
Rs.open Sql,Conn,1,3
IF Rs("MessForm")=session("Loginuser") THEN
MessFtName=Rs("MessTo")
Else
Rs("MessExamines")=1
Rs.UpDate
MessFtName=Rs("MessForm")
End IF
MessToName=Rs("MessForm")
%>
<DIV CLASS="t_talbe3">
<B><%=MessFtName%></B>于<%=YearDami(Rs("MessDate"))%>給您發(fā)送了一條信息：
<DIV CLASS="type-height2"></DIV>
<B>信息主題：<%=Rs("MessName")%></B><br><%=Rs("MessContent")%>
<%Rs.Close
Set Rs=Nothing
%>
</DIV>
<%Case "MessTo"
Set Rs_T=server.createobject("adodb.recordset")
Sql="Select * From Tx_Mess where MessId=" & Id
Rs_T.open Sql,Conn,1,1
%>
<form NAME=MessNew method="post" action="Mess.asp?Action=Newadd">
<DIV CLASS="t_talbe3">
收件人： <INPUT NAME="MessUser" TYPE="text" CLASS="INPUTimage1" VALUE="<%=Rs_T("MessForm")%>" id="MessUser" SIZE="50" maxlength="25"><br>
主 題： <INPUT NAME="MessName" TYPE="text" CLASS="INPUTimage1" VALUE="Re:<%=Rs_T("MessName")%>" id="MessName" SIZE="50" maxlength="50"><br>
內(nèi) 容： <TEXTAREA NAME="MessContent" CLASS="textareaimage" cols="50" rows="8" id="MessContent">==== 您在<%=YearDami(Rs_T("MessDate"))%>來(lái)信寫到：====<%=CHR(10)%><%=Rs_T("MessContent")%><%=CHR(10)%>==============================</TEXTAREA><br><br>
<DIV CLASS="table-tstd"><INPUT TYPE="image" src="Skins/Blue/go.gif" NAME="Ok" ALIGN="absmiddle"> <INPUT TYPE="image" src="Skins/Blue/save.gif" NAME="Ok" onClick="this.form.action='Mess.asp?Action=saveok';this.form.submit()" ALIGN="absmiddle"> <INPUT TYPE="image" src="Skins/Blue/cl.gif" NAME="Ok" ALIGN="absmiddle" onClick="vbscript:location.reload"></DIV>
</DIV>
</form>
<%Case "MessFw"
Set Rs_T=server.createobject("adodb.recordset")
Sql="Select * From Tx_Mess where MessId=" & Id
Rs_T.open Sql,Conn,1,1
%>
<form NAME=MessNew method="post" action="Mess.asp?Action=Newadd">
<DIV CLASS="t_talbe3">
收件人： <INPUT NAME="MessUser" TYPE="text" CLASS="INPUTimage1" id="MessUser" SIZE="50" maxlength="25"><br>
主 題： <INPUT NAME="MessName" TYPE="text" CLASS="INPUTimage1" VALUE="Re:<%=Rs_T("MessName")%>" id="MessName" SIZE="50" maxlength="50"><br>
內(nèi) 容： <TEXTAREA NAME="MessContent" CLASS="textareaimage" cols="50" rows="8" id="MessContent">========== 下面是轉(zhuǎn)發(fā)信息：=========<%=CHR(10)%>原發(fā)件人：<%=Rs_T("MessForm")%><%=CHR(10)%>原件內(nèi)容：<%=Rs_T("MessContent")%><%=CHR(10)%>==============================</TEXTAREA><br><br>
<DIV CLASS="table-tstd"><INPUT TYPE="image" src="Skins/Blue/go.gif" NAME="Ok" ALIGN="absmiddle"> <INPUT TYPE="image" src="Skins/Blue/save.gif" NAME="Ok" onClick="this.form.action='Mess.asp?Action=saveok';this.form.submit()" ALIGN="absmiddle"> <INPUT TYPE="image" src="Skins/Blue/cl.gif" NAME="Ok" ALIGN="absmiddle" onClick="vbscript:location.reload"></DIV>
</DIV>
</form>
<%End Select%>
</DIV>
</DIV>
</DIV>
<%
Call Page_Bottom()
Call CloseConn()
%>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -