📄 check.asp

📁 ASP仿QQ程序 web版的

💻 ASP

字号:

<!--#include file="right.asa" -->
<head>
<link href="main.css" rel="stylesheet" type="text/css">
<title>登陆失败</title>
<script language="JavaScript" src="js/open.js"></script>
</head>
<body oncontextmenu="return false" ondragstart="return false"><div align="center">
<%
nmb=trim(request("nmb"))
pwd=trim(request("pwd"))
sql="select * from userinfo where user_id="&nmb&" and pwd='"&pwd&"'"
on error resume next
rs.open sql,conn,1,3
if rs.eof or rs.bof then
%>
<br>
  <table width="270" border="0">
    <tr> 
      <td width="73" height="28" align="center"><img src="image/skin/loginoff.gif" width="60" height="60"></td>
      <td width="187" align="center">用户名或密码错误！</td>
    </tr>
    <tr> 
      <td colspan="2" align="center"><hr width="95%">
        <input name="button" type="button" class="button1" onClick="document.location.href='login.asp'" value=" 重登陆 ">
        <input type="button" class="button1" onClick="window.close()" value="　取消　">
        <input name="button3" type="button" class="button1" onClick="document.location.href='regask.asp'" value="　注册　"> 
        <hr width="95%"></td>
    </tr>
  </table>
  <br>
<%else
session.Timeout=2
session("login")=true
session("nmb")=rs("user_id")
session("name")=rs("name")
rs("online")=1
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
thesoft=Request.ServerVariables("HTTP_USER_AGENT")
if instr(thesoft,"MSIE 6") then
response.Write("<script language='JavaScript'>window.open('main.asp','"&session("nmb")&"','width=92px,height=440px,resizable=1');window.close();</script>")
else%>
<script language="JavaScript">
document.write("<br>系统加载中...<br>3秒钟后自动进入<br>");
setTimeout("window.location.reload()",1000)
noBorderWin('main.asp',92,464,'#DEDBDE','#DEDBDE','#000000','<%=session("nmb")%>',0)
window.close();
</script>
<%
end if
end if
%>
</div>
</body>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -