?? admin.asp
字號:
Dim a
Dim b
Dim c
Dim d
Const S11 = 7
Const S12 = 12
Const S13 = 17
Const S14 = 22
Const S21 = 5
Const S22 = 9
Const S23 = 14
Const S24 = 20
Const S31 = 4
Const S32 = 11
Const S33 = 16
Const S34 = 23
Const S41 = 6
Const S42 = 10
Const S43 = 15
Const S44 = 21
x = ConvertToWordArray(sMessage)
a = &H67452301
b = &HEFCDAB89
c = &H98BADCFE
d = &H10325476
For k = 0 To UBound(x) Step 16
AA = a
BB = b
CC = c
DD = d
md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478
md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756
md5_FF c, d, a, b, x(k + 2), S13, &H242070DB
md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A
md5_FF c, d, a, b, x(k + 6), S13, &HA8304613
md5_FF b, c, d, a, x(k + 7), S14, &HFD469501
md5_FF a, b, c, d, x(k + 8), S11, &H698098D8
md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE
md5_FF a, b, c, d, x(k + 12), S11, &H6B901122
md5_FF d, a, b, c, x(k + 13), S12, &HFD987193
md5_FF c, d, a, b, x(k + 14), S13, &HA679438E
md5_FF b, c, d, a, x(k + 15), S14, &H49B40821
md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562
md5_GG d, a, b, c, x(k + 6), S22, &HC040B340
md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51
md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D
md5_GG d, a, b, c, x(k + 10), S22, &H2441453
md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681
md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6
md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87
md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED
md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905
md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9
md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A
md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942
md5_HH d, a, b, c, x(k + 8), S32, &H8771F681
md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122
md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C
md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6
md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA
md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085
md5_HH b, c, d, a, x(k + 6), S34, &H4881D05
md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039
md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665
md5_II a, b, c, d, x(k + 0), S41, &HF4292244
md5_II d, a, b, c, x(k + 7), S42, &H432AFF97
md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7
md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
md5_II c, d, a, b, x(k + 6), S43, &HA3014314
md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
md5_II b, c, d, a, x(k + 9), S44, &HEB86D391
a = AddUnsigned(a, AA)
b = AddUnsigned(b, BB)
c = AddUnsigned(c, CC)
d = AddUnsigned(d, DD)
Next
if stype=32 then
MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))
else
MD5=LCase(WordToHex(b) & WordToHex(c))
end if
End Function
'≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
'≡ 網頁媒體播放器下載旗艦站點 ≡
'≡ 翠 竹 網 站 ≡
'≡ http://www.cuiz.net ≡
'≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
'程序作者：辣辣箭
'電子郵箱：jian08@126.com
'個人主頁：http://www.cuiz.net
'請保留以上版權信息，謝謝
Dim RsObj,SQL
Dim cz_typeid,cz_typename,id,page,i
Dim songlist
Call PreventInfuse()
Response.Write "<html xmlns=""http://www.w3.org/1999/xhtml"">" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />" & vbCrLf
Response.Write "<title>Exobud Media Player 擴展點歌后臺</title>" & vbCrLf
Response.Write "<meta name=""keywords"" content=""Exobud 網頁播放器,翠竹網站,戲蝶科技,xidie.com"" />" & vbCrLf
Response.Write "<link href=""images/style.css"" rel=""stylesheet"" type=""text/css"" />" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body>" & vbCrLf
id = ChkNumeric(request("id"))
cz_typename = "全部"
cz_typeid = request("cz_typeid")
If cz_typeid = "" Then cz_typeid = 999
cz_typeid=ChkNumeric(cz_typeid)
page=ChkNumeric(request.QueryString("page"))
If page = 0 Then page = 1
Action = LCase(CheckBadCz(request("action")))
Select Case Trim(Action)
Case "showmain"
Call showmain
Case "logincheck"
Call Checkuser
Case "admindel"
Call Cz_AdminDel
Case "songlist"
Call Cz_admin_songlist
Case "save"
Call Cz_SaveSong
Case "adminedit"
Call Cz_ModifyAdmin
Case "songadd"
Call Cz_AdminTop
Call Cz_Song_Add
Case "songedit"
Call Cz_SongEdit
Case "songdel"
Call Cz_SongDel
Case "view"
Call Cz_Admin_type
Case "addtype"
Call Cz_AddType
Case "typedel"
Call Cz_TypeDel
Case "typeedit"
Call Cz_TypeEdit
Case "adminmain"
Call Cz_AdminUser
Case "adminadd"
Call Cz_AdminAdd
Case "playerset"
Call Cz_PlayerSet
Case "playersetsave"
Call Cz_SetSave
Case Else
Call Cz_AdminLogin
End Select
Admin_footer
Private Sub Cz_AdminLogin()
session("CuiZ_user")="":session("CuiZ_pass")="":session("CuiZ_userID")=""
Response.Write "<SCRIPT language=javascript>" & vbCrLf
Response.Write " function validateform()" & vbCrLf
Response.Write " {" & vbCrLf
Response.Write " if(document.form1.username.value=="""")" & vbCrLf
Response.Write " {" & vbCrLf
Response.Write " alert(""請輸入用戶名！"");" & vbCrLf
Response.Write " document.form1.username.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " if(document.form1.pass.value=="""")" & vbCrLf
Response.Write " {" & vbCrLf
Response.Write " alert(""請輸入密碼！"");" & vbCrLf
Response.Write " document.form1.pass.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<body>" & vbCrLf
Response.Write " <table width=""250"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""tableBorder5"" style=""top:auto;margin-top:200px;"">" & vbCrLf
Response.Write " <form action=""admin.asp"" method=""post"" name=""form1"" onSubmit=""return validateform();"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td align=""center"" valign=""bottom"" class=""showtitle""><strong>后臺管理登錄</strong></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td><hr size=""1"" style=""height:1px; width:200px; color:#330099; text-align:center;"" /></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width=""32%"" align=""center"">用戶名：</td>" & vbCrLf
Response.Write " <td width=""68%""><input type=""text"" name=""username"" style=""width:100px""></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td align=""center"">密 碼：</td>" & vbCrLf
Response.Write " <td><input type=""password"" name=""pass"" style=""width:100px""></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=""30"" align=""center""><input type=""hidden"" name=""action"" value = ""logincheck"" />" & vbCrLf
Response.Write " <input name=""Submit"" type=""submit"" class=""Button"" value="" 登 錄 ""></td>" & vbCrLf
Response.Write " </tr></form>" & vbCrLf
Response.Write "</table></body></html>" & vbCrLf
Response.End
End Sub
Private Sub Cz_AdminTop()
Call checkadmin
Response.Write "<script language = ""JavaScript"">" & vbCrLf
Response.Write "function Selectcztype()" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write " var formCF = document.admin_form;" & vbCrLf
Response.Write " var czclass = formCF.cztype.value;" & vbCrLf
Response.Write " location.href = ""admin.asp?cz_typeid="" + czclass +""&action=songlist"";" & vbCrLf
Response.Write " return;}" & vbCrLf
Response.Write "function SelectCzPage()" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write " var formCF = document.page_form;" & vbCrLf
Response.Write " var czpage = formCF.czpage.value;" & vbCrLf
Response.Write " location.href = ""admin.asp?cz_typeid="& cz_typeid &"&action=songlist&page="" + czpage +"""";" & vbCrLf
Response.Write " return;}" & vbCrLf
Response.Write "function ClassEditform(czForm){if(czForm.cztype_name.value==""""){alert(""請輸入分類名稱，不能為空！"");czForm.cztype_name.focus();return false;}}" & vbCrLf
Response.Write "function AdminAddform(){if(document.userformadd.newuser.value==""""){alert(""請輸入用戶名！"");document.userformadd.newuser.focus();return false;}if(document.userformadd.newpass.value==""""){alert(""請輸入管理密碼！"");document.userformadd.newpass.focus();return false;}}" & vbCrLf
Response.Write "function AdminEditform(czForm){if(czForm.admin_user.value==""""){alert(""請輸入用戶名！"");czForm.admin_user.focus();return false;}if(czForm.admin_pass.value==""""){alert(""請輸入管理密碼！"");czForm.admin_pass.focus();return false;}}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=TableBorder>" & vbCrLf
Response.Write " <form name=""admin_form"" method=""post""><tr>" & vbCrLf
Response.Write " <th colspan=2>歌曲清單管理選項</th>" & vbCrLf
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -