admin_lookmsg.asp

一个有用的东西 希望大家喜欢 谢谢大家对本站的支持

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--===============================================================-->
<!--Mfkiqpl旅行社旅游线路预订程序源代码仅供学习或部分旅行社网站用---->
<!--任何单位或个人不得随意修改、截取其中代码或做不法用途------------->
<!--版权归属:mfkiqpl   http://www.zjjnet.com 所有-------------------->
<!--请务必保留以下版权信息------------------------------------------->
<!--作者:mfkiqpl----------------------------------------------------->
<!--QQ:31827726 mail:[e-mail]--------------------------------->
<!--主页地址:http://www.zjjnet.com----------------------------------->
<!----------------欢迎各位站长与本人小站进行友情链接----------------->
<!--===============================================================-->
<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
managemode
dim action,id
action=trim(request("action"))
id=trim(request("id"))
select case action
case "look"
lookmsg
case "del1"
delmsg
case "del"
delallmsg
case "lookserver"
lookserver
case else
response.write("<script>alert('错误的传递参数！');history.back(1);</script>")
end select

sub lookmsg
conn.execute("update message set neworold=true where id="&id)
set lok=conn.execute("select * from message where id="&id)
response.write("<table width=618 border=0 cellpadding=0 cellspacing=1 bgcolor=#CCCCCC>")
response.write("<tr bgcolor=#FFFFFF><td width=92 height=22 align=center bgcolor=#F3F3F3>姓 名：</td>")
response.write("<td width=216 height=22>　"&mfkiqpl(lok("username"))&"</td>")
response.write("<td width=92 height=22 align=center bgcolor=#F3F3F3>时 间：</td>")
response.write("<td width=218 height=22>　"&mfkiqpl(lok("msgtime"))&"</td>")
response.write("</tr><tr bgcolor=#FFFFFF>")
response.write("<td height=22 align=center bgcolor=#F3F3F3>主 题：</td>")
response.write("<td height=22 colspan=3>　"&mfkiqpl(lok("msgname"))&"</td></tr><tr bgcolor=#FFFFFF>")
response.write("<td height=82 align=center bgcolor=#F3F3F3>内 容：</td>")
response.write("<td height=82 colspan=3>　"&mfkiqpl(lok("msgtext"))&"</td></tr><tr align=center bgcolor=#FFFFFF>")
response.write("<td height=32 colspan=4><input type=button name=Submit value='后 退' onclick='javascript:history.back(1);'>　　　　")
%>
<input type=button name=Submit2 value='删 除' onclick="javascript:window.location='admin_lookmsg.asp?action=del1&id=<%=lok("id")%>';"></td>
<%response.write("</tr></table>")
closers(lok)
end sub

sub delallmsg
dim checkbox
checkbox=trim(request("checkbox"))
if checkbox="" then
response.write("<script>alert('你必须选择一项才能够进行删除操作！');history.back(1);</script>")
end if
conn.execute("delete * from message where id in("&checkbox&")")
delokmsg
end sub

sub delmsg
conn.execute("delete * from message where id in("&id&")")
delokmsg
end sub

sub delokmsg
response.write("<meta HTTP-EQUIV=refresh Content='5;url=admin_welcome.asp?action=lookmsg'>")
response.write("<table width=618 border=0 cellspacing=0 cellpadding=0><tr><td height=115><table width=291 border=0 align=center cellpadding=0 cellspacing=0><tr>")
response.write("<td width=67 height=48 align=center><img src=images/mfk13.gif width=32 height=32></td>")
response.write("<td width=224>删除操作成功！</td><tr><td height=20 colspan=2><li>此条站内短信已经删除！</li></tr></td>")
response.write("</tr><tr><td height=20 colspan=2><li>请选择其它操作，或点这里返回<a href=admin_welcome.asp?action=lookmsg>查看站内短信</a>！</li></td>")
response.write("</tr><tr><td height=20 colspan=2><li>系统5秒钟后返回查看站内短信页面！</li></td></tr></table></td></tr></table>")
end sub

sub lookserver
%><table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr align="center" bgcolor="#F7F7F7">
    <td width="229" height="25">功能描述</td>
    <td width="386" height="25">服务器变量</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 服务器的域名 </td>
    <td>　<%=Request.ServerVariables("server_name")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 服务器的IP地址</td>
    <td>　<%=Request.ServerVariables("LOCAL_ADDR")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 服务器操作系统</td>
    <td>　<%=Request.ServerVariables("OS")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 服务器解译引擎</td>
    <td>　<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 服务器软件的名称及版本</td>
    <td>　<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 服务器正在运行的端口</td>
    <td>　<%=Request.ServerVariables("server_port")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 


 服务器CPU数量

</td>
    <td>　<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 请求的物理路径</td>
    <td>　<%=Request.ServerVariables("path_translated")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 在域名根目录外的到被请求页面的路径</td>
    <td>　<%=Request.ServerVariables("path_info")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 发出request的方式</td>
    <td>　<%=Request.ServerVariables("request_method")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 


 脚本连接超时时间

</td>
    <td>　<%=Server.ScriptTimeout%>秒</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 程序被调用的路径</td>
    <td>　<%=Request.ServerVariables("script_name")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 发出request请求的远端机器的名称</td>
    <td>　<%=Request.ServerVariables("remote_host")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 发出request请求的远端机器的IP名称</td>
    <td>　<%=Request.ServerVariables("remote_addr")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 client可以request的浏览器类型</td>
    <td>　<%=Request.ServerVariables("http_user_agent")%></td>
  </tr>
</table>
<%
end sub
manageend
%>