开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
MessageEdit.asp
资源名称：1.rar　[点击查看]
上传用户：yrf020
上传日期：2007-07-24
资源大小：1287k
文件大小：9k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

MessageEdit.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  3. <% Option Explicit %>
  4. <HTML>
  5. <HEAD>
  6. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
  7. <META NAME="copyright" CONTENT="Copyright 2006-2008 - Hokilly.com-STUDIO" />
  8. <META NAME="Author" CONTENT="红金羚软件,www.hokilly.com" />
  9. <META NAME="Keywords" CONTENT="" />
  10. <META NAME="Description" CONTENT="" />
  11. <TITLE>审核、修改、回复留言</TITLE>
  12. <link rel="stylesheet" href="Images/CssAdmin.css">
  13. <script language="javascript" src="../Script/Admin.js"></script>
  14. </HEAD>
  15. <!--#include file="../Include/Const.asp" -->
  16. <!--#include file="../Include/ConnSiteData.asp" -->
  17. <!--#include file="CheckAdmin.asp"-->
  18. <%
  19. Dim SERVER_NAME
  20. SERVER_NAME=trim(Request.ServerVariables("SERVER_NAME"))
  21. if  (SERVER_NAME= ""&chr(119)&chr(119)&chr(119)&chr(46)&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&"")or(SERVER_NAME=  ""&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&"")or(SERVER_NAME=  ""&chr(108)&chr(111)&chr(99)&chr(97)&chr(108)&chr(104)&chr(111)&chr(115)&chr(116)&"")or(SERVER_NAME=  ""&chr(49)&chr(50)&chr(55)&chr(46)&chr(48)&chr(46)&chr(48)&chr(46)&chr(49)&"") then
  22. if Instr(session("AdminPurview"),"|92,")=0 then 
  23.   response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  24.   response.end
  25. end if
  26. '========判断是否具有管理权限
  27. %>
  28. <BODY>
  29. <% 
  30. dim Result
  31. Result=request.QueryString("Result")
  32. dim ReplyContent,ReplyTime,ID,MesName,Content,ViewFlagCh,SecretFlag
  33. dim mLinkman,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail,AddTime
  34. ID=request.QueryString("ID")
  35. call MesEdit() 
  36. %>
  37. <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6ab6b6">
  38.   <tr>
  39.     <td height="24" nowrap><font color="#FFFFFF"><img src="Images/Explain.gif" width="18" height="18" border="0" align="absmiddle">&nbsp;<STRONG>留言信息：审核，修改，回复留言信息相关的内容</STRONG></font></td>
  40.   </tr>
  41.   <tr>
  42.     <td height="24" align="center" nowrap  bgcolor="#eafefe"><a href="MessageList.asp" onClick='changeAdminFlag("留言信息列表")'>查看留言信息</a><font color="#0000FF">&nbsp;|&nbsp;</font><a href="SetSite.asp#Message" target="mainFrame" onClick='changeAdminFlag("网站信息设置")'>设置是否自动审核</a></td>
  43.   </tr>
  44. </table>
  45. <br>
  46. <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6ab6b6">
  47.   <form name="editForm" method="post" action="MessageEdit.asp?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>">
  48.   <tr>
  49.     <td height="24" nowrap bgcolor="#eafefe"><table width="100%" border="0" cellpadding="0" cellspacing="0" id=editProduct idth="100%">
  51.       <tr>
  52.         <td width="160" height="20" align="right">&nbsp;</td>
  53.         <td>&nbsp;</td>
  54.       </tr>
  55.       <tr>
  56.         <td height="20" align="right">留言主题：</td>
  57.         <td><input name="MesName" type="text" class="textfield" id="MesName" style="WIDTH: 240;" value="<%=MesName%>">&nbsp;*</td>
  58.       </tr>
  59.       <tr>
  60.         <td height="20" align="right" valign="top">留言内容：
  61.         <td><textarea name="Content" rows="6" class="textfield" id="Content" style="WIDTH: 76%;"><%=Content%></textarea>&nbsp;*</td>
  62.       </tr>
  63.       <tr>
  64.         <td height="20" align="right">留&nbsp;言&nbsp;者：</td>
  65.         <td><%=mLinkman%></td>
  66.       </tr>
  67.       <tr>
  68.         <td height="20" align="right">单位名称：</td>
  69.         <td><input name="Company" type="text" class="textfield" id="Company" style="WIDTH: 240;" value="<%=mCompany%>" readonly></td>
  70.       </tr>
  71.       <tr>
  72.         <td height="20" align="right">通信地址：</td>
  73.         <td><input name="Address" type="text" class="textfield" id="Address" style="WIDTH: 240;" value="<%=mAddress%>" readonly></td>
  74.       </tr>
  75.       <tr>
  76.         <td height="20" align="right">邮　　编：</td>
  77.         <td><input name="ZipCode" type="text" class="textfield" id="ZipCode" style="WIDTH: 120" value="<%=mZipCode%>" readonly></td>
  78.       </tr>
  79.       <tr>
  80.         <td height="20" align="right">电　　话：</td>
  81.         <td><input name="Telephone" type="text" class="textfield" id="Telephone" style="WIDTH: 240;" value="<%=mTelephone%>" readonly></td>
  82.       </tr>
  83.       <tr>
  84.         <td height="20" align="right">传　　真：</td>
  85.         <td><input name="Fax" type="text" class="textfield" id="Fax" style="WIDTH: 120" value="<%=mFax%>" readonly></td>
  86.       </tr>
  87.       <tr>
  88.         <td height="20" align="right">移动电话：</td>
  89.         <td><input name="Mobile" type="text" class="textfield" id="Mobile" style="WIDTH: 120" value="<%=mMobile%>" readonly></td>
  90.       </tr>
  91.       <tr>
  92.         <td height="20" align="right">电子邮箱：</td>
  93.         <td><input name="Email" type="text" class="textfield" id="Email" style="WIDTH: 240" value="<%=mEmail%>" readonly></td>
  94.       </tr>
  95.       <tr>
  96.         <td height="20" align="right">状　　态：</td>
  97.         <td><input name="SecretFlag" type="checkbox" id="SecretFlag" value="1" style="HEIGHT: 13px;WIDTH: 13px;" <%if SecretFlag then response.write ("checked")%>>&nbsp;悄悄话&nbsp;<input name="ViewFlagCh" type="checkbox" id="ViewFlagCh" value="1" style="HEIGHT: 13px;WIDTH: 13px;" <%if ViewFlagCh then response.write ("checked")%>>&nbsp;通过</td>
  98.       </tr>
  99.       <tr>
  100.         <td height="20" align="right">留言时间：</td>
  101.         <td><input name="AddTime" type="text" class="textfield" id="AddTime" style="WIDTH: 240" value="<%=AddTime%>" readonly></td>
  102.       </tr>
  103.       <tr>
  104.         <td height="20" align="right">回复时间：</td>
  105.         <td><input name="ReplyTime" type="text" class="textfield" id="ReplyTime" style="WIDTH: 240" value="<%=ReplyTime%>" readonly></td>
  106.       </tr>
  107.       <tr>
  108.         <td height="20" align="right" valign="top">回复内容：</td>
  109.         <td><textarea name="ReplyContent" rows="6" class="textfield" id="ReplyContent" style="WIDTH: 76%;"><%=ReplyContent%></textarea></td>
  110.       </tr>
  111.       <tr>
  112.         <td height="30" align="right">&nbsp;</td>
  113.         <td valign="bottom"><input name="submitSaveEdit" type="submit" class="button"  id="submitSaveEdit" value="保存" style="WIDTH: 80;" ></td>
  114.       </tr>
  115.       <tr>
  116.         <td height="20" align="right">&nbsp;</td>
  117.         <td valign="bottom"></td>
  118.       </tr>
  119.     </table></td>
  120.   </tr>
  121.   </form>
  122. </table>
  123. </body>
  124. </html> 
  125. <%
  126. else
  127. response.write "<meta http-equiv=refresh content=0;URL="&chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&chr(47)&chr(114)&chr(101)&chr(103)&chr(46)&chr(97)&chr(115)&chr(112)&">"
  128. response.end%>
  129. <%end if%>
  130. <%
  131. sub MesEdit()
  132.   dim Action,rsCheckAdd,rs,sql
  133.   Action=request.QueryString("Action")
  134.   if Action="SaveEdit" then '保存编辑管理员信息
  135.     set rs = server.createobject("adodb.recordset")
  136.     if len(trim(request.Form("MesName")))<1 then
  137.       response.write ("<script language=javascript> alert('""留言主题""为必填项目！');history.back(-1);</script>")
  138.       response.end
  139.     end if
  140.     if len(trim(request.Form("Content")))<1 then
  141.       response.write ("<script language=javascript> alert('""留言内容""为必填项目！');history.back(-1);</script>")
  142.       response.end
  143.     end if
  144. if Result="Modify" then '修改网站管理员
  145.       sql="select * from CompanyCMS_Message where ID="&ID
  146.       rs.open sql,conn,1,3
  147.       rs("MesName")=trim(Request.Form("MesName"))
  148.       rs("Content")= StrReplace(Request.Form("Content"))
  149.   if Request.Form("ViewFlagCh")=1 then
  150.         rs("ViewFlagCh")=Request.Form("ViewFlagCh")
  151.   else
  152.         rs("ViewFlagCh")=0
  153.   end if
  154.   if Request.Form("SecretFlag")=1 then
  155.         rs("SecretFlag")=Request.Form("SecretFlag")
  156.   else
  157.         rs("SecretFlag")=0
  158.   end if
  159.   rs("ReplyContent")=StrReplace(Request.Form("ReplyContent"))
  160.   if not (trim(request.Form("ReplyContent"))="" or trim(request.Form("ReplyTime"))<>"") then
  161.     rs("ReplyTime")=now()
  162.       end if
  163. end if
  164. rs.update
  165. rs.close
  166.     set rs=nothing 
  167.     response.write "<script language=javascript> alert('成功审核、编辑、回复留言信息！');changeAdminFlag('留言信息列表');location.replace('MessageList.asp');</script>"
  168.   else '提取留言信息
  169. if Result="Modify" then
  170.       set rs = server.createobject("adodb.recordset")
  171.       sql="select * from CompanyCMS_Message where ID="& ID
  172.       rs.open sql,conn,1,1
  173.   MesName=rs("MesName")
  174.   Content=ReStrReplace(rs("Content"))
  175.   mLinkman=GuestInfo(rs("MemID"),rs("Linkman"),rs("Sex"))
  176.   mCompany=rs("Company")
  177.   mAddress=rs("Address")
  178.   mZipCode=rs("ZipCode")
  179.   mTelephone=rs("Telephone")
  180.   mFax=rs("Fax")
  181.   mMobile=rs("Mobile")
  182.   mEmail=rs("Email")
  183.   ViewFlagCh=rs("ViewFlagCh")
  184.   SecretFlag=rs("SecretFlag")
  185.   AddTime=rs("AddTime")
  186.   ReplyContent=ReStrReplace(rs("ReplyContent"))
  187.   ReplyTime=rs("ReplyTime")
  188.   rs.close
  189.       set rs=nothing 
  190. end if
  191.   end if
  192. end sub
  194. function GuestInfo(ID,Guest,Sex)
  195.   Dim rs,sql
  196.   Set rs=server.CreateObject("adodb.recordset")
  197.   sql="Select * From CompanyCMS_Members where ID="&ID
  198.   rs.open sql,conn,1,1
  199.   if rs.bof and rs.eof then
  200.     GuestInfo=Guest & "&nbsp;" & Sex
  201.   else
  202.     GuestInfo="<font color='green'>会员&nbsp;</font><a href='MemEdit.asp?Result=Modify&ID="&ID&"' onClick='changeAdminFlag(""前台会员资料"")'>"&Guest&"</a>"&Sex
  203.   end if
  204.   rs.close
  205.   set rs=nothing
  206. end function 
  207. %>