📄 mess.asp

📁 台讯企业精美版.适合企事业单位用.方便易学.不会做网站也能建网站.
💻 ASP
字号:
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037　Emial：hechenn@126.com）
' Copyright 2006 txcodes.com - All Rights Reserved. 
'***********************************************************************************
IF Session("Loginuser")="" THEN
error_title="对不起，请先登陆，如果您不是我们的会员，请先注册！"
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="对不起，请输入收信人名称！"
        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
        Call PageMessTo(session("Loginuser"),MessUser,1,checkfSQLStr(request.form("MessName")),Replace(checkfSQLStr(request.form("MessContent")),CHR(10),"<BR>"))
	ToHistory="javascript:window.close()"
    saveok="短信发送成功！"
    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="对不起，请输入收信人名称！"
        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
        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="删除成功，删除的消息将置于您的回收站内！"
        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>
        内　容： <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"))%>给您发送了一条信息：
		<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>
        内　容： <TEXTAREA  NAME="MessContent" CLASS="textareaimage" cols="50" rows="8" id="MessContent">==== 您在<%=YearDami(Rs_T("MessDate"))%>来信写到：====<%=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>
        内　容： <TEXTAREA  NAME="MessContent" CLASS="textareaimage" cols="50" rows="8" id="MessContent">========== 下面是转发信息：=========<%=CHR(10)%>原发件人：<%=Rs_T("MessForm")%><%=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>
		<%End Select%>

        </DIV>
        </DIV>
        </DIV>
    <%
    Call Page_Bottom()
    Call CloseConn()
    %>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -