📄 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>或者同管理员联系。"
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>联系资料修改</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>
您可以选择一个个性图片，当你发表时将显示在您的名字下方。<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)%>的整数
<br>高 度：<input type="TEXT" name="height" size=3 maxlength=3 value=<%=rs("height")%>>0---<%=forum_setting(57)%>的整数
<br>
<%END IF%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="40%" class=tablebody1><B>个人照片</B>：<BR>如果您有照片在网上，请输入网页地址。此项可选</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>
<tr>
<td width="40%" class=tablebody1 height="151" align="left" valign="top">
<b><a name="body"></a>虚拟形象<br>
</b>虚拟形象设计系统，提供给你一个Q版的个人形象<br>
<b>保存形像</b>：<br>
设计完毕后点击保存形象使形象生效</td>
<td width="60%" class=tablebody1 height="151" align="left">
<iframe name="I1" frameborder=0 width="100%" height="100%" scrolling=no src=body/lfshow.asp></iframe>
</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>
文字将出现在您发表的文章的结尾处。</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))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -