regchk.asp

信息管理系统 管理页面:admin/index.asp 用户和密码都是admin

<!--#include file=conn.asp-->
<!--#include file=err.asp-->
<!--#include file=ipt.asp-->
<%sub errijob(id)%>
<link rel="stylesheet" type="text/css" href="1.CSS">
<title> 错误页面</title>
<style type="text/css">
<!--
.style2 {font-size: medium}
-->
</style>
<div align="center">
  <center>
<table cellSpacing="0" cellPadding="0" width="500" border="0" style="border-collapse: collapse" bordercolor="#111111">
  <tr>
    <td width="173">
    <div align="center">
      <img height="80" alt src="images/_login_ERR_r5_c3.gif" width="160" border="0" name="_login_ERR_r5_c3"></div>
    </td>
    <td width="327">
    <table cellSpacing="0" cellPadding="3" width="100%" border="0">
      <tr>
        <td width="100%"><div align="left"><span class="greenfont style2">　</span></div></td>
      </tr>
      <tr>
        <td>

        </td>
      </tr>
      <tr>
        <td>　
          <div align="left"><span class="greenfont style2"><strong>帐号已存在　请换帐号注册</strong></span></div></td>
      </tr>
      <tr>
        <td><a href="javascript:history.back(-1);">
        <img height="15" src="images/_back.gif" width="56" border="0"></a></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
  </center>
</div>
<%end sub%>


<title>会员注册</title>
<%
dim username,password,rs,sql
username=trim(request("username"))
password=trim(request("password"))
if username="" or password="" then
call errijob(0)
response.end
end if
chkijob(username)
if nothaveChinese(username)=false then
call errijob(3)
response.end
end if

set rs=server.createobject("adodb.recordset")
sql="select username,password from [user] where username='"&username&"' "
rs.open sql,conn,1,1
if not rs.eof or not rs.bof then
 if trim(rs("password"))=password then
 call errijob(23)
 response.end
 end if
  if trim(rs("username"))=username then
 call errijob(22)
 response.end
 end if
 call errijob(24)
 response.end
else
%>
<!--#include file=reg1.asp-->
<%
end if
rs.close
set rs=nothing
closedb
%>