?? mymodify.asp
字號:
你也可以在這里給出你自定義頭像的 URL 地址，頭像的高度和寬度(像素)。 如果不想要自定義頭像，請將相應欄目欄目全部留空！</font>
</td>
<td width="60%"> <font color="<%=TableContentColor%>">
<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 OldfaceStr,LenOldfaceStr,OldfaceNum
OldfaceStr = rs("face")
LenOldfaceStr = Len( OldfaceStr )
if LenOldfaceStr = 14 then OldfaceNum = Left( Right(OldfaceStr,5),1 )
if LenOldfaceStr = 15 then OldfaceNum = Left( Right(OldfaceStr,6),2 )
if LenOldfaceStr = 16 then OldfaceNum = Left( Right(OldfaceStr,7),3 )
OldfaceNum = Cint( OldfaceNum )
for i=1 to regfacenum
if OldfaceNum - i = 0 then
%>
<option value='<%=picurl%>Image<%=i%>.gif' selected>Image<%=i%></option>
<% else %>
<option value='Pic/Image<%=i%>.gif'>Image<%=i%></option>
<%
end if
next
%>
</select> <img id=face src="<%=rs("face")%>" width=<%=rs("width")%> height=<%=rs("height")%>><BR><BR>
<% if uploadFlag then %>
<iframe name="ad" frameborder=0 width=300 height=40 scrolling=no src=reg_upload.asp></iframe> <br>
<% end if %>
圖像位置：<input type="TEXT" name="myface" size=20 maxlength=100 value=<%=rs("face")%>><br>
寬 度：<input type="TEXT" name="width" size=2 maxlength=2 value=<%=rs("width")%>>20---120的整數<br>
高 度：<input type="TEXT" name="height" size=2 maxlength=2 value=<%=rs("height")%>>20---120的整數<br></font>
</td>
</tr>
<tr bgcolor=<%=Tablebodycolor%>>
<td width="40%"><font color="<%=TableContentColor%>"><B>主頁地址</B>：<BR>如果您有主頁，請輸入主頁地址。此項可選</font></td>
<td width="60%">
<input type="TEXT" name="URL" value="<%if trim(rs("homepage"))<>"" then%><%=htmlencode(rs("homepage"))%><%end if%>" size=30 maxlength=100>
</td>
</tr>
<%if cint(GroupFlag)=1 then%>
<tr bgcolor=<%=Tablebodycolor%>>
<td width="40%"><font color="<%=TableContentColor%>"><B>門派</B>：<BR>如果您有興趣，可加入以下門派</font></td>
<td width="60%">
<select name=groupname>
<%
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")%>"><%=grs("GroupName")%></option>
<%
grs.movenext
loop
%>
<%end if%>
</select>
<%set grs=nothing%>
</td>
</tr>
<%end if%>
<tr bgcolor=<%=Tablebodycolor%>>
<td width="40%"><font color="<%=TableContentColor%>"><B>OICQ號碼</B>：<BR>如果您有 OICQ，請輸入號碼。此項可選</font></td>
<td width="60%">
<input type="TEXT" name="OICQ" value="<%if rs("oicq")<>"" then%><%=htmlencode(rs("oicq"))%><%end if%>" size=30 maxlength=20>
</td>
</tr>
<tr bgcolor=<%=Tablebodycolor%>>
<td width="40%"><font color="<%=TableContentColor%>"><B>ICQ號碼</B>：<BR>如果您有 ICQ，請輸入號碼。此項可選</font></td>
<td width="60%">
<input type="TEXT" name="ICQ" value="<%if rs("icq")<>"" then%><%=htmlencode(rs("icq"))%><%end if%>" size=30 maxlength=20>
</td>
</tr>
<tr bgcolor=<%=Tablebodycolor%>>
<td width="40%"><font color="<%=TableContentColor%>"><B>MSN</B>：<BR>如果您有 MSN，請輸入。此項可選</font></td>
<td width="60%">
<input type="TEXT" name="msn" value="<%if rs("msn")<>"" then%><%=htmlencode(rs("msn"))%><%end if%>" size=30 maxlength=20>
</td>
</tr>
<tr bgcolor=<%=Tablebodycolor%>>
<td width="40%"><font color="<%=TableContentColor%>"><B>有回帖時是否提示您</B>：<BR>當您的帖子有人回復后有信息通知您</font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<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" %> >
不提示</font>
</td>
</tr>
<tr bgcolor=<%=Tablebodycolor%>>
<td valign=top width="40%"><font color="<%=TableContentColor%>"><B>簽名</B>：<BR>不能超過 300 個字符
<br>
文字將出現在您發表的文章的結尾處。</font></td>
<td width="60%">
<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>
<tr bgcolor=<%=Tablebodycolor%>>
<td width="40%"><font color="<%=TableContentColor%>"><B>選擇Cookie的保留時間</B>：</font></td>
<td width="60%">
<font color="<%=TableContentColor%>">
<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" %>>
不保留</font> </td>
</tr>
<tr align="center">
<td colspan="2" width="100%" bgcolor=<%=Tabletitlecolor%>>
<input type=Submit value="更 新" name="Submit"> <input type="reset" name="Submit2" value="清 除">
</td>
</tr>
</table> </td></tr></table>
</form>
</body>
</html>
<%
end if
rs.close
set rs=nothing
end sub
sub update()
set rs=server.createobject("adodb.recordset")
sql="Select * from [User] where username='"&trim(membername)&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
errmsg=errmsg+"<br>"+"<li>該用戶名不存在。"
founderr=true
else
rs("userpassword")=password
rs("useremail")=email
rs("quesion")=quesion
rs("answer")=answer
if request("url")<>"" then
rs("homepage")=request("url")
end if
rs("face")=face
rs("width")=width
rs("height")=height
rs("sex")=sex
if trim(request("Signature"))<>"" then
rs("sign")=trim(request("Signature"))
end if
if request("oicq")<>"" then
rs("oicq")=request("oicq")
end if
if request("icq")<>"" then
rs("icq")=request("icq")
end if
if request("msn")<>"" then
rs("msn")=request("msn")
end if
rs("showRe")=showRe
rs("UserGroup")=request("GroupName")
if rs("userclass")>5 then
if request("title")<>"" then
rs("title")=htmlencode(request("title"))
end if
end if
if birthday<>"" then
rs("birthday")=birthday
end if
rs.Update
rs.close
set rs=nothing
usercookies=request("usercookies")
select case usercookies
case 0
Response.Cookies("aspsky")("usercookies") = usercookies
case 1
Response.Cookies("aspsky").Expires=Date+1
Response.Cookies("aspsky")("usercookies") = usercookies
case 2
Response.Cookies("aspsky").Expires=Date+31
Response.Cookies("aspsky")("usercookies") = usercookies
case 3
Response.Cookies("aspsky").Expires=Date+365
Response.Cookies("aspsky")("usercookies") = usercookies
end select
Response.Cookies("aspsky")("password") = password
Response.Cookies("aspsky").path=cookiepath
end if
end sub
sub success()
%>
<table cellpadding=0 cellspacing=0 border=0 width="<%=tablewidth%>" bgcolor=<%=Tablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr align="center">
<td width="100%" bgcolor=<%=Tabletitlecolor%>><font color="<%=TablefontColor%>">成功：修改資料</font></td>
</tr>
<tr>
<td width="100%" bgcolor=<%=Tablebodycolor%>><font color="<%=TableContentColor%>"><b>恭喜您，您的資料修改成功</b></font><br>
</td>
</tr>
<tr align="center">
<td width="100%" bgcolor=<%=Tabletitlecolor%>>
<a href="javascript:history.go(-1)"> << 返回上一頁</a>
</td>
</tr>
</table> </td></tr></table>
<%
end sub
set rs=nothing
stats="修改個人資料"
%>
<!--#include file=footer.asp-->?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -