admin.asp

asp写的一个mp3播放器(带源码)

Response.Write "        <th colspan=""3"">管 理 员 添 加 </th>" & vbCrLf
Response.Write "      </tr>" & vbCrLf
Response.Write "      <tr>" & vbCrLf
Response.Write "        <td width=""35%"" align=""center"" nowrap class=""TableRow2""><b>用户名</b></td>" & vbCrLf
Response.Write "        <td width=""30%"" align=""center"" nowrap class=""TableRow2""><b>密  码</b></td>" & vbCrLf
Response.Write "        <td width=""35%"" align=""center"" class=""TableRow1"">相关操作</td>" & vbCrLf
Response.Write "      </tr>" & vbCrLf
Response.Write "      <form method=Post name=""userformadd"" action=""admin.asp?action=adminadd""  onSubmit=""return AdminAddform();"">" & vbCrLf
Response.Write "        <tr>" & vbCrLf
Response.Write "          <td nowrap class=""TableRow2""><input name=""newuser"" type=""text"" id=""newuser"" size=""20"" maxlength=""15""></td>" & vbCrLf
Response.Write "          <td width=""30%"" nowrap class=""TableRow2""><input name=""newpass"" type=""password"" id=""newpass"" size=""20"" maxlength=""15""></td>" & vbCrLf
Response.Write "          <td width=""35%"" align=""center"" class=""TableRow1""><input name=""Submit"" type=""submit"" class=""Button"" value="" 添 加  "">&nbsp;<input name=""Submit2"" type=""reset"" class=""Button"" value="" 清 除 ""></td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "      </form>" & vbCrLf
Response.Write "      <tr>" & vbCrLf
Response.Write "        <td colspan=""3"" nowrap class=""TableRow2"">提示：这里添加一个新的管理员。</td>" & vbCrLf
Response.Write "      </tr>" & vbCrLf
Response.Write "      <tr align=""center"">" & vbCrLf
Response.Write "        <td colspan=""4"" class=""TableRow2""><input type=""button"" name=""Submit"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" class=Button></td>" & vbCrLf
Response.Write "      </tr>" & vbCrLf
Response.Write "    </table></td>" & vbCrLf
Response.Write "    <td width=""50%"" valign=""top""><table  border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder"">" & vbCrLf
Response.Write "        <tr>" & vbCrLf
Response.Write "          <th colspan=""3"">管 理 员 列 表</th>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "        <tr>" & vbCrLf
Response.Write "        <td width=""35%"" align=""center"" nowrap class=""TableRow2""><b>用户名</b></td>" & vbCrLf
Response.Write "        <td width=""30%"" align=""center"" nowrap class=""TableRow2""><b>密  码</b></td>" & vbCrLf
Response.Write "        <td width=""35%"" align=""center"" class=""TableRow1"">相关操作</td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Set rs = conn.execute ("select * from cz_admin")
If Not rs.eof Then
Do While Not rs.eof
Response.Write "		<form method=Post name=""myformedit" & rs("id") & """ action=""admin.asp?action=adminedit&id=" & rs("id") & """  onSubmit=""return AdminEditform(this);"">" & vbCrLf
Response.Write "        <tr>" & vbCrLf
Response.Write "          <td nowrap class=""TableRow2""><input name=""admin_user"" type=""text"" id=""admin_user"" size=""20"" maxlength=""15"""
If rs("id")=1 Then Response.Write " disabled"
Response.Write " value="""& rs("cz_user") &""" /></td>" & vbCrLf
Response.Write "          <td width=""30%"" nowrap class=""TableRow2""><input name=""admin_pass"" type=""password"" id=""admin_pass"" size=""20"" maxlength=""15"" value=""cuiz.net"" /></td>" & vbCrLf
Response.Write "          <td width=""35%"" align=""center"" class=""TableRow1""><input name=""eidt"" type=""submit"" class=""Button"" value="" 编 辑 "">" & vbCrLf
Response.Write "            <input name=""del"" onClick=""javascript:if(!confirm('提示：确认删除吗？')){return false;};window.location.href='admin.asp?action=admindel&id=" & rs("id") & "';"" type=""button"" class=""Button"" value="" 删 除 """
If rs("id")=1 Then Response.Write " disabled"
Response.Write "/></td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "		</form>" & vbCrLf
rs.movenext
Loop
End If
rs.close
Set rs = Nothing
Response.Write "        <tr>" & vbCrLf
Response.Write "          <td colspan=""3"" nowrap class=""TableRow2"">提示：管理员信息修改与删除。(密码未变化不更改信息)</td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "        <tr align=""center"">" & vbCrLf
Response.Write "          <td colspan=""4"" class=""TableRow2""><input type=""button"" name=""Submit4"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" class=Button></td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "    </table></td>" & vbCrLf
Response.Write "  </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
End Sub
Private Sub Cz_PlayerSet()
Call Cz_AdminTop
Dim set_p1,set_p2,set_p3,set_p4,set_p5
Set rs = conn.execute ("select cz_set from cz_playerset")
If Not rs.eof then
set_p1 = split(rs("cz_set"),"|")
set_p2 = set_p1(0)
set_p3 = set_p1(1)
set_p4 = set_p1(2)
set_p5 = set_p1(3)
End If 
Set rs = Nothing
Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" style=""padding:2,7,0,7 px;"">" & vbCrLf
Response.Write "  <tr>" & vbCrLf
Response.Write "    <td width=""50%"" valign=""top""><table  border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder"">" & vbCrLf
Response.Write "      <tr>" & vbCrLf
Response.Write "        <th colspan=""2"">播 放 器 初 始 设 置</th>" & vbCrLf
Response.Write "      </tr>" & vbCrLf
Response.Write "      <tr>" & vbCrLf
Response.Write "        <td align=""center"" nowrap class=""TableRow2""><strong>播放器设置</strong></td>" & vbCrLf
Response.Write "        <td width=""20%"" align=""center"" class=""TableRow1"">相关操作</td>" & vbCrLf
Response.Write "      </tr>" & vbCrLf
Response.Write "      <form method=Post name=""player_set"" action=""admin.asp?action=playersetsave"" >" & vbCrLf
Response.Write "        <tr>" & vbCrLf
Response.Write "          <td nowrap class=""TableRow2""><input name=""cz_zd"" type=""checkbox"" value=""1"" "
if set_p2 = 1 then Response.Write "checked "
Response.Write ">自动播放&nbsp;&nbsp;&nbsp;<input type=""checkbox"" name=""cz_sj"" value=""1"" "
if set_p3 = 1 then Response.Write "checked "
Response.Write ">随机播放&nbsp;&nbsp;&nbsp;<input type=""checkbox"" name=""cz_xh"" value=""1"" "
if set_p4 = 1 then Response.Write "checked "
Response.Write ">循环播放&nbsp;&nbsp;&nbsp;<input type=""checkbox"" name=""cz_bar"" value=""1"" "
if set_p5 = 1 then Response.Write "checked "
Response.Write ">状态栏显示</td>" & vbCrLf
Response.Write "          <td width=""20%"" align=""center"" class=""TableRow1""><input name=""Submit"" type=""submit"" class=""Button"" value="" 设 置  "">&nbsp;</td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "      </form>" & vbCrLf
Response.Write "      <tr>" & vbCrLf
Response.Write "        <td colspan=""2"" nowrap class=""TableRow2"">提示：这里设置播放器载入初始化状态。</td>" & vbCrLf
Response.Write "      </tr>" & vbCrLf
Response.Write "      <tr align=""center"">" & vbCrLf
Response.Write "        <td colspan=""3"" class=""TableRow2""><input type=""button"" name=""Submit"" onClick=""javascript:history.go(-1)"" value=""返回上一页"" class=Button></td>" & vbCrLf
Response.Write "      </tr>" & vbCrLf
Response.Write "    </table></td>" & vbCrLf
Response.Write "    <td width=""50%"" valign=""top"">&nbsp;<!----更多功能下一版本---></td>" & vbCrLf
Response.Write "  </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
End Sub
Private Sub Cz_SongDel()
Conn.Execute("Delete From cz_songlist Where Cz_ID = "& ID)
Response.Redirect("admin.asp?cz_typeid=" & cz_typeid & "&action=songlist&page="&page)
End Sub
Private Sub Cz_songedit()
Conn.Execute ("update cz_songlist set cz_from_name='" & CzCharThis(request.Form("singer")) & "', cz_song_name='" & CzCharThis(request.Form("songname")) & "', cz_song_url='" & CzCharThis(request.Form("songurl")) & "' where Cz_ID = "& ID)
Response.Redirect("admin.asp?cz_typeid=" & cz_typeid & "&action=songlist&page="&page)
End Sub
Private Sub Cz_SaveSong()
conn.execute ("insert into cz_songlist (cz_from_name,cz_song_name,cz_song_url,cz_typeid) values ('" & CzCharThis(request.Form("singer")) & "','" & CzCharThis(request.Form("songname")) & "','" & CzCharThis(request.Form("songurl")) & "'," & request.Form("cztype") & ")")
If request.Form("songlist")="cuiznet" Then 
Response.Redirect("admin.asp?cz_typeid=" & cz_typeid & "&action=songlist&page="&page)
Else
CuiZ_msg = "<li>歌曲添加成功！继续添加…</li><meta http-equiv=""refresh"" content=""2;URL=admin.asp?action=songadd"">"
Call Cz_Admin_err
End If
End Sub
Private Sub Cz_AddType()
conn.execute ("insert into cz_class (cz_type) values ('"& CheckBadCz(request.Form("cztype_name")) &"')")
Response.Redirect("admin.asp?action=View")
End Sub
Private Sub Cz_TypeDel()
Conn.Execute("Delete From cz_songlist Where cz_typeid = "& ID)
Conn.Execute("Delete From cz_Class Where Cz_ID = "& ID)
Response.Redirect("admin.asp?action=View")
End Sub
Private Sub Cz_TypeEdit()
Conn.Execute ("update cz_class set cz_type='" & CheckBadCz(request.Form("cztype_name")) & "' where Cz_ID = "& ID)
Response.Redirect("admin.asp?action=View")
End Sub
Private Sub Cz_AdminAdd()
conn.execute ("insert into cz_admin (cz_user,cz_pass) values ('"& CheckBadCz(request.Form("newuser")) &"','"& MD5((CheckBadCz(request.Form("newpass"))),32) &"')")
Response.Redirect("admin.asp?action=adminmain")
End Sub
Private Sub Cz_ModifyAdmin()
Dim user,pass
user = CheckBadCz(request.Form("admin_user"))
pass = CheckBadCz(request.Form("admin_pass"))
If id <> session("CuiZ_userID")  And session("CuiZ_userID") <> 1 Then 
CuiZ_msg = "<li>对不起，只能修改当前管理员<b>["&session("CuiZ_user")&"]</b>信息！</li><meta http-equiv=""refresh"" content=""3;URL=admin.asp?action=adminmain"">"
Call Cz_Admin_err
End If
If id <> 1 And pass <> "cuiz.net" Then Conn.Execute ("update cz_admin set cz_user='"& user &"',cz_pass='"& MD5((pass),32) &"' where ID = "& ID)
If id=1 And pass <>"cuiz.net" Then Conn.Execute ("update cz_admin set cz_pass='"& MD5((pass),32) &"' where ID = "& ID)
CuiZ_msg = "<li>操作成功，请重新登录！</li><meta http-equiv=""refresh"" content=""2;URL=admin.asp?action=out"">"
If pass = "cuiz.net" Then CuiZ_msg = "<li>当前操作,未修改任何信息！</li><meta http-equiv=""refresh"" content=""2;URL=admin.asp?action=adminmain"">"
Call Cz_Admin_err
End Sub
Private Sub Cz_AdminDel()
Conn.Execute("Delete From cz_admin Where ID = "& ID)
Response.Redirect("admin.asp?action=adminmain")
End Sub
Private Sub Cz_SetSave()
Dim set_p1,set_p2,set_p3,set_p4
set_p1 = request.Form("cz_zd")
set_p2 = request.Form("cz_sj")
set_p3 = request.Form("cz_xh")
set_p4 = request.Form("cz_bar")
if set_p1 = "" then set_p1 = 0
if set_p2 = "" then set_p2 = 0
if set_p3 = "" then set_p3 = 0
if set_p4 = "" then set_p4 = 0
Conn.Execute("Update cz_playerset set cz_set = '"&set_p1&"|"&set_p2&"|"&set_p3&"|"&set_p4&"'")
Response.Redirect("admin.asp?action=playerset")
End Sub
Sub Admin_footer()
Response.Write "<br /><table align=center>" & vbCrLf
Response.Write "<tr align=center><td width=""100%"" style=""LINE-HEIGHT: 150%"" class=copyright>" & vbCrLf        
Response.Write "Copyright&nbsp;2005-2007&nbsp;<a href=""http://www.cuiz.net/"" target=""_blank"">www.CuiZ.Net</a>&nbsp;All&nbsp;Rights&nbsp;Reserved<br />" & vbCrLf
Response.Write " Powered by：<a href=http://mf.cuiz.net/czplayer/ target=_blank>CzPlayer ManageSystem V1.2</a> （ACCESS 版）<br />" & vbCrLf
Dim Endtime
Endtime = Timer()
Response.Write "<BR>执行时间：" & FormatNumber(Endtime - startime,5, -1) & "毫秒。" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "</body></html>"
conn.close
Set conn = Nothing
End Sub
Public Function CheckBadCz(str)
		If IsNull(str) Then
			CheckBadstr = vbNullString
			Exit Function
		End If
		str = Replace(str, Chr(0), vbNullString)
		str = Replace(str, Chr(34), vbNullString)
		str = Replace(str, "%", vbNullString)
		str = Replace(str, "@", vbNullString)
		str = Replace(str, "!", vbNullString)
		str = Replace(str, "^", vbNullString)
		str = Replace(str, "=", vbNullString)
		str = Replace(str, "--", vbNullString)
		str = Replace(str, "$", vbNullString)
		str = Replace(str, "'", vbNullString)
		str = Replace(str, ";", vbNullString)
		CheckBadCz = Trim(str)
End Function
'≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
'≡        网页媒体播放器下载旗舰站点      ≡
'≡             翠  竹  网   站            ≡
'≡          http://www.cuiz.net           ≡
'≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
'程序作者：辣辣箭
'电子邮箱：[e-mail]
'个人主页：http://www.cuiz.net
'请保留以上版权信息，谢谢
Public Function Checkuser()
dim user,pass
set rs = Server.CreateObject("ADODB.Recordset")
user=CheckBadCz(request.form("username")):pass= MD5((CheckBadCz(request.Form("pass"))),32)
rs.open "select * from cz_admin where (cz_user='"&user&"' and cz_pass='"&pass&"')",conn,1,3
if not rs.eof then
session("CuiZ_user")=user:session("CuiZ_pass")=pass
session("CuiZ_userID")=rs("id") '编辑管理员时使用
rs("cz_time")=Now()
rs.update
response.Redirect("admin.asp?action=showmain")
response.End
Else
session("CuiZ_user")=""
session("CuiZ_userID")=""
CuiZ_msg = "<li>用户名或密码不正确！返回重试！</li><meta http-equiv=""refresh"" content=""3;URL=admin.asp"">"
Call Cz_Admin_err
end if
response.end()
rs.close
set rs=Nothing
conn.close
Set conn = Nothing
End Function

Private Sub showmain()
Call checkadmin
Response.Write "<table width=""100%"" height=""400"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr><td align=""center"" valign=""middle""><p><strong><a href=""admin.asp?action=songlist"" title=""点击进入管理"">欢迎使用 Exobud Media Player 扩展点歌后台管理系统</a></strong></p></td></tr></table>"
If id=0 Then Response.Write "<meta http-equiv=""refresh"" content=""2;URL=admin.asp?action=songlist"">"
End Sub

Private Sub checkadmin()
If session("CuiZ_user")="" And session("CuiZ_pass")="" Then
CuiZ_msg = "<li>用户名或密码不正确！</li><li>登录已超时，请重新登录！</li><meta http-equiv=""refresh"" content=""3;URL=admin.asp"">"
Call Cz_Admin_err
End If
End Sub
'如果你不懂代码，请不要更改本页面代码！
'lala                     2007-06-14
%>