📄 nickname.asp
字号:
<%
if request("task")="check" and request.form("nickname")="" then
response.write "请确认已经填写呢称！<a href=nickname.asp>返回->>></a>"
response.end
else
nickname=request.form("nickname")
session("sname")=nickname
end if
if request("task")="check" and request.form("boygirl")="" then
response.write "请确认已经填写性别一项！<a href=nickname.asp>返回->>></a>"
response.end
else
session("boygirl")=request.form("boygirl")
end if
if request("task")="check" then
dim num,save
num=request.servervariables("remote_addr")
save=instrrev(num,".")
num=mid(num,1,save) & "*"
application.lock
application("show")="<table border=0 width=500><td><font color=5555ff><b><font color=#660066>" & session("boygirl") & "</font>" & nickname & "[<font color=#990099>" & num & "</font>]" & "于" & time() & "大驾光临...</b></font></td></table>" & application("show")
application(nickname)=""
application.unlock
response.redirect "mainchat.html"
end if
%>
<html>
<head>
<title>你的呢称</title>
</head>
<body>
<form method="post" action="nickname.asp?task=check">
<p><b>你的呢称：</b>
<input type="text" name="nickname" value="" size="6">
选择性别：帅 哥<INPUT TYPE="radio" NAME="boygirl" value="帅哥 ">美 女<input type="radio" name="boygirl" value="美女">
<input type="submit" name="okbtn" value="-输入你的呢称后进入-"> </p>
</font>
</form>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -