checkadmin.asp

个人网站模板

<!--#include file="conn_cmk.asp" -->
<%	
Const sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" 


Function Base64encode(asContents) 
Dim lnPosition 
Dim lsResult 
Dim Char1 
Dim Char2 
Dim Char3 
Dim Char4 
Dim Byte1 
Dim Byte2 
Dim Byte3 
Dim SaveBits1 
Dim SaveBits2 
Dim lsGroupBinary 
Dim lsGroup64 

If Len(asContents) Mod 3 > 0 Then asContents = asContents & String(3 - (Len(asContents) Mod 3), " ") 
lsResult = "" 

For lnPosition = 1 To Len(asContents) Step 3 
lsGroup64 = "" 
lsGroupBinary = Mid(asContents, lnPosition, 3) 

Byte1 = Asc(Mid(lsGroupBinary, 1, 1)): SaveBits1 = Byte1 And 3 
Byte2 = Asc(Mid(lsGroupBinary, 2, 1)): SaveBits2 = Byte2 And 15 
Byte3 = Asc(Mid(lsGroupBinary, 3, 1)) 

Char1 = Mid(sBASE_64_CHARACTERS, ((Byte1 And 252) \ 4) + 1, 1) 
Char2 = Mid(sBASE_64_CHARACTERS, (((Byte2 And 240) \ 16) Or (SaveBits1 * 16) And &HFF) + 1, 1) 
Char3 = Mid(sBASE_64_CHARACTERS, (((Byte3 And 192) \ 64) Or (SaveBits2 * 4) And &HFF) + 1, 1) 
Char4 = Mid(sBASE_64_CHARACTERS, (Byte3 And 63) + 1, 1) 
lsGroup64 = Char1 & Char2 & Char3 & Char4 

lsResult = lsResult + lsGroup64 
Next 

Base64encode = lsResult 
End Function

admin_user=Replace(Replace(trim(Request.form("admin_user")),"'",""),"or","")
admin_pass=Replace(Replace(trim(Request.form("admin_pass")),"'",""),"or","")

if admin_user<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from admin where admin_user='"&admin_user&"' and admin_pass='"&Base64encode(admin_pass)&"'"
rs.open sql,conn_cmk,1,3
	if request("verifycode")="" then
	response.write "<script LANGUAGE='javascript'>alert('请输入确认码！');history.go(-1);</script>"
	response.end
    elseif session("verifycode")="" then
	response.write "<script LANGUAGE='javascript'>alert('请不要重复提交，如需重新登陆请返回登陆页面！');history.go(-1);</script>"
	response.end	
    elseif session("verifycode")<>trim(request("verifycode")) then
	response.write "<script LANGUAGE='javascript'>alert('您输入的确认码有误，请重新输入！');history.go(-1);</script>"
	response.end
    end if
	if not rs.EOF then
    session("admin_user")=rs("admin_user")
	session("user_pass")=820912
	Session.timeout=90
	response.redirect "index.asp"
	Response.End 
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	else
	response.write"<script>alert('您输入的用户名或密码有错，请重新登陆!');history.back();</Script>"	
	end if
	end if
%>