save_admin.asp

来自「个人网站模板」· ASP 代码 · 共 83 行

<!--#include file="check_admin.asp"-->
<!--#include file="conn_admin.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
%>
<% 
     If Request("admin_user")="" Then
	Response.Write"<br><center>数据意外丢失！<font color=#ff0000><a href='Javascript:window.history.go(-1)'>返回</a></font></center>"
	Response.End
    End If
	if Request("admin_pass")="" then
		response.write "密码不可以为空<br><a href='Javascript:window.history.go(-1)'>返回</a>"
		response.End
	end if
    if Request("admin_pass")<>Request("admin_pass1") then
		response.write "密码、确认密码不同<br><a href='Javascript:window.history.go(-1)'>返回</a>"
		response.End
	end if
	
admin_user=Request("admin_user")
Set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM admin"
rs.Open sql,conn,1,3
rs("admin_user")=Request("admin_user")
if trim(Request.form("admin_pass"))<>"" then
password=trim(Request.form("admin_pass"))
rs("admin_pass")=Base64encode(password)
end if
rs.Update
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
<script language=Javascript>
<!--
alert("管理员用户信息已经修改，请务必记住!");
window.location="admin_admin.asp"
-->
</script>
<%
rs.Update
rs.Close
Set rs=Nothing
%>