logiv.asp

ASP编写的刷ALEXA的平台

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
dim ad,pa,rs,sqll
ad=request("name")
pa=md5(request("pass"))
if ad="" or pa="" then
response.write"<script languange=javascript>alert('用户名或密码还没有输入！');"
response.write"javascript:history.go(-1)</script>"
else
if trim(request.form("pass2"))=Empty or Trim(Session("GetCode"))<>trim(request.form("pass2")) then
response.write"<script languange=javascript>alert('验证码错误！');"
response.write"javascript:history.go(-1)</script>"
else
set rs=server.CreateObject("adodb.recordset")
sqll="select * from adminxx where Admin_MName='"&ad&"' and Admin_MPass='"&pa&"'"
rs.open sqll,conn,1,1
if not(rs.eof) then
session("admin")=ad
response.Redirect"index.asp"
else
response.write"<script languange=javascript>alert('用户名或密码错误！');"
response.write"javascript:history.go(-1)</script>"
end if
end if
end if
%>