write_message.asp

来自「ASPSQL企业网络管理系统」· ASP 代码 · 共 43 行

ASP
43
字号
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/config.asp" -->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<form action="send_message.asp" method="post" name="frm_send">
  <table width="400" border="0" cellspacing="1" cellpadding="1" align="center">
    <tr> 
      <td width="40" height="16">接收者</td>
<%
str = "select id,name from member where id = " & Request("receiver")
session("rs").open str,session("conn")
if not session("rs").eof then
%>
      <td><input name="receiver_name" type="text" id="receiver_name" readonly="true" style="width:350;" value="<%= session("rs")("name") %>"><input name="receiver" type="hidden" value="<%= session("rs")("id") %>"></td>
<%
end if
session("rs").close
%>
    </tr>
    <tr> 
      <td width="40" valign="top">内容</td>
      <td><textarea name="message" id="message" style="width:350;height:100;"></textarea></td>
    </tr>
    <tr align="center"> 
      <td colspan="2"><input type="submit" name="Submit" value="发  送">
        &nbsp;&nbsp;&nbsp;&nbsp; 
        <input name="Reset" type="reset" id="Reset" value="重  写"></td>
    </tr>
    <tr> 
      <td width="40">&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
  </table>
</form>

</body>
</html>

⌨️ 快捷键说明

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