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>&nbsp;&nbsp;<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>
	  宽&nbsp;&nbsp;&nbsp;&nbsp;度：<input type="TEXT" name="width" size=2 maxlength=2 value=<%=rs("width")%>>20---120的整数<br>
	  高&nbsp;&nbsp;&nbsp;&nbsp;度：<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,"&nbsp;"," ")
%><%=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"> &nbsp; <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-->