write_back.asp

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

ASP
71
字号
<!-- #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)
}
//-->
</script>
</head>

<body>
<form name="form1" method="post" action="sendemail.asp">
  <table width="95%" border="1" align="center" bordercolor="#FF0000" bgcolor="#00FF00">
    <tr>
      <td width="60" align="center">收信人</td>
      <td><label>
        <input name="to" type="text" id="to" value="<%=my_rs("发信人")%>" size="50">
      </label></td>
    </tr>
    <tr>
      <td align="center">发信人</td>
      <td><label>
        <input name="from" type="text" id="from" value="<%=session("Username")%>" size="50">
      </label></td>
    </tr>
    <tr>
      <td align="center">主题</td>
      <td><label>
      <input name="yjzt" type="text" id="yjzt" value="Re:<%=my_rs("主题")%>" size="50">
      </label></td>
    </tr>
    <tr>
      <td align="center">内容</td>
      <td><label>
        <textarea name="yjnr" cols="50" rows="5" id="yjnr"></textarea>
      </label></td>
    </tr>
    <tr>
      <td colspan="2" align="center"><label>
        <input type="submit" name="Submit" value="发送"> 
      </label>
        <label>
        <input type="reset" name="Submit2" value="重填">
         
        <input name="Submit3" type="button" onClick="MM_callJS('self.close()')" value="关闭窗口">
      </label></td>
    </tr>
  </table>
</form>
<%my_rs.close%>
</body>
</html>

⌨️ 快捷键说明

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