check_login.asp

很不错的站件包含的内容和具体功能先删除编译后的debug/release目录以减少压缩包大小

<!--#include file = "conn.asp"-->
<%
User_Name = replace(replace(replace(replace(request("uid"),"'",""),"%",""),"*",""),"&","")
sql="select * from 52mt_Admin where Admin_Name='"&User_Name&"'"
set rs=conn.execute(sql)
if rs.eof or rs.bof then
Response.write "<script language='javascript'>" & VbCRlf
Response.write "alert('系统提示\n管理信息输入不正确！');" & VbCrlf
Response.write "history.go(-1);" & vbCrlf
Response.write "</script>" & VbCRLF
Response.end 
end if
%>
<%if replace(replace(replace(replace(request("uid"),"'",""),"%",""),"*",""),"&","")  <> rs("Admin_Name") then
Response.write "<script language='javascript'>" & VbCRlf
Response.write "alert('系统提示\n管理信息输入不正确！');" & VbCrlf
Response.write "history.go(-1);" & vbCrlf
Response.write "</script>" & VbCRLF
Response.end 
end if
if replace(replace(replace(replace(request("pwd"),"'",""),"%",""),"*",""),"&","")  <>  rs("Admin_Pass") then
Response.write "<script language='javascript'>" & VbCRlf
Response.write "alert('系统提示\n管理信息输入不正确！');" & VbCrlf
Response.write "history.go(-1);" & vbCrlf
Response.write "</script>" & VbCRLF
Response.end 
end if
if replace(replace(replace(replace(request("uid"),"'",""),"%",""),"*",""),"&","") = rs("Admin_Name") and replace(replace(replace(replace(request("pwd"),"'",""),"%",""),"*",""),"&","") = rs("Admin_Pass") then
timeout = 60
session("Name") = rs("Admin_Name")
Response.Redirect("admin_index.asp")
end if
%>