logincheck.asp

123基于web的网络购物系统附毕业设计论文

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp" -->
<%
Name = Request("UserName")
Pwd  = Request("UserPass")
set Rs = Server.CreateObject("ADODB.recordset")
sql="select * from RegUser where UserId='"&Name&"'and PassWD='"&Pwd&"'"
sqltext="select * from Manage_User where UserName='" & Name & "' and PassWord='" & Pwd & "'"
rs.open sql,conn,1,1
IF  rs.RecordCount >=1 then
	  Session("LoginSuccess")=rs("UserId")
      response.redirect "default.asp"
   else
    rs.close
	rs.open sqltext,conn,1,1
	if rs.recordcount>=1 then
	  response.cookies("adminok")=true
      Response.Redirect "admin/default.asp"   
 	  response.end
      rs.close
	 else
	  Session("LoginSuccess")=0
      response.redirect "messagebox.asp?msg=用户登录失败，请输入正确帐号和密码重新登录！"
      end if 
  End if  
rs.close
conn.close
%>