logincheck.asp

电子商城

<%@ 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&"'"
rs.open sql,conn,1,1
IF  rs.RecordCount >=1 then
	  Session("LoginSuccess")=rs("Id")
      response.redirect "index.asp"
   else
      response.redirect "loginsb.asp?msg=用户登录失败，请输入正确帐号和密码重新登录！"
   End if  
rs.close
conn.close
%>