?? mymodify.asp
字號:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/chkinput.asp"-->
<%
'=========================================================
' File: mymodify.asp
' Version:5.0
' Date: 2002-9-11
' Script Written by satan
'=========================================================
' Copyright (C) 2001,2002 AspSky.Net. All rights reserved.
' Web: http://www.aspsky.net,http://www.dvbbs.net
' Email: info@aspsky.net,eway@aspsky.net
'=========================================================
response.buffer=true
stats="修改基本資料"
dim sex
dim showre
dim face,width,height
dim birthday
dim usercookies
call nav()
if Cint(GroupSetting(16))=0 then
Errmsg=Errmsg+"<br>"+"<li>您沒有在本論壇修改資料的權限，請<a href=login.asp>登陸</a>或者同管理員聯(lián)系。"
founderr=true
end if
if not founduser then
Errmsg=Errmsg+"<br>"+"<li>您還沒有登陸，請登陸后進行修改。"
founderr=true
end if
if founderr then
errmsg=errmsg+"<br>"+"<li>您沒有<a href=login.asp target=_blank>登錄</a>。"
call head_var(2,0,"","")
call dvbbs_error()
else
call head_var(0,0,membername & "的控制面板","usermanager.asp")
if request("action")="updat" then
call update()
if founderr then
call dvbbs_error()
else
sucmsg="<li>更改資料成功！"
call dvbbs_suc()
end if
else
call userinfo()
if founderr then call dvbbs_error()
end if
end if
call activeonline()
call footer()
sub userinfo()
dim CanUseTitle,CanUseTitle1,CanUseTitle2
CanUseTitle=false
CanUseTitle1=false
CanUseTitle2=false
set rs=server.createobject("adodb.recordset")
sql="Select * from [User] where userid="&userid
rs.open sql,conn,1,1
if rs.eof and rs.bof then
errmsg=errmsg+"<br>"+"<li>該用戶名不存在。"
founderr=true
exit sub
else
if Cint(Forum_Setting(6))=1 then
CanUseTitle=true
end if
if CanUseTitle and Cint(forum_setting(60))>0 and rs("article")>Cint(forum_setting(60)) then
CanUseTitle1=true
elseif CanUseTitle and Cint(forum_setting(60))=0 then
CanUseTitle1=true
else
CanUseTitle1=false
end if
if CanUseTitle and Cint(forum_setting(61))>0 and DateDiff("d",rs("AddDate"),Now())>Cint(forum_setting(61)) then
CanUseTitle2=true
elseif CanUseTitle and Cint(forum_setting(61))=0 then
CanUseTitle2=true
else
CanUseTitle2=false
end if
if CanUseTitle and Cint(forum_setting(62))=1 then
if CanUseTitle1 and CanUseTitle2 then
CanUseTitle=true
else
CanUseTitle=false
end if
elseif CanUseTitle and (CanUseTitle1 or CanUseTitle2) then
CanUseTitle=true
else
CanUseTitle=false
end if
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<tr>
<th width=14% height=25 id=tabletitlelink><a href=usermanager.asp>控制面板首頁</a></th>
<th width=14% id=tabletitlelink><a href=mymodify.asp>基本資料修改</a></th>
<th width=14% id=tabletitlelink><a href=modifypsw.asp>用戶密碼修改</a></th>
<th width=14% id=tabletitlelink><a href=modifyadd.asp>聯(lián)系資料修改</a></th>
<th width=14% id=tabletitlelink><a href=usersms.asp>用戶短信服務</a></th>
<th width=14% id=tabletitlelink><a href=friendlist.asp>編輯好友列表</a></th>
<th width=14% id=tabletitlelink><a href=favlist.asp>用戶收藏管理</a></th>
</tr>
</table>
<form action="mymodify.asp?action=updat&username=<%=htmlencode(membername)%>" method=POST name="theForm">
<table cellpadding=3 cellspacing=1 border=0 align=center class=tableborder1>
<tr>
<th colspan="2" width="100%">基本設置選項
</th>
</tr>
<%if CanUseTitle then%>
<tr>
<td width="40%" class=tablebody1><B>頭 銜</B>：</td>
<td width="60%" class=tablebody1> <input type="text" name="title" value="<%if trim(rs("title"))<>"" then%><%=htmlencode(RS("title"))%><%end if%>" size=15 maxlength=13> </td>
</tr>
<%end if%>
<tr>
<td width="40%" class=tablebody1><B>性 別</B>：<BR>請選擇您的性別</td>
<td width="60%" class=tablebody1><input type="radio" value="1"<%if rs("sex")=1 then%> checked <%end if%>name="Sex">酷哥
<input type="radio" name="Sex"<%if rs("sex")=0 then%> checked <%end if%> value="0">靚妹</td>
</td>
</tr>
<tr>
<td width="40%" class=tablebody1><B>生 日</B><BR>如不想填寫，請全部留空</td>
<td width="60%" class=tablebody1>
<select name=birthyear>
<option value=""></option>
<%for i=1901 to 2000%>
<option value="<%=i%>" <%if not isnull(rs("birthday")) and isdate(rs("birthday")) then%><%if cint(year(rs("birthday")))=cint(i) then response.write "selected"%><%end if%>><%=i%></option>
<%next%>
</select>
年
<select name=birthmonth>
<option value=""></option>
<%for i=1 to 12%>
<option value="<%=i%>" <%if not isnull(rs("birthday")) and isdate(rs("birthday")) then%><%if cint(month(rs("birthday")))=cint(i) then response.write "selected"%><%end if%>><%=i%></option>
<%next%>
</select>
月
<select name=birthday>
<option value=""></option>
<%for i=1 to 31%>
<option value="<%=i%>" <%if not isnull(rs("birthday")) and isdate(rs("birthday")) then%><%if cint(day(rs("birthday")))=cint(i) then response.write "selected"%><%end if%>><%=i%></option>
<%next%>
</select>
日</font>
</td>
</tr>
<tr>
<td width="40%" valign=top class=tablebody1><B>頭 像</B>：<BR>
您可以選擇一個個性圖片，當你發(fā)表時將顯示在您的名字下方。<BR>
<%if (Cint(forum_setting(54))>0 and rs("article")>Cint(forum_setting(54))) or Cint(forum_setting(54))=0 then%>
如果你填寫了下面的自定義頭像部分，那么你的頭像以自定義的為準。否則，請你留空自定義頭像的所有欄目！<BR>
<B>關于自定義頭像</B>：<BR>
你也可以在這里給出你自定義頭像的 URL 地址，頭像的高度和寬度(像素)。 如果不想要自定義頭像，請將相應欄目欄目全部留空！
<%end if%>
</td>
<td width="60%" class=tablebody1>
<table border="0" cellpadding="0" cellspacing="1" width="98%" >
<tr>
<td width="*" class=tablebody1>論壇頭像選擇
<select name=face style="font-family:arial" size=1 onChange="document.images['face'].src=options[selectedIndex].value; parent.document.forms[0].myface.value=options[selectedIndex].value">
<%
dim userregface
for i=0 to Forum_userfaceNum
userregface=Forum_info(11)&Forum_userface(i)
if trim(lcase(rs("face"))) = trim(lcase(userregface)) then
%>
<option value='<%=Forum_info(11)&Forum_userface(i)%>' selected><%=Forum_userface(i)%></option>
<% else %>
<option value='<%=Forum_info(11)&Forum_userface(i)%>'><%=Forum_userface(i)%></option>
<%
end if
next
%>
</select><a href="allface.asp" target="_blank" title="頭像預覽列表">[<font color=red>頭像預覽</font>]</a></td>
<td width="180" rowspan="2" valign=top align=center>
<img id=face src="<%=rs("face")%>" width=<%=rs("width")%> height=<%=rs("height")%>>
</td>
</tr>
<tr>
<td width="*" class=tablebody1>
<%if (Cint(forum_setting(54))>0 and rs("article")>Cint(forum_setting(54))) or Cint(forum_setting(54))=0 then%>
<% if Cint(Forum_Setting(7))=1 then %>
<iframe name="ad" frameborder=0 width=250 height=26 scrolling=no src=reg_upload.asp></iframe>
<% end if %>
<br>自定義頭像地址：<input type="TEXT" name="myface" size=30 maxlength=100 value=<%=rs("face")%>>
<br>寬 度：<input type="TEXT" name="width" size=3 maxlength=3 value=<%=rs("width")%>>0---<%=forum_setting(57)%>的整數(shù)
<br>高 度：<input type="TEXT" name="height" size=3 maxlength=3 value=<%=rs("height")%>>0---<%=forum_setting(57)%>的整數(shù)
<br>
<%END IF%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="40%" class=tablebody1><B>個人照片</B>：<BR>如果您有照片在網(wǎng)上，請輸入網(wǎng)頁地址。此項可選</td>
<td width="60%" class=tablebody1>
<input type="TEXT" name="userphoto" value="<%if trim(rs("userphoto"))<>"" then%><%=htmlencode(rs("userphoto"))%><%end if%>" size=30 maxlength=100>
</td>
</tr>
<%if cint(Forum_Setting(32))=1 then%>
<tr>
<td width="40%" class=tablebody1><B>門 派</B>：<BR>如果您有興趣，可加入以下門派</td>
<td width="60%" class=tablebody1>
<select name=groupname>
<%
dim grs
set grs=conn.execute("select * from GroupName")
if grs.eof and grs.bof then
%>
<option value="無門無派">無門無派</option>
<%else%>
<%do while not grs.eof%>
<option value="<%=grs("Groupname")%>" <% if instr(trim(rs("UserGroup")),trim(grs("Groupname"))) then%>selected<% end if%>><%=grs("GroupName")%></option>
<%
grs.movenext
loop
%>
<%end if%>
</select>
<%set grs=nothing%>
</td>
</tr>
<%end if%>
<%if Cint(forum_setting(42))=1 then%>
<tr>
<td valign=top width="40%" class=tablebody1><B>簽 名</B>：<BR>不能超過 250 個字符
<br>
文字將出現(xiàn)在您發(fā)表的文章的結(jié)尾處。</td>
<td width="60%" class=tablebody1>
<textarea name="Signature" rows=5 cols=60 wrap=PHYSICAL><%if rs("sign")<>"" then%>
<%
dim signtrue
signtrue=replace(rs("sign"),"<BR>",chr(13))
signtrue=replace(signtrue," "," ")
%><%=signtrue%><%end if%></textarea>
</td>
</tr>
<%end if%>
<tr>
<th colspan="2" width="100%">其他選項
</th>
</tr>
<tr>
<td width="40%" class=tablebody1><B>有回帖時是否提示您</B>：<BR>當您的帖子有人回復后有信息通知您</td>
<td width="60%" class=tablebody1>
<input type="radio" name="showRe" value="1" <% if rs("showRe") then response.write "checked" %> >
提示我
<input type="radio" name="showRe" value="0" <% if not rs("showRe") then response.write "checked" %> >
不提示
</td>
</tr>
<tr>
<td width="40%" class=tablebody1><B>選擇Cookie的保留時間</B>：</td>
<td width="60%" class=tablebody1>
<input type="radio" name="usercookies" value="1" <% if request.cookies("aspsky")("usercookies")=1 then response.write "checked" %> >
<font color=red>1天</font>
<input type="radio" name="usercookies" value="2" <% if request.cookies("aspsky")("usercookies")=2 then response.write "checked" %> >
1個月
<input type="radio" name="usercookies" value="3" <% if request.cookies("aspsky")("usercookies")=3 then response.write "checked" %>>
1年
<input type="radio" name="usercookies" value="0" <% if request.cookies("aspsky")("usercookies")=0 then response.write "checked" %>>
不保留 </td>
</tr>
<%
dim usersetting,setuserinfo,setusertrue
if rs("usersetting")<>"" then
usersetting=split(rs("usersetting"),"|||")
if ubound(usersetting)=1 then
if isnumeric(usersetting(0)) then setuserinfo=usersetting(0) else setuserinfo=1
if isnumeric(usersetting(1)) then setusertrue=usersetting(1) else setusertrue=0
else
setuserinfo=1
setusertrue=0
end if
else
setuserinfo=1
setusertrue=0
end if
%>
<tr>
<td width=40% class=tablebody1><B>是否開放您的基本資料</B>：<BR>開放后別人可以看到您的性別、Email、QQ等信息</td> <td width=60% class=tablebody1>
<input type=radio name=setuserinfo value=1 <%if setuserinfo=1 then%>checked<%end if%>>
開放 <input type=radio name=setuserinfo value=0 <%if setuserinfo=0 then%>checked<%end if%>>
不開放 </td>
</tr>
<tr>
<td width=40% class=tablebody1><B>是否開放您的真實資料</B>：<BR>開放后別人可以看到您的真實姓名、聯(lián)系方式等信息</font></td> <td width=60% class=tablebody1>
<input type=radio name=setusertrue value=1 <%if setusertrue=1 then%>checked<%end if%>>
開放 <input type=radio name=setusertrue value=0 <%if setusertrue=0 then%>checked<%end if%>>
不開放 </td>
</tr>
<%
dim userinfo
dim realname,character,personal,country,province,city,shengxiao,blood,belief,occupation,marital, education,college,userphone,address
if rs("userinfo")<>"" then
userinfo=split(rs("userinfo"),"|||")
if ubound(userinfo)=14 then
realname=userinfo(0)
character=userinfo(1)
personal=userinfo(2)
country=userinfo(3)
province=userinfo(4)
city=userinfo(5)
shengxiao=userinfo(6)
blood=userinfo(7)
belief=userinfo(8)
occupation=userinfo(9)
marital=userinfo(10)
education=userinfo(11)
college=userinfo(12)
userphone=userinfo(13)
address=userinfo(14)
else
realname=""
character=""
personal=""
country=""
province=""
city=""
shengxiao=""
blood=""
belief=""
occupation=""
marital=""
education=""
college=""
userphone=""
address=""
end if
else
realname=""
character=""
personal=""
country=""
province=""
city=""
shengxiao=""
blood=""
belief=""
occupation=""
marital=""
education=""
college=""
userphone=""
address=""
end if
%>
<tr>
<th height=25 align=left valign=middle colspan=2> 個人真實信息（以下內(nèi)容建議填寫）</th>
</tr>
<tr>
<td valign=top width=40% class=tablebody1> <b>真實姓名：</b>
<input type=text name=realname size=18 value="<%=realname%>">
</td>
<td height=71 align=left valign=top class=tablebody1 rowspan=14 width=60% >
<table width=100% border=0 cellspacing=0 cellpadding=5>
<tr>
<td class=tablebody1><b>性 格： </b><br>
<% dim KidneyType,theKidney
KidneyType="多重性格,樂天達觀,成熟穩(wěn)重,幼稚調(diào)皮,溫柔體貼,活潑可愛,普普通通,內(nèi)向害羞,外向開朗,心地善良,聰明伶俐,善解人意,風趣幽默,思想開放,積極進取,小心謹慎,郁郁寡歡,正義正直,悲觀失意,好吃懶做,處事灑脫,疑神疑鬼,患得患失,異想天開,多愁善感,淡泊名利,見利忘義,瞻前顧后,循規(guī)蹈矩,熱心助人,快言快語,少言寡語,愛管閑事,追求刺激,豪放不羈,狡猾多變,貪小便宜,見異思遷,情緒多變,水性揚花,重色輕友,膽小怕事,積極負責,勇敢正義,聰明好學,實事求是,務實實際,老實巴交,圓滑老練,脾氣暴躁,慢條斯理,誠實坦白,婆婆媽媽,急性子"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -