email_show.asp

来自「自己设计的人事工资管理系统。欢迎大家相互学习。」· ASP 代码 · 共 77 行

ASP
77
字号
<!-- #include file="conn.asp"-->
<%
id=request("yjid")
sqlstr="select * from 电子邮件 where 编号=" & id
my_rs.open sqlstr,my_Conn,1,3
%>
<html>
<head>
<title>电子邮件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body,td,th {
	font-size: 9pt;
}
body {
	background-image: url(image/bg.gif);
}
-->
</style>
<script type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //v2.0
  return eval(jsStr)
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
</head>

<body>
<div align="center">
<table width="95%" border="1" align="center" bordercolor="#FF0000" bgcolor="#00FF00">
  <tr>
    <td width="60">发信人</td>
    <td width="387"><label>
      <input name="textfield" type="text" value="<%=my_rs("发信人")%>" size="42">
    </label></td>
  </tr>
  <tr>
    <td>发信时间</td>
    <td><label>
      <input name="textfield2" type="text" value="<%=my_rs("发信时间")%>" size="42">
    </label></td>
  </tr>
  <tr>
    <td>主题</td>
    <td><label>
      <input name="textfield3" type="text" value="<%=my_rs("主题")%>" size="42">
    </label></td>
  </tr>
  <tr>
    <td>内容</td>
    <td><label>
      <textarea name="textarea" cols="42" rows="5"><%=my_rs("内容")%></textarea>
    </label></td>
  </tr>
  <tr>
    <td colspan="2" align="center"><label>
      <input name="Submit" type="button" onClick="MM_openBrWindow('write_back.asp?yjid=<%=my_rs("编号")%>','','width=500,height=250')" value="回复">
 
<input name="Submit2" type="button" onClick="MM_openBrWindow('delete_email.asp?yjid=<%=my_rs("编号")%>','','width=200,height=100')" value="删除邮件"> 
      <input name="Submit3" type="button" onClick="MM_callJS('self.close()')" value="关闭窗口">
    </label></td>
    </tr>
</table>
</div>
<%
my_rs("新")="no"
my_rs.update
my_rs.close
%>
</body>
</html>

⌨️ 快捷键说明

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