📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="info/config.asp"-->
<%
if request.form("Submit")<>"" then
username=request.form("name") '获取用户填写的昵称
password=request.form("password") '获取用户填写的密码
Image=request.Form("radiobutton") '获取用户填写的头像
set rs=server.CreateObject("adodb.recordset")
rs.open "select password from user where name='"&username&"'",conn,1,1 '在user表中查询是否有和当前用户的昵称相同的字段
if not rs.bof and not rs.bof then '如果有这条记录
if rs("password")=password then '如果密码相同
rs.close
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from temporary",conn,1,3 '打开temporary表
rs1.addnew '在temporary表中创建一条新纪录
rs1("name")=username '将用户填写的昵称放在temporary表中新纪录的name字段
rs1("head")="images/"&Image '将用户选择的头像放在temporary表中新纪录的head字段
rs1("adddate")=now() '将当前时间放在temporary表中新纪录的adddate字段
session("name")=username '将用户填写的昵称放在session("name")中
rs1.update
rs1.close
response.Redirect "chat.asp" '跳到chat.asp页面
else '如果密码不相同,存在两种情况,可能是这个用户写错了密码,也可能是个新用户,他想要的昵称别人已经使用了
Call MsgBox("这个昵称已经存在请换一个,或者你输入了错误的密码!","login.asp") '此处调用config.asp中作者自定义的函数
response.End()
end if
else '如果在user表中没有和当前用户的昵称相同的记录
rs.close
rs.open "select * from user",conn,1,3
rs.addnew '在user表中打开一条新纪录
rs("name")=username '将用户填写的昵称放在user表中新纪录的name字段
rs("password")=password '将用户填写的密码放在user表中新纪录的password字段
rs("head")="images/"&Image '将用户选择的头像放在user表中新纪录的head字段
session("name")=username
rs.update
rs.close
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from temporary",conn,1,3
rs1.addnew '在temporary表中创建一条新纪录
rs1("name")=username '将用户填写的昵称放在temporary表中新纪录的name字段
rs1("head")="images/"&Image '将用户选择的头像放在temporary表中新纪录的head字段
rs1("adddate")=now() '将当前时间放在temporary表中新纪录的adddate字段
rs1.update
rs1.close
response.Redirect "chat.asp" '跳到chat.asp页面
end if
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>数据库形式的聊天室(10分钟不说话该用户下线)</title>
</head>
<script language="javascript">
function check(form1){
if (form1.name.value=="")
{alert("请输入昵称!");form1.name.focus();return false;}
if (form1.password.value=="")
{alert("请输入密码!");form1.password.focus();return false;}
}
</script>
<body>
<form name="form1" method="post" action="">
<table height="404" border="0" align="center">
<tr>
<td width="32" height="112"><input name="radiobutton" type="radio" value="Image1.gif" checked></td>
<td width="95"><img src="images/Image1.gif" width="90" height="120"></td>
<td width="32"><input type="radio" name="radiobutton" value="Image2.gif"></td>
<td width="95"><img src="images/Image2.gif" width="90" height="120"></td>
<td width="32"><input type="radio" name="radiobutton" value="Image3.gif"></td>
<td width="95"><img src="images/Image3.gif" width="90" height="120"></td>
</tr>
<tr>
<td height="119"><input type="radio" name="radiobutton" value="Image4.gif"></td>
<td><img src="images/Image4.gif" width="90" height="120"></td>
<td><input type="radio" name="radiobutton" value="Image5.gif"></td>
<td><img src="images/Image5.gif" width="90" height="120"></td>
<td><input type="radio" name="radiobutton" value="Image6.gif"></td>
<td><img src="images/Image6.gif" width="90" height="120"></td>
</tr>
<tr>
<td height="95"><input type="radio" name="radiobutton" value="Image7.gif"></td>
<td><img src="images/Image7.gif" width="90" height="120"></td>
<td><input type="radio" name="radiobutton" value="Image8.gif"></td>
<td><img src="images/Image8.gif" width="90" height="120"></td>
<td><input type="radio" name="radiobutton" value="Image9.gif"></td>
<td><img src="images/Image9.gif" width="90" height="120"></td>
</tr>
<tr>
<td height="33" colspan="6">昵称:
<input name="name" type="text" id="name2" size="15">
密码:
<input name="password" type="password" id="password2" size="15">
<input type="submit" name="Submit" value="我要聊天" onClick="return check(form1)"></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -