mypanel.asp

教师评估系统

if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>1 then RS.Move (PageCount-1) * pagesetup

i=0 
Do While Not Rs.Eof and i<PageSetup 
i=i+1
%>
<div class="tc b cb">
<div class="fl r w0"><%=Rs("Category")%></div>
<div class="fl r w2"><a target=_blank href="<%=Rs("Url")%>"><%=Rs("name")%></a></div>
<div class="fl r w3a"><%=Rs("Description")%></div>
<div class="fl r w2 ac"><%=Rs("DateCreated")%></div>
<div class="fl w0 ac"><a href="?menu=EditFav&id=<%=Rs("id")%>"><img alt='编辑书签' src="Images/edit.gif" /></a> <a onClick="return confirm('您确定要删除该书签?')" href="?menu=DelFav&id=<%=Rs("id")%>"><img alt='删除书签' src="Images/delete.gif" /></a></div>
</div>
<%          
Rs.MoveNext
loop
Rs.Close
%>
<div class="tc"><%ShowPage()%></div>
</div>
<div class="tb">
<form method="post" name="form" action="MyPanel.asp">
<input type="hidden" name="menu" value="AddFav" />
<div id="tt">添加书签[<a onClick="ChangeCategory();return false;" href="#">添加类别</a>]</div>
<div class="tc b cb"><div class="si">名称：<select name="Category"><option value="">类别</option><%=CategoryList%></select> <input name="name" size="30" /> 地址：<input name="Url" value="http://" size="40" /></div></div>
<div class="tc cb"><div class="i">描述：<input name="Description" size="40" /> <input type="submit" id="submit" value=" 添 加 " /></div></div>
</div>
</form>
</div>
<%
end sub

sub EditFav
sql="select DISTINCT Category from [WxFavorites] where UserName='"&CookieUserName&"'"
Set Rs=Conn.Execute(sql)
Do While Not RS.Eof
if Rs("Category")<>empty then
CategoryList=CategoryList&"<option value='"&Rs("Category")&"'>"&Rs("Category")&"</option>"
end if
Rs.MoveNext
loop
Rs.Close

Set Rs=Conn.Execute("select * from [WxFavorites] where UserName='"&CookieUserName&"' and id="&id&"")
%>
<div class="tb">
<form method="post" name="form" action="MyPanel.asp">
<input type="hidden" name="menu" value="EditFavok">
<input type="hidden" name="ID" value="<%=id%>">
<div id="tt">编辑书签[<a onClick="ChangeCategory();return false;" href="#">添加类别</a>]</div>
<div class="tc b cb"><div class="si">名称：<select name="Category"><option value="">类别</option><%sql="select DISTINCT Category from [WxFavorites] where UserName='"&UserName&"'"
Rs1.Open sql,Conn,1
Do While Not Rs1.Eof
if Rs1("Category")<>empty then
%>
<option value="<%=Rs1("Category")%>"<%if Rs("Category")=Rs1("category") then%> selected="selected"<%end if%>><%=Rs1("Category")%></option>
<%
end if
Rs1.MoveNext
loop
Rs1.Close%></select> <input name="name" size="30" value="<%=Rs("name")%>" /> 地址：<input name="Url" size="40" value="<%=Rs("url")%>" /></div></div>
<div class="tc cb"><div class="i">描述：<input name="Description" size="40" value="<%=Rs("Description")%>" /> <input type="submit" id="submit" value=" 编 辑 " /></div></div>
</form>
</div>
<%
end sub

sub EditInfo%>
<div class="tb">
<form method="post" name="form" action="MyPanel.asp?menu=EditInfook">
<div id="tt">编辑资料</div>
<div class="tc b cb">
<div class="fl r w2 si">名字</div>
<div class="fl si"><input type="text" name="Realname" size="30" value="<%=Realname%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r w2 si">性别</div>
<div class="fl si"><select name="UserSex">
<option value="" selected="selected">[请选择]</option>
<option value="male"<%if UserSex="male" then%> selected="selected"<%end if%>>男</option>
<option value="female"<%if UserSex="female" then%> selected="selected"<%end if%>>女</option>
</select></div>
</div>
<div class="tc b cb">
<div class="fl r w2 si">生日</div>
<div class="fl si"><input type="text" name="birthday" size="30" title="日期格式：1900-12-31" value="<%=birthday%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r w2 si">地址</div>
<div class="fl si"><input type="text" name="Address" size="30" value="<%=Address%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r w2 si">兴趣</div>
<div class="fl si"><input type="text" name="UserInterest" size="30" value="<%=UserInterest%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r w2 si">主页</div>
<div class="fl si"><input type="text" name="Userhome" size="30" value="<%=Userhome%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r w2 si">职业</div>
<div class="fl si"><input type="text" name="Userwork" size="30" value="<%=Userwork%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r w2 si"><img alt='' src="images/qq.gif">qq</div>
<div class="fl si"><input type="text" name="qq" size="30" onKeyUp="ChkNaN(this)" value="<%=qq%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r w2 si"><img alt='' src="images/MSN.gif">msn</div>
<div class="fl si"><input type="text" name="MSN" size="30" value="<%=MSN%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r w2 si"><img alt='' src="images/uc.gif">uc</div>
<div class="fl si"><input type="text" name="UC" size="30" value="<%=UC%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r w2 si"><img alt='' src="images/Skype.gif">Skype</div>
<div class="fl si"><input type="text" name="Skype" size="30" value="<%=Skype%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r w2 t">个性签名</div>
<div class="fl t"><textarea name="UserSign" rows="1" cols="1"><%=UserSign%></textarea></div>
</div>
<div class="tc b cb">
<div class="fl r w2 t">个人简介</div>
<div class="fl t"><textarea name="UserIntro" rows="1" cols="1"><%=UserIntro%></textarea></div>
</div>
<div class="tc ac"><input type="submit" id="submit" value=" 确 定 " /></div>
</form>
</div>
<%
end sub

sub EditInfook
UserSign=HTMLEncode(Request.Form("UserSign"))
UserIntro=HTMLEncode(Request.Form("UserIntro"))
birthday=HTMLEncode(Request.Form("birthday"))
qq=ChkNumeric(Request.Form("qq"))
if Len(UserIntro)>150 then Message=Message&"<li>简介不能多于150字符，请化简</li>"
if Cache("BannedText")<>empty then
filtrate=split(Cache("BannedText"),"|")
for i = 0 to UBound(filtrate)
UserSign=ReplaceText(UserSign,""&filtrate(i)&"",string(len(filtrate(i)),"*"))
UserIntro=ReplaceText(UserIntro,""&filtrate(i)&"",string(len(filtrate(i)),"*"))
next
end if

if Not IsDate(birthday) and birthday<>"" then Message=Message&"<li>生日格式填写错误</li>"
if birthday=empty then birthday=Null
if qq>0 Then
if Not Conn.Execute("select Username from [WxUsers] where UserIM like '"&qq&"%' and UserName<>'"&CookieUserName&"'").Eof Then Message=Message&"<li>您输入的QQ号码在本论坛已经有人使用了</li>"
end if
if Message<>"" then Error 3,Message

if qq=0 Then qq=empty

sql="select * from [WxUsers] where Username='"&CookieUserName&"'"
Rs.Open sql,Conn,1,3
Rs("birthday")=birthday
Rs("UserSex")=HTMLEncode(Request("UserSex"))
Rs("UserSign")=UserSign
Rs("UserInfo")=""&HTMLEncode(Request("Realname"))&"\"&HTMLEncode(Request("Address"))&"\"&HTMLEncode(Request("Userwork"))&"\"&HTMLEncode(Request("UserInterest"))&"\"&HTMLEncode(Left(trim(Request("UserIntro")),150))&""
Rs("Userhome")=""&HTMLEncode(Request("Userhome"))&""
Rs("UserIM")=""&qq&"\"&HTMLEncode(Request.Form("MSN"))&"\"&HTMLEncode(Request.Form("UC"))&"\"&HTMLEncode(Request.Form("Skype"))
Rs.update
Rs.close
Succ "编辑基本资料成功","<li><a href=MyPanel.asp?menu=EditInfo>返回编辑基本资料</a></li>","MyPanel.asp?menu=EditInfo"
end sub

sub EditSite
%>
<div class="tb">
<form method="post" name="form" action="MyPanel.asp?menu=EditSiteok">
<div id="tt">个性显示选项</div>
<div class="tc b cb">
<div class="fl r w4 si">在帖子中显示所有用户的头像</div>
<div class="fl si"><input type="radio" name="DisabledShowFace"<%if Cookies("DisabledShowFace")="" then%> checked="checked"<%end if%> value="" />是 
<input type="radio" name="DisabledShowFace"<%if Cookies("DisabledShowFace")="1" then%> checked="checked"<%end if%> value="1" />否</div>
</div>
<div class="tc b cb">
<div class="fl r w4 si">在帖子中显示所有用户的签名</div>
<div class="fl si"><input type="radio" name="DisabledShowSign" <%if Cookies("DisabledShowSign")="" then%>checked="checked"<%end if%> value="" />是 
<input type="radio" name="DisabledShowSign" <%if Cookies("DisabledShowSign")="1" then%>checked="checked"<%end if%> value="1" />否</div>
</div>
<div class="tc ac"><input type="submit" id="submit" value="确定" /></div>
</form>
</div>
<%
end sub

sub EditSiteok
CookiesAdd "DisabledShowFace",ChkNumeric(Request.Form("DisabledShowFace")),365
CookiesAdd "DisabledShowSign",ChkNumeric(Request.Form("DisabledShowSign")),365
Succ "编辑个性显示","<li><a href=MyPanel.asp?menu=EditSite>编辑个性显示</a></li>","MyPanel.asp?menu=EditSite"
end sub

sub EditFace
%><form method="post" name="form" action="?menu=ChangeFace"><div class="tb">
<div id="tt">个性头像</div>
<div class="tc cb"><div class="hand fl" onclick="javascript:open('Inc/Face.htm','','width=380,height=500,resizable,scrollbars')"><img alt='' id="tus" src="<%=Conn.Execute("select Userface from [WxUsers] where Username='"&CookieUserName&"'")(0)%>" width=48 height=48 name=tus border="0" title="选择系统给定的头像"></div>
<div class="fl"><input type="text" name="Userface" size="40" value="<%=Conn.Execute("select Userface from [WxUsers] where Username='"&CookieUserName&"'")(0)%>" /><br /><input id="submit1" type="submit" value=" 更 改 " />  <input type="button" value=" 设置为我的qqshow " onclick="window.location.href='MyPanel.asp?menu=SetQQ';"> <input type="button" value=" 上传头像 " onclick="return ShowModal('上传头像','MyPanel.asp?menu=Upface');" /></div>
</div>
</form>
</div>
<%
end sub

sub EditFaceok
if Request.Form("Userface")<>Empty Then
if instr(Request.Form("Userface"),";")>0 or instr(Request.Form("Userface"),"%")>0 or instr(Request.Form("Userface"),"javascript:")>0 then Error 3,"<li>头像Url中不能含有特殊符号</li>"
end if
Conn.Execute("update [WxUsers] set Userface='"&Request.Form("Userface")&"' where Username='"&CookieUserName&"'")
Succ "编辑头像","<li><a href=MyPanel.asp?menu=EditFace>返回编辑头像</a></li>","MyPanel.asp?menu=EditFace"
end sub

sub Passok
Userpass=Trim(Request("Userpass"))
oldUserpass=Trim(Request("oldUserpass"))
Userpass2=Trim(Request("Userpass2"))
PasswordQuestion=HTMLEncode(Request("PasswordQuestion"))
UserMail=HTMLEncode(Request("UserMail"))

if instr(UserMail,"@")=0 then Error 3,"<li>您的电子邮箱地址填写错误</li>"

sql="select * from [WxUsers] where Username='"&CookieUserName&"'"
Rs.Open sql,Conn,1,3

if oldUserpass<>"" then
if md5(oldUserpass)<>Rs("Userpass") then Message=Message&"<li>您的原密码错误</li>"
if Userpass<>Userpass2 then Message=Message&"<li>您的新密码和确认新密码不同</li>"
if Userpass<>empty then
if Len(Userpass)<6 then Message=Message&"<li>新密码必须至少包含 6 个字符</li>"
Rs("Userpass")=md5(Userpass)
end if
end if
if Message<>"" then Error 3,Message
Rs("PasswordQuestion")=PasswordQuestion
if Request("PasswordAnswer")<>empty then Rs("PasswordAnswer")=md5(Request("PasswordAnswer"))
Rs("UserMail")=UserMail
Rs.update
Rs.close
Succ "修改密码","<li><a href=MyPanel.asp?menu=EditPass>用户密码修改</a></li>","MyPanel.asp?menu=EditPass"
end sub

sub Upface
top "上传头像",false
%>
<iframe class="frame" src="" name="Temp"></iframe>
<form method="post" name="form" action="MyPanel.asp?menu=up" enctype="multipart/form-data" target="Temp">
<div class="tc cb">
 <input type="file" name="file" size="60" />
 <input type="submit" id="submit" value=" 上 传 " />
 </div>
</form>
<%
CloseDataBase
end sub

sub EditPass
sql="select * from [WxUsers] where Username='"&CookieUserName&"'"
Set Rs=Conn.Execute(sql)
%>
<div class="tb">
<form method="post" name="form" action="MyPanel.asp" onsubmit="return VerifyInput();">
<input type="hidden" name="menu" value="Passok" />
<script src="inc/ChkPwd.js" type="text/javascript"></script>
<div id="tt">编辑密码</div>
<div class="tc b cb">
<div class="fl r w4 i">原密码<br />若不更改密码此处请留空</div>
<div class="fl i"><input type="password" name="oldUserpass" size="40" /></div>
</div>
<div class="tc b cb">
<div class="fl r w4 i">新密码<br />若不更改密码此处请留空</div>
<div class="fl i"><div><div class="fl"><input type="password" name="Userpass" size="40" maxlength="16" onBlur="chkpwd(this);" onKeyUp="chkpwd(this);" onChange="chkpwd(this)" /></div><div class="fr" id="chkResult"></div></div></div>
</div>
<div class="tc b cb">
<div class="fl r w4 si">重新键入新密码</div>
<div class="fl si"><input type="password" name="Userpass2" size="40" maxlength="16" /></div>
</div>
<div class="tc b cb">
<div class="fl r w4 si">Email地址</div>
<div class="fl si"><input type="text" name="UserMail" size="40" value="<%=Rs("UserMail")%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r w4 si">密码提示问题</div>
<div class="fl si"><input type="text" name="PasswordQuestion" size="40" value="<%=Rs("PasswordQuestion")%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r w4 i">问题提示答案<br />如不更改答案此处请留空</div>
<div class="fl i"><input type="text" name="PasswordAnswer" size="40" value="" /></div>
</div>
<div class="tc ac"><input type="submit" id="submit" value="确定" /></div>
</form>
</div>
<script type="text/javascript">
function VerifyInput()
{
var Mail = document.form.UserMail.value;
if(Mail.indexOf('@',0) == -1 || Mail.indexOf('.',0) == -1){
alert("您输入的Email有错误\n请重新检查您的Email");
document.form.UserMail.focus();
return false;
}

if (document.form.UserMail.value == "")
{
alert("请输入您的Email地址");