usersetup.asp

一个功能很全面的设计网站,可以作为工作室、个人主页、技术网站等

end if


if canreg=false then
tl=" 修 改 失 败"
mes="<b>对不起！你不能成功地修改资料,可能存在以下问题。</b><br>"&mes&"·<a href='javascript:history.go(-1)'><img border=0 src=pic/re.gif align=absmiddle> 返回重新填写。</a>"
elseif canreg=true then
userinfo=email&"|"&home&"|"&burn&"|"&qq&"|"&sex&"|"&toupic&"|"&gxqm&"|"&session(prefix&"regtime")&"|"&diyname
conn.execute("update [user] set userinfo='"&userinfo&"' where userid="&lguserid&"")
tl=" 修 改 成 功"
mes="你的资料修改成功。"
end if
call sendinfo(tl,mes)
%>
<%case"mypwd"%><form method="POST" action="usersetup.asp?action=editpwd"><%=ttop%>
<table align="center" border="1" bordercolor=<%=c2%> cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>">
  <tr>
    <td class=td1 width="100%" bgcolor="<%=c1%>" background="<%=tbg%>" height="28">&nbsp; <img src="pic/gl.gif" border="0"> 修改密码</td>
  </tr>
  <tr>
    <td width="100%">
    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
      <tr>
        <td width="40%">
        <p style="line-height: 120%; margin: 4"><b>旧密码确认</b>：<br>
        请输入旧密码进入确认</td>
        <td width="60%">　<input type="password" name="oldpwd" size="30"></td>
      </tr>
      <tr>
        <td>
        <p style="line-height: 120%; margin: 4">
<b>新密码(最多16位)</b>：<br>请不要使用任何类似 '*'、' ' 或 HTML 字符</td>
        <td>　<input type="password" name="newpwd" size="30"></td>
      </tr>
      <tr>
        <td>
        <p style="line-height: 120%; margin: 4"><b>重复密码(最多16位)</b>：<br>请再输一遍确认</td>
        <td>　<input type="password" name="repwd" size="30"></td>
      </tr>
      <tr>
        <td colspan="2" bgcolor="<%=c2%>" height="40" align="center">
        <input class=submit type=submit value="   立 即 修 改   " name=Submit>&nbsp;&nbsp; 
        <input class=submit type=reset value="   重 新 填 写   " name=Submit2></td>
      </tr>
      </table>
    </td>
  </tr>
</table><%=tbottom%></form>
<%case"editpwd"
dim oldpwd,newpwd,repwd,canedit
oldpwd=Replace(Request.Form("oldpwd"),"'","''")
newpwd=Replace(Request.Form("newpwd"),"'","''")
repwd=Replace(Request.Form("repwd"),"'","''")

canedit=true

if oldpwd="" or newpwd="" or repwd="" then
canedit=false
mes="·请填写完整必填的资料。<br>"
else
mes=""

if md5(oldpwd)<>lgpwd then canedit=false:mes=mes&"·你填写的旧密码不正确。<br>"
if len(newpwd)>16 then canedit=false : mes=mes&"·你填写的新密码长度超过了16。<br>"
if passc(newpwd)=false then canedit=false:mes=mes&"·你的新密码含有非法字符。<br>"
sickpass=split("123$$1234$$12345$$123456$$1234567$$12345678$$aaa$$111","$$")
for i=0 to ubound(sickpass) 
if len(newpwd)<3 or newpwd=sickpass(i) then
canedit=false
mes=mes&"·你的新密码属于弱口令，请更换密码。<br>"
exit for
end if
next
if repwd<>newpwd then canedit=false : mes=mes&"·你两次输入的密码不一样。<br>"

end if

if canedit=false then
tl=" 修 改 失 败"
mes="<b>对不起！你不能成功修改你的密码,可能存在以下问题。</b><br>"&mes&"·<a href='javascript:history.go(-1)'><img border=0 src=pic/re.gif align=absmiddle> 返回重新填写。</a>"
elseif canedit=true then
newpwd=md5(newpwd)
conn.execute("update [user] set [password]='"&newpwd&"' where userid="&lguserid&"")

Response.Cookies(prefix)("lgpwd")=newpwd
if lgcook>0 then
Response.Cookies(prefix).Expires=date+lgcook
end if

tl=" 修 改 成 功"
mes="你的密码修改成功。"

end if
call sendinfo(tl,mes)
%>
<%case"display"
dim indexinfo,gonggao,lm,online
indexinfo=checknum(request.Cookies(prefix&"1")("indexinfo"))
gonggao=checknum(request.Cookies(prefix&"1")("gonggao"))
lm=checknum(request.Cookies(prefix&"1")("lm"))
online=checknum(request.Cookies(prefix&"1")("online"))
userinfo=checknum(request.Cookies(prefix&"1")("userinfo"))

%><form method="POST" action="cookies.asp?action=display">
<%=ttop%>
<table align=center border="1" bordercolor=<%=c2%> cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>">
  <tr>
    <td class=td1 width="100%" bgcolor="<%=c1%>" background="<%=tbg%>" height="28">&nbsp; <img src="pic/gl.gif" border="0"> 
    论坛显示设置</td>
  </tr>
  <tr>
    <td width="100%">
    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
      <tr>
        <td width="70%" bgcolor="<%=c2%>">
        <p style="line-height: 150%; margin: 5"><b>论坛首页信息：</b><br>比如新会员、会员数、主题数、总帖数、今日帖数、最高日帖、首页公告。</td>
        <td width="30%">　<input type="radio" value="1" name="indexinfo" <%if indexinfo=1 or indexinfo="" then%>checked<%end if%>>显 示 <input type="radio" name="indexinfo" value="2" <%if indexinfo=2 then%>checked<%end if%>>隐 藏</td>
      </tr>
            <tr>
        <td bgcolor="<%=c2%>">
        <p style="line-height: 150%; margin: 5"><b>分论坛公告：</b><br>也许你从来都不看分论坛的公告。如果这样，可以隐藏该项。</td>
        <td>　<input type="radio" value="1" name="gonggao" <%if gonggao=1 or gonggao="" then%>checked<%end if%>>显 示 
        <input type="radio" name="gonggao" value="2" <%if gonggao=2 then%>checked<%end if%>>隐 藏</td>
      </tr>
      <tr>
        <td bgcolor="<%=c2%>">
        <p style="line-height: 150%; margin: 5"><b>论坛在线统计：</b><br>论坛统计当前在线人数以及列表。</td>
        <td>　<input type="radio" value="1" name="online" <%if online=1 or online="" then%>checked<%end if%>>显 示 
        <input type="radio" name="online" value="2" <%if online=2 then%>checked<%end if%>>隐 藏</td>
      </tr>
      <tr>
        <td bgcolor="<%=c2%>">
        <p style="line-height: 150%; margin: 5"><b>论坛联盟：</b><br>首页下部的论坛联盟。如果你觉得没有用处，可以把该项隐藏掉。</td>
        <td>　<input type="radio" value="1" name="lm" <%if lm=1 or lm="" then%>checked<%end if%>>显 示 
        <input type="radio" name="lm" value="2" <%if lm=2 then%>checked<%end if%>>隐 藏</td>
      </tr>
      <tr>
        <td bgcolor="<%=c2%>">
        <p style="line-height: 150%; margin: 5"><b>帖子中用户信息：</b><br>在浏览帖子中显示的作者的信息，比如用户头像、积分、等级……<br>隐藏该项可以获得非常快的帖子显示速度。</td>
        <td>　<input type="radio" value="1" name="userinfo" <%if userinfo=1 or userinfo="" then%>checked<%end if%>>显 示 
        <input type="radio" name="userinfo" value="2" <%if userinfo=2 then%>checked<%end if%>>隐 藏</td>
      </tr>

      <tr>
        <td bgcolor="<%=c2%>" colspan="2" height="40" align="center">
        <input type="submit" value="     确  认  修  改     " name="B1"></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<%=tbottom%></form>


<%case"stylediy"
function kbbs1(str)
if not isnull(str) and str<>"" then
	str = Replace(str, "&","&amp;")
	str = replace(str, ">", "&gt;")
	str = replace(str, "<", "&lt;")
kbbs1 = str
end if
end function
%><form method="POST" action="usersetup.asp?action=savemystyle">
<%=ttop%>
<table align="center" border="1" bordercolor=<%=c2%> cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>">
  <tr>
    <td class=td1 colspan="2" width="100%" bgcolor="<%=c1%>" background="<%=tbg%>" height="28">&nbsp; <img src="pic/gl.gif" border="0"> 自定义风格</td>
  </tr>
  <tr>
    <td width="30%">
    <p style="line-height: 120%; margin: 5">论坛主要颜色：</td>
    <td width="70%">&nbsp;<input type="text" name="c1" size="30" value="<%=kbbs(c1)%>"> *</td>
  </tr>
  <tr>
    <td>
    <p style="line-height: 120%; margin: 5">论坛表格底色：</td>
    <td>&nbsp;<input type="text" name="c2" size="30" value="<%=kbbs(c2)%>"> *</td>
  </tr>
  <tr>
    <td>
    <p style="line-height: 120%; margin: 5">论坛表格大小：</td>
    <td>&nbsp;<input type="text" name="tbw" size="30" value="<%=kbbs(tbw)%>"> *</td>
  </tr>
  <tr>
    <td>
    <p style="line-height: 120%; margin: 5">论坛表格背景图片：</td>
    <td>&nbsp;<input type="text" name="tbg" size="50" value="<%=kbbs(tbg)%>"></td>
  </tr>
  <tr>
    <td valign="top">
    <p style="line-height: 120%; margin: 5">论坛顶部信息：</td>
    <td>
    <p style="margin: 5">
    <textarea rows="6" name="tinfo" cols="62" style="font-family: 宋体; font-size: 9pt"><%=kbbs1(tinfo)%></textarea></td>
  </tr>
    <tr>
    <td valign="top">
    <p style="line-height: 120%; margin: 5">论坛底部信息：</td>
    <td>
    <p style="margin: 5"><textarea rows="6" name="binfo" cols="62" style="font-family: 宋体; font-size: 9pt"><%=kbbs1(binfo)%></textarea></td>
  </tr>  <tr>
    <td valign="top">
    <p style="line-height: 120%; margin: 5">表格顶部信息：</td>
    <td>
    <p style="margin: 5"><textarea rows="6" name="ttop" cols="62" style="font-family: 宋体; font-size: 9pt"><%=kbbs1(ttop)%></textarea></td>
  </tr>  <tr>
    <td valign="top">
    <p style="line-height: 120%; margin: 5">表格底部信息：</td>
    <td>
    <p style="margin: 5"><textarea rows="6" name="tbottom" cols="62" style="font-family: 宋体; font-size: 9pt"><%=kbbs1(tbottom)%></textarea></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="<%=c2%>" align="center" height="32">
        <input type="submit" value="     确  认  修  改     " name="B1"></td>
  </tr>
</table><%=request.cookies(prefix&"1")("tbottom")%></form>

<%case"savemystyle"
c1=replace(request.form("c1"),"'","")
c2=replace(request.form("c2"),"'","")
tbw=replace(request.form("tbw"),"'","")
tbg=replace(request.form("tbg"),"'","")
tinfo=replace(request.form("tinfo"),"'","")
binfo=replace(request.form("binfo"),"'","")
ttop=replace(request.form("ttop"),"'","")
tbottom=replace(request.form("tbottom"),"'","")
if isnull(tinfo) or tinfo="" then tinfo=" "
if isnull(binfo) or binfo="" then binfo=" "
if isnull(ttop) or ttop="" then ttop=" "
if isnull(tbottom) or tbottom="" then tbottom=" "
if c1="" or c2="" or tbw="" then
tl=" 操 作 失 败"
mes="对不起，你不能自定义风格。<br>·请填写完整必填的资料。<br>·<a href='javascript:history.go(-1)'><img border=0 src=pic/re.gif align=absmiddle> 返回重新填写。</a>"
else
response.cookies(prefix&"1")("tinfo")=tinfo
response.cookies(prefix&"1")("binfo")=binfo
response.cookies(prefix&"1")("ttop")=ttop
response.cookies(prefix&"1")("tbottom")=tbottom
response.cookies(prefix&"1")("tbw")=tbw
response.cookies(prefix&"1")("c1")=c1
response.cookies(prefix&"1")("c2")=c2
response.cookies(prefix&"1")("tbg")=tbg
Response.Cookies(prefix&"1").Expires=date+365
tl=" 操 作 成 功"
mes="你已经成功的设置了论坛风格。"
end if
call sendinfo(tl,mes)
%>
<%end select
call down%>