mypanel.asp

教师评估系统

<!-- #include file="Cls.asp" -->
<!-- #include file="inc/MD5.asp" -->
<!-- #include file="inc/Mail.asp" -->
<!-- #include file="inc/UpFile_Class.asp"-->
<%
ChkUser
MaxSms=Int(Cache("MaxSms"))

sql="select * from [WxUsers] where Username='"&CookieUserName&"'"
Set Rs=Conn.Execute(sql)
'On Error Resume Next
UserMoney=Rs("UserMoney")
UserIM=split(Rs("UserIM"),"\")
UserSex=Rs("UserSex")
Birthday=Rs("birthday")
Userhome=Rs("Userhome")
qq=UserIM(0)
MSN=UserIM(1)
UC=UserIM(2)
Skype=UserIM(3)
UserInfo=split(Rs("UserInfo"),"\")
Realname=UserInfo(0)
Address=UserInfo(1)
Userwork=UserInfo(2)
UserInterest=UserInfo(3)
UserIntro=Replace(""&UserInfo(4)&"","<br />", vbCrlf)
UserSign=Replace(""&Rs("UserSign")&"","<br />", vbCrlf)
Rs.Close

id=ChkNumeric(Request("id"))
Url=HTMLEncode(Request("Url"))
name=HTMLEncode(Request("name"))
Category=HTMLEncode(Request("Category"))
Description=HTMLEncode(Request("Description"))
MaxFaceheight=int(Cache("MaxFaceheight"))
MaxFacewidth=int(Cache("MaxFacewidth"))
UseMoney=int(Cache("UseMoney"))
AcceptNum=Conn.Execute("select count(Incept) from [WxSms] where Incept='"&CookieUserName&"'")(0)

incept=HTMLEncode(Request("incept"))
UserName=HTMLEncode(Request("UserName"))
ParentID=int(Request("ParentID"))

Select case Request("menu")
case ""
Error2("请选择管理的项目")

case "InviteUser"
if Cache("EnableUser")<>3 then Error 6,"<li>系统未开启邀请码注册选项</li>"
if Cache("SmtpObj")=Empty then Error 6,"<li>系统未开启邮件发送功能</li>"
ShowTitle("邀请朋友")
ShowInviteUser()
ShowEnd()

case "InviteUserok"
if ChkNumeric(Request.Form("VerifyCode"))<>Int(Session("VerifyCode")) then ErrMsg="<li>验证码错误</li>"
Usermail=HTMLEncode(Request.Form("Usermail"))
if Usermail="" then
ErrMsg=ErrMsg&"<li>请输入被邀请人的Email</li>"
Else
if Not Conn.Execute("select ID from [WxUsers] where Usermail='"&Usermail&"'" ).Eof Then ErrMsg=ErrMsg&"<li>使用 "&Usermail&" 的用户已经存在</li>"
end if
if ErrMsg<>"" Then Error 3,ErrMsg
Randomize
ActivationKey=int(rnd*9999999999)+1
Mailaddress=Usermail
MailTopic=""&CookieUserName&" 给您发送 "&Cache("SiteName")&" 的注册邀请码"
body=""&CookieUserName&" 给您发送 "&Cache("SiteName")&" 的注册邀请码<br /><br />请点击下面的超链接进行注册，如果没有链接，请把下面地址直接复制到浏览器的地址栏中进行注册。<br /><br /><a target=_blank href="&Cache("SiteUrl")&"Reg.asp?menu=write&ActivationKey="&ActivationKey&"&Usermail="&Usermail&">"&Cache("SiteURL")&"Reg.asp?menu=write&ActivationKey="&ActivationKey&"&Usermail="&Usermail&"</a>"
SendMail Mailaddress,MailTopic,body
Conn.Execute("insert into [WxActivation] (ActivationKey,Email) values ('"&ActivationKey&"','"&Usermail&"')")
Session("VerifyCode")=""
Succ "邀请朋友","<li><a href=MyPanel.asp?menu=InviteUser>继续邀请朋友</a></li>","MyPanel.asp?menu=InviteUser"

case "EditFavok"
Rs.Open "select * from [WxFavorites] where UserName='"&CookieUserName&"' and id="&id&"",Conn,1,3
Rs("name")=name
Rs("Url")=Url
Rs("Category")=Category
Rs("Description")=Description
Rs("UserName")=CookieUserName
Rs.update
Rs.close
Succ "编辑书签","<li><a href=MyPanel.asp?menu=Fav>返回书签</a></li>","MyPanel.asp?menu=Fav"

case "DelFav"
Conn.Execute("delete from [WxFavorites] where UserName='"&CookieUserName&"' and id="&id&"")
Succ "删除书签","<li><a href="&Request.ServerVariables("http_referer")&">"&Request.ServerVariables("http_referer")&"</a></li>",Request.ServerVariables("http_referer")

case "AddFav"
if name="" then Error2("名称没有填写")
Rs.Open "select * from [WxFavorites] where UserName='"&CookieUserName&"' and name='"&name&"' and Url='"&Url&"'",Conn,1,3
if Rs.Eof then Rs.addNew
Rs("name")=name
Rs("Url")=Url
Rs("Category")=Category
Rs("Description")=Description
Rs("UserName")=CookieUserName
Rs.update
Rs.close
Succ "添加书签","<li><a href="&Request.ServerVariables("http_referer")&">"&Request.ServerVariables("http_referer")&"</a></li>",Request.ServerVariables("http_referer")

case "Fav"
ShowTitle("我的书签")
ShowFav()
ShowEnd()

case "EditFav"
ShowTitle("我的书签")
EditFav()
ShowEnd()

case "EditPass"
ShowTitle("修改密码")
EditPass
ShowEnd()

case "Passok"
Passok

case "EditInfo"
ShowTitle("编辑资料")
EditInfo()
ShowEnd()

case "EditInfook"
EditInfook

case "EditSite"
ShowTitle("编辑论坛个性设置")
EditSite()
ShowEnd()

case "EditSiteok"
EditSiteok

case "EditFace"
ShowTitle("编辑个性头像")
EditFace()
ShowEnd()

case "EditFaceok"
EditFaceok

case "Upface"
top "上传头像",false
Upface

case "SetQQ"
if Conn.Execute("select UserMoney from [WxUsers] where Username='"&CookieUserName&"'")(0)<UseMoney Then Error 6,"<li>您的金币不够</li>"
qq=split("\"&Conn.Execute("select UserIM from [WxUsers] where Username='"&CookieUserName&"'")(0),"\")(1)
if ChkNumeric(qq)=0 then Error 3,"<li>请输入您的QQ号码</li>"
Conn.Execute("update [WxUsers] set Userface='http://qqshow-user.tencent.com/"&qq&"/10/00/.jpg width=100 height=150',UserMoney=UserMoney-"&UseMoney&" where Username='"&CookieUserName&"'")
Succ "编辑头像","<li><a href=MyPanel.asp?menu=EditFace>返回编辑头像</a></li>","MyPanel.asp?menu=EditFace"

case "ChangeFace"
Userface=HTMLEncode(Request.Form("Userface"))
if Userface="" then Error 3,"<li>头像URL不能没有填写</li>"
if instr(Userface,";")>0 or instr(Userface,"%")>0 or instr(Userface,"javascript:")>0 then error2("URL中不能含有特殊符号")
Conn.execute("update [WxUsers] set Userface='"&Userface&"' where UserName='"&CookieUserName&"'")
Succ "编辑头像","<li><a href=MyPanel.asp?menu=EditFace>返回编辑头像</a></li>","MyPanel.asp?menu=EditFace"

case "up"
top "上传头像",false
id=Conn.Execute("select id from [WxUsers] where Username='"&CookieUserName&"'")(0)
UpFolder="UpFile/UpFace/"&CookieUserName&""
UpMaxFileSize=Cache("MaxFaceSize")
UpClass="Face"
%><!--#include FILE="inc/UpFile.asp"--><%
if SaveFile=Empty Then SaveFile=Conn.Execute("select Userface from [WxUsers] where Username='"&CookieUserName&"'")
Conn.Execute("update [WxUsers] set Userface='"&SaveFile&"' where Username='"&CookieUserName&"'")
Conn.Execute("update [WxUsers] set UserMoney=UserMoney-"&UseMoney&" where Username='"&CookieUserName&"'")
%><script type="text/javascript">
parent.document.form.Userface.value='<%=SaveFile%>';
parent.document.getElementById("tus").src='<%=SaveFile%>';
alert("头像上传成功！");
parent.ShadeDiv.Close();
</script><%
CloseDataBase

case "DelPostAttachment"
for each ho in Request.Form("ID")
ho=int(ho)
sql="select * from [WxUpFiles] where id="&ho&" and UserName='"&CookieUserName&"'"
Rs.Open sql,Conn,1,3
if Not Rs.Eof then
if DelFile(""&RS("FilePath")&"") then Rs.delete
end if
Rs.close
next
Error2("删除成功")

case "UpFiles"
ShowTitle("附件管理")
UpFiles
ShowEnd()

case "Msg"
ShowTitle("短讯管理")
MsgManage
ShowEnd()

case "DelMsg"
for each ho in Request("id")
Conn.Execute("delete from [WxSms] where id="&ho&" and incept='"&CookieUserName&"'")
Conn.Execute("delete from [WxSms] where id="&ho&" and UserName='"&CookieUserName&"'")
next
Succ "删除短信","<li><a href=MyPanel.asp?menu=Msg>返回短信管理</a></li>","MyPanel.asp?menu=Msg"

case "add"
add

case "bad"
bad

case "Del"
Del

case "Post"
Post

case "addPost"
addPost

case "Friend"
ShowTitle("我的好友")
Friendindex
ShowEnd()
end Select

sub ShowEnd()
Response.write "</div></div>"
HtmlEnd
end sub

sub ShowTitle(pagename)
top pagename,true
%>
<div class="nav dt"><img alt="" src="Images/Forum_nav.gif" />&nbsp; <%=ClubTree%> → <%=pagename%></div>
<div class="cb dt">
<div id="sidebar" class="fl tb w0">
<div id="tt">控制面板</div>
<div class="tc ac"><a href="?menu=EditInfo">基本资料</a></div>
<div class="tc ac"><a href="?menu=EditSite">显示设置</a></div>
<div class="tc ac"><a href="?menu=EditFace">个性头像</a></div>
<div class="tc ac"><a href="?menu=EditPass">修改密码</a></div>
<div class="tc ac"><a href="?menu=UpFiles">我的附件</a></div>
<div class="tc ac"><a href="?menu=Fav">我的书签</a></div>
<div class="tc ac"><a href="?menu=Msg">我的短讯</a></div>
<div class="tc ac"><a href="?menu=Friend">我的好友</a></div>
<div class="tc ac"><a href="?menu=InviteUser">邀请朋友</a></div>
</div>
<div id="mainarea" class="fl">
<script type="text/javascript" src="Inc/Category.js"></script>
<%
end sub

sub ShowInviteUser
%>
<div class="tb">
<form method="post" name="form" action="MyPanel.asp">
<input type="hidden" name="menu" value="InviteUserok" />
<div id="tt">发送邀请码</div>
<div class="tc b cb">
<div class="fl r w2 si">验证码</div>
<div class="fl si"><%=WriteVerifyCode%></div>
</div>
<div class="tc b cb">
<div class="fl r w2 si">被邀请人Email</div>
<div class="fl si"><input type="text" name="Usermail" /></div>
</div>
<div class="tc ac"><input type="submit" id="submit" value=" 发送 " /></div>
</form>
</div>
<%
end sub

sub ShowFav
%>
<div class="tb">
<div id="tt">我的书签</div>
<%
sql="select DISTINCT Category from [WxFavorites] where UserName='"&CookieUserName&"'"
Set Rs=Conn.Execute(sql)
Do While Not RS.Eof
if Rs("Category")<>empty then
Response.write "[<a href=MyPanel.asp?menu=Fav&Category="&Rs("Category")&">"&Rs("Category")&"</a>] "
CategoryList=CategoryList&"<option value='"&Rs("Category")&"'>"&Rs("Category")&"</option>"
end if
Rs.MoveNext
loop
Rs.Close
%>
<div class="intro cb">
<div class="fl r w0">类别</div>
<div class="fl r w2">名称</div>
<div class="fl r w3a">描述</div>
<div class="fl r w2">加入时间</div>
<div class="fl w0">操作</div>
</div><%
if Category<>"" then SQLCategory=" and Category='"&Category&"'"
sql="[WxFavorites] where UserName='"&CookieUserName&"'"&SqlCategory
Set Rs=Conn.Execute(sql&" order by id Desc")
TotalCount=Conn.Execute("select count(ID) From "&sql&" ")(0) '获取数据数量

PageSetup=20 '设定每页的显示数量
TotalPage=Abs(Int(TotalCount/PageSetup*(-1))) '总页数
PageCount = cint(Request.QueryString("PageIndex")) '获取当前页
if PageCount <1 then PageCount = 1