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="发 送">
<input name="Reset" type="reset" id="Reset" value="重 写"></td>
</tr>
<tr>
<td width="40"> </td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?