📄 send.asp
字号:
<%@ language=vbscript %>
<%
if session("username")="" then
response.redirect "sendlog.asp"
else
lname=session("username")
set conn=server.createobject("adodb.connection")
dbpath=server.mappath("mis.mdb")
conn.open "driver={microsoft access driver (*.mdb)};dbq=" & dbpath
sql="select * from mis where id="&request("accid")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
accname=rs("username")
%>
<html>
<head>
<title>发送短消息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="config.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="bg01.gif">
<form name="form1" method="post" action="sendsave.asp">
<table width="75%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="14%">接收人：</td>
<td width="86%">
<input type="text" name="accname" value="<%=accname%>">
</td>
</tr>
<tr>
<td width="14%"> </td>
<td width="86%"> </td>
</tr>
<tr>
<td width="14%">发送人：</td>
<td width="86%">
<input type="text" name="sendname" value="<%=lname%>">
</td>
</tr>
<tr>
<td width="14%"> </td>
<td width="86%"> </td>
</tr>
<tr>
<td width="14%">消息内容：(不超过150字)</td>
<td width="86%">
<textarea name="content" rows="5" cols="50"></textarea>
</td>
</tr>
<tr>
<td width="14%" rowspan="2"> </td>
<td width="86%"> </td>
</tr>
<tr>
<td width="86%">
<input type="submit" name="Submit" value="发送">
<input type="reset" name="Submit2" value="重写">
</td>
</tr>
</table>
</form>
</body>
</html>
<%
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -