📄 sendm.asp
字号:
<%Response.Expires=0
DIM Cookie
Cookie=Session.SessionID
if Cookie="" then Response.Write "没有权限" : Response.end
%>
<!--#include file="conn.asp"-->
<%
if Session("usernickname")="" then
sql="select username,grade,score,times from Chatuser where SessionID='"&Cookie&"'"
set rs=conn.execute(sql)
if rs.eof then
Session("usernickname")="您是未注册用户"
Session("class")=0
Session("score")=0
Session("times")=0
else
Session("usernickname")=rs("username")
Session("class")=rs("grade")
Session("score")=rs("score")
Session("times")=rs("times")
end if
rs.Close
end if
%>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<title>飞鸽传书</title>
<style type="text/css">
<!--
body {font-size : 9pt;}
.p9 {font-size: 9pt;}
.p10 {font-size: 10.5pt;}
-->
</style>
</head>
<body bgcolor="#EBF4D5">
<%username=Session("usernickname")
if username="您是未注册用户" then
Response.write "<br><br><br><p align='center'><font color=red class=p10>您是未注册用户</font></p>"
Response.write "<p align='center'><font color=black class=p10>无法使用消息功能！</font><BR><br>"
Response.Write "<font color=blue class=p10><a href='javascript:window.close();'>关 闭 窗 口</a></font></p></body>"
Response.end
end if
%>
<form method="POST" action="addmessage.asp">
<font color="red"><%=username%></font> 留言 [当对方进入聊天室时将弹出您的留言]<hr>请输入对方匿称:<br><input type="text" name="towhom" size="10" class="p9"><br>
留言：<br><textarea rows="8" name="text" cols="53" class="p9"></textarea><br>
<input type="submit" value=" -- 提交留言-- " name="B1" class="p9">
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -