📄 my_info_show.asp
字号:
<!-- #include file="conn.asp" -->
<!--#include file="webconfig.asp"-->
<%
'url=request.servervariables("HTTP_REFERER")
if session("userid")="" then
//response.write "<script>alert('你还未登陆，或登陆已超时，请重新登陆！！');</script>"
response.write "<script>this.location.href='login_window.asp';</script>"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=webname%></title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="include/top.asp" -->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr valign="top">
<td width="1" bgcolor="#cccccc"></td>
<td width="160" height="100">
<!--#include file="include/left1.asp" -->
</td>
<td width="1" bgcolor="cccccc"></td>
<td align="center">
<!--#include file="include/search.asp" -->
<%
if session("userid")="" then
response.redirect "login_window.asp"
else
id=trim(Request.QueryString("id"))
sql="select * from Net008_infos where id="&id&" order by adddate desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,2
rs("readyn")=2
rs("click")=rs("click")+1
rs("readdate")=now()
rs.update
%>
<table width="98%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td align="center"><strong><font size="3">阅读邮件</font></strong></td>
</tr>
</table>
<table cellspacing=1 cellpadding=5 width="96%" bgcolor=#CCCCCC border=0>
<form action="my_info_modiok.asp" method="post" name="main" onSubmit="return chechform()">
<tr>
<td width="74" bgcolor="#F2F2F2">
<script language=javascript1.2>
<!--
function chechform()
{
if(main.recontent.value==""){main.recontent.focus();
alert("回复内容不能为空！");
return false;
}
}
//-->
</script>
<strong>消息标题：</strong></td>
<td width="498" bgcolor="#FFFFFF">
<%response.write rs("infotitle")%>
</td>
</tr>
<tr>
<td width="74" bgcolor="#F2F2F2"><strong>发 布 人：</strong></td>
<td bgcolor="#FFFFFF">
<%response.write rs("fromwhere")%>
<strong>发件时间：
<%=FormatDateTime(rs("adddate"),2)%>
</strong></td>
</tr>
<tr>
<td colspan="2" bgcolor="#F2F2F2"><strong>消息内容：</strong></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF" class="helptext">
<%response.write replace(rs("infocontent"),chr(13)+chr(10),"<br>")%>
</td>
</tr>
<%if rs("userid")<>"admin" then%>
<tr>
<td colspan="2" bgcolor="#F2F2F2"><strong>请您回复(请在下面输入你要回复的内容)：</strong></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF">
<textarea name="recontent" rows="8" class="input_cccccc" style="width:100%"><%=rs("recontent")%></textarea>
<input type="hidden" name="id" value="<%=rs("id")%>">
</td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<%end if%>
<td colspan="2" bgcolor="ffffff" align="center">
<%if rs("userid")<>"admin" then%>
<input type="submit" name="Submit2" value="我要回复" class="sinput">
<%end if%>
<input type="button" name="Submit222" value="返回上页" onClick="javascript:history.back()" class="sinput">
</td>
</tr>
</form>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<%end if%>
</td>
<td width="1" bgcolor="cccccc"></td>
</tr>
</table>
<!-- #include file="include/bottom.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -