实木衣柜十大名牌:请哪位大侠帮我看一断ASP代码

<%
Call Master_Us()
Dim Admin_Class
Log(""&Request.ServerVariables("script_name")&"<br>"&Request.ServerVariables("Query_String")&"<br>"&Request.form&"")
UserName=HTMLEncode(Request("UserName"))
response.write "<center>"
select case Request("menu")
case "Activation"
Activation
case "User2"
Admin_Class=",8,"
Call Master_Se()
User2
case "user"
Admin_Class=",10,"
Call Master_Se()
user
case "Showall"
Admin_Class=",8,"
Call Master_Se()
Showall
case "Showallok"
Admin_Class=",8,"
Call Master_Se()
Showallok
case "UserDelTopic"
Admin_Class=",8,"
Call Master_Se()
UserDelTopic
case "UserDel"
Admin_Class=",8,"
Call Master_Se()
UserDel
case "Userok"
Admin_Class=",8,"
Call Master_Se()
Userok
case "UserRank"
UserRank
case "UserRankUp"
if Request.Form("RankName")<>"" then
Conn.Execute("insert into [BBSXP_Ranks] (RankName,PostingCountMin,RankIconUrl) values ('"&Request.Form("RankName")&"','"&Request.Form("PostingCountMin")&"','"&Request.Form("RankIconUrl")&"')")
end if
for each ho in Request.Form("id")
Conn.execute("update [BBSXP_Ranks] set RankName='"&Request.Form("RankName"&ho)&"',PostingCountMin='"&Request.Form("PostingCountMin"&ho)&"',RankIconUrl='"&Request.Form("RankIconUrl"&ho)&"' where ID="&ho&"")
next
response.write "更新成功<br><br><a href=javascript:history.back()>返 回</a>"
case "UserRankDel"
Conn.execute("Delete from [BBSXP_Ranks] where id="&Request("RankID")&"")
response.write "删除成功<br><br><a href=javascript:history.back()>返 回</a>"
case "fix"
Admin_Class=",8,"
Call Master_Se()
Conn.execute("update [BBSXP_Users] set Userpass='"&md5("123")&"' where UserName='"&UserName&"'")
error2("已经将 "&UserName&" 的密码还原成 123 ")
case "sendmoney"
membercode=int(Request("membercode"))
sql="select username from [BBSXP_Users] where membercode="&membercode&""
Set Rs=Conn.Execute(sql)
do while not rs.eof
Count=Count+1
content=HTMLEncode(Request.Form("content"))
conn.Execute("insert into BBSXP_Messages (UserName,incept,content) values ('"&CookieUserName&"','"&rs("username")&"','【系统广播】："&content&"')")
conn.execute("update [BBSXP_Users] set newmessage=newmessage+1,[usermoney]=[usermoney]+"&int(Request("money"))&" where username='"&rs("username")&"'")
rs.movenext
loop
rs.close
error2("发放完成！")
case "activationok"
Admin_Class=",9,"
Call Master_Se()
for each ho in request.form("id")
Conn.execute("update [BBSXP_Users] set membercode=1 where id="&ho&"")
next
error2("已经将激活所选用户！")
case "sendmoneyadd"
useradd=HTMLEncode(Request.Form("useradd"))
content=HTMLEncode(Request.Form("content"))
title=HTMLEncode(Request.Form("title"))
conn.Execute("insert into BBSXP_Messages (UserName,incept,content) values ('"&CookieUserName&"','"&useradd&"','【系统广播】："&content&"')")
conn.execute("update [BBSXP_Users] set newmessage=newmessage+1,[usermoney]=[usermoney]+"&int(Request("money"))&" where username='"&useradd&"'")
end select
sub Showall
%>