📄 mysetup.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/setup.asp"-->
<!--#include file="head.asp"-->
<%
if UserID="" or UserID=null then
Response.redirect("login.asp?tourl=mysetup")
end if
dim listtype,titlecss1,titlecss2,titlecss3,msg
listtype=Request.QueryString("type")
if listtype="" then
listtype="basic"
end if
if listtype="basic" then
titlecss1="bgtitlen"
titlecss2="bgtitley"
titlecss3="bgtitley"
what=Trim(Request.Form("what"))
if what="update" then
OldPsw=Request.Form("OldPsw")
Psw=Request.Form("Psw")
webname=Request.Form("webname")
weburl=Request.Form("weburl")
UserName=Trim(CheckStr(Request.Form("UserName")))
Email=Trim(CheckStr(Request.Form("Email")))
set rs=server.createobject("ADODB.recordset")
Application.Lock()
rs.Open "select * from myuser where UserID='"&UserID&"' and Psw='"&OldPsw&"'",conn,3,3
if not rs.Eof then
if Psw<>"" then
rs("Psw")=Psw
end if
rs("UserName")=UserName
rs("Email")=Email
rs("webname")=webname
rs("weburl")=weburl
rs.update
msg="基本信息修改成功！"
else
msg="原密码错误，忘记密码请发邮件到cao1984@126.com"
end if
rs.close
Application.UnLock()
else
set rs=conn.execute("select * from myuser where UserID='"&UserID&"'")
UserName=rs("UserName")
Email=rs("Email")
webname=rs("webname")
weburl=rs("weburl")
end if
elseif listtype="bookmark" then
titlecss1="bgtitley"
titlecss2="bgtitlen"
titlecss3="bgtitley"
what=Trim(Request.Form("what"))
if what="insert" then
Url=Trim(CheckStr(Request.Form("Url")))
Bookmark=Trim(CheckStr(Request.Form("Bookmark")))
Remark=Trim(CheckStr(Request.Form("Remark")))
set rsadd=server.createobject("ADODB.recordset")
Application.Lock()
rsadd.Open "bookmark",conn,3,3
rsadd.AddNew
rsadd("UserID")=UserID
rsadd("URL")=Url
rsadd("Bookmark")=Bookmark
rsadd("Remark")=Remark
rsadd.Update
Application.UnLock()
rsadd.close
end if
elseif listtype="tags" then
titlecss1="bgtitley"
titlecss2="bgtitley"
titlecss3="bgtitlen"
Tags=Trim(CheckStr(Request.Form("Tags")))
do while instr(Tags," ")>0
Tags=replace(Tags," "," ")
loop
TagArray = Split(Tags, " ", -1, 1)
TagCount=UBound(TagArray, 1)
for i = 0 to TagCount
set rs=conn.execute("select * from xsort where UserID='"&UserID&"' and XSort='"&TagArray(i)&"'")
if rs.Eof then
'set rs=conn.execute("select count(*) as Num from zhai where UserID='"&UserID&"' and ' '+Tags+' ' like '% "&TagArray(i)&" %'")
'Num=rs("Num")
set rsadd=server.createobject("ADODB.recordset")
rsadd.Open "xsort",conn,3,3
rsadd.AddNew
rsadd("UserID")=UserID
rsadd("XSort")=TagArray(i)
'rsadd("Num")=Num
rsadd.Update
rsadd.close
end if
next
end if
%>
<script language="JavaScript">
<!--
function CheckPsw(obj){
if(obj.Psw.value.length>0){
if((obj.Psw.value.length<6)||(obj.Psw.value.length>18)){
document.all.sPsw.innerHTML='密码必须是6-18个字符';
return false;
}else if(obj.Psw.value!==obj.RePsw.value){
document.all.sPsw.innerHTML='';
document.all.sRePsw.innerHTML='确认密码必须与密码一致';
return false;
}else{
document.all.sPsw.innerHTML='';
document.all.sRePsw.innerHTML='';
return true;
}
}
else
{
document.all.sPsw.innerHTML='';
document.all.sRePsw.innerHTML='';
return true;
}
}
function CheckOldPsw(obj){
if(obj.OldPsw.value.length==0){
document.all.sOldPsw.innerHTML='请填写原密码';
return false;
}else{
document.all.sOldPsw.innerHTML='';
return true;
}
}
function CheckEmail(String){
var re;
re=new RegExp("\\w+@((\\w)+\\.)+[a-z]{2,3}$");
return re.test(String);
}
function check(obj){
var CO,CP,CE;
CO=CheckOldPsw(obj);
CP=CheckPsw(obj);
CE=CheckEmail(obj.Email.value)
if(CE){
document.all.sEmail.innerHTML='';
}else{
document.all.sEmail.innerHTML='请正确填写Email地址';
}
if(CO&&CP&&CE){
return true;
}else{
document.all.msg.innerHTML='';
return false;
}
}
function checkBk(obj){
var CB=true,CU=true;
if(obj.Bookmark.value==""){
document.all.sBookmark.innerHTML="站点名称不能为空";
CB=false;
}else{
document.all.sBookmark.innerHTML=""
}
if(obj.Url.value==""){
document.all.sUrl.innerHTML="站点地址不能为空";
CU=false;
}else{
document.all.sUrl.innerHTML="";
}
if(CB&&CU){
return true;
}else{
return false;
}
}
//-->
</script>
<table width="900" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="10"></td>
</tr>
<tr>
<td height="28" align="center" bgcolor="#B3BDC4" class="big14px"><b>我的管理中心</b> ◆<a href="mysetup.asp?type=basic">基本设置</a> ◆<a href="myzhai.asp">我的收藏</a> ◆<a href="mysetup.asp?type=bookmark">书签设置</a> ◆<a href="mysetup.asp?type=tags">标签管理</a> ◆<a href="mysetup.asp?type=js">js调用</a></td>
</tr>
</table>
<%
if listtype="basic" then
%>
<table width="400" border="0" cellspacing="0" align="center">
<tr>
<td height="40" align="center" id="msg" class="redfont"><b><%=msg%></b></td>
</tr>
</table>
<form name="form1" method="post" onSubmit="return check(this);" action="mysetup.asp?type=basic" style="margin-bottom:0;margin-top:0">
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="40%" height="30" align="right">用户ID：</td>
<td width="60%" align="left"><input name="UserID" type="text" id="UserID" maxlength="30" value="<%=UserID%>" readonly> <span class="redfont">(不可以修改)</span></td>
</tr>
<tr>
<td width="40%" height="30" align="right">用户名称：</td>
<td width="60%" align="left"><input name="UserName" type="text" id="UserName" maxlength="100" value="<%=UserName%>"> </td>
</tr>
<tr>
<td height="30" align="right">原密码：</td>
<td align="left"><input name="OldPsw" type="password" id="oldPsw" value="">
<span class="redfont" id="sOldPsw">*</span></td>
</tr>
<tr>
<td height="30" align="right">新密码：</td>
<td align="left"><input name="Psw" type="password" id="Psw" value="">
(为空表示不修改)
<span class="redfont" id="sPsw"></span></td>
</tr>
<tr>
<td height="30" align="right">重复新密码：</td>
<td align="left"><input name="RePsw" type="password" id="RePsw" value="">
<span class="redfont" id="sRePsw"></span></td>
</tr>
<tr>
<td height="30" align="right">网站名称：</td>
<td align="left"><input name="webname" type="text" id="Email0" value="<%=webname%>"></td>
</tr>
<tr>
<td height="30" align="right">网址：</td>
<td align="left">
<input name="weburl" type="text" id="Email1" value="<%=weburl%>" size="29"></td>
</tr>
<tr>
<td height="30" align="right">Email：</td>
<td align="left"><input name="Email" type="text" id="Email" value="<%=Email%>">
<span class="redfont" id="sEmail">*</span></td>
</tr>
<tr align="center">
<td colspan="2"><input type="submit" name="Submit" value="修改注册信息">
<input name="what" type="hidden" id="what" value="update"></td>
</tr>
</table>
</form>
<%
elseif listtype="bookmark" then
%>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="5">
<tr bgcolor="#C0C0C0">
<td height="28" colspan="3" bgcolor="#FBF3EC"> 我的书签</td>
</tr>
<%
set rs=conn.execute("select * from bookmark where UserID='"&UserID&"' order by id desc")
do while not rs.Eof
row=row+1
Response.Write("<tr>")
Response.Write("<td width='210' align=left>[书签"&rs("id")&"]:<a href='"&UnCheckStr(rs("Url"))&"' target='_blank'>"&UnCheckStr(rs("Bookmark"))&"</a></td>")
Response.Write("<td align=left>备注:"&UnCheckStr(rs("Remark"))&"</td>")
Response.Write("<td width='30' align=left><a href='delbookmark.asp?id="&rs("ID")&"&from=mysetup.asp?type=bookmark' onclick=""return (confirm('真的要删除吗？'))"">删除</a></td>")
rs.movenext
Response.Write("</tr>")
loop
rs.close
%>
</table>
<form name="form1" method="post" onSubmit="return checkBk(this);" action="mysetup.asp?type=bookmark" style="margin-bottom:0;margin-top:0">
<table width="500" border="0" align="center" cellspacing="5">
<tr height="30">
<td height="28" colspan="2" align="center" bgcolor="#FBF3EC" class="redfont">添加个人书签 - 为了大家，请不要提交非法信息</td>
</tr>
<tr>
<td width="22%" height="30" align="left">站点名称:</td>
<td width="78%" height="30" align="left"><input name="Bookmark" type="text" id="Bookmark" size="30" maxlength="30">
<span class="redfont" id="sBookmark">*</span>
</td>
</tr>
<tr>
<td height="30" align="left">站点地址:</td>
<td height="30" align="left"><input name="Url" type="text" id="Url" size="30" maxlength="100">
<span class="redfont" id="sUrl">*前面需加 http://</span>
</td>
</tr>
<tr>
<td height="30" align="left">站点介绍:</td>
<td height="30" align="left"><textarea name="Remark" cols="29" rows="3" id="Remark"></textarea></td>
</tr>
<tr align="center">
<td colspan="2"><input type="submit" name="Submit" value="提交书签">
<input name="what" type="hidden" id="what" value="insert"></td><td width="0%"></td>
</tr>
</table>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</form>
<%
elseif listtype="tags" then
%>
<form name="form1" method="post" onSubmit="return checkBk(this);" action="mysetup.asp?type=tags" style="margin-bottom:0;margin-top:0">
<input name="what" type="hidden" id="what" value="insert">
<table width="800" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="55%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="45" align="left" class="redfont">可以同时输入多个标签进行添加，标签之间用空格分隔</td>
</tr>
<tr>
<td align="left">添加标签:
<input type="text" name="Tags" id="Tags" />
<input type="submit" name="Submit3" value="添加" />
<input name="what3" type="hidden" id="what3" value="insert" /></td>
</tr>
</table></td>
<td width="458" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="left"><b>已添加的标签列表</b></td>
</tr>
<%
dim fontsize
sql="select XSort,id from xsort where UserID='"&UserID&"'"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,3
if not rs.Eof then
Response.Write("<tr valign='top'><td height=22 class=list align=left bgcolor='#FBF3EC'>")
while not rs.Eof
'fontsize=11+rs("Num")/2
if fontsize > 100 then
fontsize=100
end if
Response.Write("<li><a style='font-size: "&fontsize&"px;' href='tagzhai.asp?zhaiuser="&userid&"&tag="&UnCheckStr(rs("XSort"))&"'>"&UnCheckStr(rs("XSort"))&"</a> (<a href='deltag.asp?user="&UserID&"&tag="&UnCheckStr(rs("XSort"))&"' onclick=""return (confirm('真的要删除“"&UnCheckStr(rs("XSort"))&"”标签吗？'))"">删除</a> <a href='edittag.asp?id="&rs("id")&"&user="&UserID&"&tag="&UnCheckStr(rs("XSort"))&"')"">修改</a>)</li><br>")
rs.MoveNext
wend
Response.Write("</td></tr>")
end if
rs.close
%>
</table></td>
</tr>
</table>
</form>
<%elseif listtype="js" then%>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="55%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="45" align="left" class="redfont">拷贝下列代码</td>
</tr>
<tr>
<td align="left"><textarea name="textarea" cols="45" rows="6"><script language="JavaScript" src="<%=SiteURL%>/viewjs.asp?w=420&h=180&s=&u=<%=userid%>&i=n&l=10&p=id" type="text/javascript"></script>
</textarea></td>
</tr>
<tr>
<td align="left">变换不同的参数可以求出不同的数据！参数说明：<br />
w 宽度 h 高度 s 分类ID <br />
u 用户 l 行数 p 排序</td>
</tr>
</table></td>
<td align="left"><br /><span class="redfont">演示效果如下：</span><br />
<script language="JavaScript" src="<%=SiteURL%>/viewjs.asp?w=420&h=180&s=&u=<%=userid%>&i=n&l=10&p=id" type="text/JavaScript"></script></td>
</tr>
</table>
<br><br>
<%
end if
%>
<!--#include file="bottom.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -