⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 index.asp

📁 这是我个人用ASP制作 的一个动态网页,也是我的主页,谢谢大家的使用~~~`
💻 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 + -