mentlogin.asp

来自「网上商城的设计与实现」· ASP 代码 · 共 20 行

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp" -->
<%
Name = Request.form("uid")
Pwd  = Request.form("pwd")
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("UserId")
      response.redirect "ment1.asp"
   else
      response.redirect "loginsb.asp?msg=用户登录失败，请输入正确帐号和密码重新登录！"
   End if  
rs.close
conn.close
%>