📄 p_write.asp
字号:
<%
if session("user")="" then
response.write "<script LANGUAGE='javascript'>alert('对不起，登陆超时！');</script>"
response.redirect "index.asp"
end if
%>
<!-- #include file="conn.asp" -->
<!-- #include file="function.asp" -->
<html>
<head>
<link href=css.css rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>中国人民大学二手交易网-写小纸条</title></head>
<body>
<div align="center">
<!-- #include file="head.asp" -->
<!-- #include file="menu.asp" -->
<%
action=request.QueryString("action")
if action="save" then
reciever=ReplaceBadChar(request("reciever"))
content=ReplaceBadChar(request("content"))
uname=session("user")
sql="select * from [user] where user_name='"&reciever&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
message="该用户不存在！请核实后再填写！"
elseif uname=reciever then
message="自己不能给自己写小纸条！"
else
sql="insert into piece(piece_content,piece_sender,piece_reciever,piece_time,piece_isread) values('"&gotTopic(content,200)&"','"&uname&"','"&reciever&"','"&now()&"','否')"
conn.execute(sql)
sql="update config set piece_count=piece_count+1"
conn.execute(sql)
message="发送成功！"
end if
rs.close
elseif action="reply" then
reply=request("sender")
end if
%>
<table width="760" border="0" cellpadding="0" cellspacing="0" >
<!--DWLayoutTable-->
<tr>
<td width="48" height="21"> </td>
<td width="111"> </td>
<td width="53"> </td>
<td width="509"><font color="#FF0000"><%=message%></font></td>
<td width="39"> </td>
</tr>
<tr>
<td height="228"></td>
<td valign="top"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#00FFFF">
<!--DWLayoutTable-->
<tr>
<td width="107" height="27" align="center" valign="middle"><strong>用户面板</strong></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><a href="panel.asp">我发布的信息</a></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><a href="p_unread.asp">未读小纸条</a></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><a href="p_recieve.asp">收到的小纸条</a></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><strong>写小纸条</strong></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><a href="putout.asp">发布信息</a></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><a href="p_pw.asp">修改密码</a></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><a href="quit.asp">退出登陆</a></td>
</tr>
<tr>
<td height="51" valign="top" bgcolor="#FFFFFF"><!--DWLayoutEmptyCell--> </td>
</tr>
</table></td>
<td></td>
<td rowspan="2" valign="top"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#66CCFF">
<!--DWLayoutTable-->
<tr>
<td width="505" height="24" valign="middle" bgcolor="#00FFFF"> <div align="center"><strong>写小纸条</strong></div></td>
</tr>
<tr>
<td height="94" valign="top" bgcolor="#FFFFFF"><form name="form1" method="post" action="p_write.asp?action=save">
<table width="100%" height="160" border="0">
<tr>
<td width="15%"> </td>
<td width="16%"> </td>
<td width="42%"> </td>
<td width="27%"> </td>
</tr>
<tr>
<td height="26"> </td>
<td>接收人：</td>
<td><input type="text" name="reciever" value="<%=reply%>"></td>
<td>*填写站内用户名</td>
</tr>
<tr>
<td height="72"> </td>
<td>内容：</td>
<td><textarea name="content" cols="40" rows="6"></textarea></td>
<td>*最多200字，多余将被系统截去</td>
</tr>
<tr>
<td height="20"> </td>
<td> </td>
<td><input type="submit" name="Submit" value="发送"></td>
<td> </td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td height="46" valign="top" bgcolor="#00FFFF"><p>说明：<br>
1.暂时没有说明</p></td>
</tr>
</table></td>
<td></td>
</tr>
<tr>
<td height="10"></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="61"> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<!-- #include file="foot.asp" -->
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -