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

📄 login.asp

📁 用asp做的一个小的聊天程序
💻 ASP
字号:
<!-- #include file=cn.asp -->

<HTML>
<HEAD>
<TITLE> 登录 </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<script language =vbscript >
sub checkuser()
dim name,password
name=trim(document.form1.txtusername.value) 
password=trim(document.form1.txtpassword.value) 
if name="" then
	msgbox "用户名不能为空,请输入用户名?"
else 
	if password="" then
	msgbox "密码不能为空,请输入密码?"
	else
		document.form1.action ="detail.asp"
		document.form1.method ="post"
		document.form1.submit()
		
		end if
	end if 
end sub
</script>

</HEAD>


<BODY bgColor=darkturquoise>
<h1 align =center ><font color=#ff0099>醒目聊天室</font></h1>
<TABLE style="WIDTH: 280px; HEIGHT: 192px" border=1 borderColor=white borderColorDark=#00ccff borderColorLight=white align="center">
  <FORM METHOD=post ACTION="" id=form1 name="form1">&nbsp; 
  <TBODY style="FONT-SIZE: x-small" >
  <TR>
    <TD colSpan=2 align=middle style="FONT-SIZE: medium">登&nbsp;&nbsp; 录</TD></TR>
  <TR>
    <TD align=middle>用户名</TD>
    <TD><INPUT type=text  name="txtusername" 
      align=left></TD></TR>
  <TR>
    <TD align=middle>密码</TD>
    <TD><INPUT type=password align=left name="txtpassword"
     ></TD></TR>
  <TR>
    <TD align=middle>cookies</TD>
    <TD><SELECT style="WIDTH: 122px" 
      id=select1 name=selectSave> 
      <OPTION selected>不保存</OPTION>
	  <OPTION >记住密码</OPTION>
	  <OPTION >保存所有记录</OPTION>
	 
	  </SELECT></TD></TR>
  <TR>
    <TD  colSpan=2 align=middle><INPUT type=button name="bnt1" value="确定" onclick="checkuser" >&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;<INPUT type=reset value="重置">&nbsp;&nbsp;&nbsp;&nbsp; 
      &nbsp;<INPUT type="button" value="注册" id=button1 name=button1 onclick=window.location.href("enroll.asp")></TD></TR>
</FORM></TBODY>
</TABLE>
</BODY>
</HTML>


⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -