chklogin.asp

二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台

<!--#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()
%>