<%@ LANGUAGE=VBScript codepage ="936" %><%response.expires=0
chatbgcolor=Application("zhbg_chatbgcolor")
chatimage=Application("zhbg_chatimage")
if chatbgcolor="" then chatbgcolor="008888"

zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "select 名单头像 from 用户 where 姓名='" & zhbg_name &"'",conn
tx=rs("名单头像")
rs.close
set rs=nothing
conn.close
set conn=nothing
%><html>
<head>
<title>更改头像</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../css.css" rel=stylesheet>
</head>
<body oncontextmenu=self.event.returnValue=false  bgproperties="fixed" leftmargin="0" topmargin="20"><form method="POST" action="changeface.asp">
<div align="center"><font color="#ff6600"><b>更改头像</b><br>
</font><font color="#ff6600"><br>
头像：<img id=face src="../ico/<%=tx%>-2.gif"><%=tx%>号
<select name=face size=1 onChange="document.images['face'].src='../ico/'+options[selectedIndex].value+'-2.gif';" style="BACKGROUND-COLOR: #99CCFF; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000">
<%for i=0 to 82%>
<option value='<%=i%>'><%=i%></option>
<%next%>
</select>
<br>
<br>
1 - 34 为男生,<br>
35 - 80 为女生。<br>
<br>
<input type="submit" value="修改" name="B1" tyle="font-family: Tahoma; font-size: 12px"><br>
<br>
头像列表，看看有自己喜欢的吗？<br>

<%for i=0 to 82%>
<img id=face src="../ico/<%=i%>-2.gif"> <%=i%>号
<%next%>
</font></div>
</from>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>