chklogin.asp

基于Sabrina SecondMarket v1.0

<!--
版本：草原二手市场V1.1
本程序作者：mysql QQ:54016224 TEL:[phone]

-->
<!--#include file="include/conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/md5.asp"-->
<%
userName = toValidChar(request("username"))
pwd      = toValidChar(request("password"))
pwd      = md5(pwd)
sql      = "select * from Admin where AdminName = '"&userName&"' and AdminPwd = '"&pwd&"'"
set rs   = server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
  Randomize()
  random = rnd()*1000
  response.Cookies("check")    = md5(username&pwd&random)
  response.Cookies("admin")    = userName
  response.Cookies("pwd")      = pwd 
  response.Cookies("random")   = random 
  response.redirect("index.asp")
else
  gotoUrl("error.asp?message=您无权登陆系统")
end if
closeConn()
%>