?? umod.asp
字號:
<!--插入html頭部分以及數據庫接口-->
<!--#include file="in_conn.asp"-->
<body>
<script language="javascript">
function facesel(){
if(document.fm_regfill.radface[0].checked){
document.fm_regfill.strFace.disabled=true;
document.fm_regfill.sface.disabled=false;
}else{
document.fm_regfill.sface.disabled=true;
document.fm_regfill.strFace.disabled=false;
}
}
function okreg(){
document.fm_regfill.cmdok.disabled=true;
document.fm_regfill.submit();
}
function window.onload(){
facesel();
}
</script>
<!--插入網站置頂-->
<% if u_name="" then
Response.Redirect "log_err.asp"
else
%>
<!--#include file="in_topmb.asp"-->
<% end if %>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdk2"><tr>
<td width="100%" height="100%">
<a href="index.asp">[首頁]</a>-<font class="ft1">[成員中心]</font>
</td>
</tr></table>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
<td align="center" width="50%" height="100%" class="rdr">
<b><a href="uinfo.asp">[我的信息概覽]</a></b>
</td>
<td align="center" width="50%" height="100%">
<b><font class="ft1">[修改個人資料]</font></b>
</td>
</tr></table>
<%
'判斷上傳方式
DEF_fjsa=INT(conn.execute("SELECT fj_sa FROM tblsys",0,1)(0))
dim str_act
IF DEF_fjsa=2 THEN
str_act="umod_pe.asp"
ELSE
str_act="umod_deal.asp"
END IF
'讀取用戶資料
sqlstr="SELECT * FROM tblmates WHERE ID="&u_ID
rs.open sqlstr,conn,0,1
%>
<table align="center" width="700" height="101" border="0" cellspacing="0" cellpadding="6" class="rdd">
<form name="fm_regfill" action="<% =str_act %>" enctype="multipart/form-data" method="post">
<tr><td valign="top" width="100%" height="25">
<b>【修改您的資料】</b> 請如實填寫您的個人資料
<br><font color="<% =colight %>">提示：請盡管如實填寫，系統有一定的加密和保密措施，班級的重要資料只有班級正式成員才有權查看！</font>
<br>其中帶<font class="ft1">**</font>的項為必填項，其余的可以選填。
</td></tr>
<tr><td valign="top" height="35">
<font class="ft1">** </font> 名字：<input type="text" name="txtname" class="kong" maxlength="8" size="17" value="<% =rs("name") %>" readonly="true">
<img src="img/light.gif" border="0" align="absmiddle">登錄的名字，此項不可修改！
</td></tr>
<tr><td valign="top" height="35">
<font class="ft1">** </font> 舊密碼：<input type="password" name="txtopwd" class="kong" maxlength="14" size="18">
<img src="img/light.gif" border="0" align="absmiddle">如果您不打算修改密碼，請留空此三項！<br>
<font class="ft1">** </font> 新密碼：<input type="password" name="txtpwd" class="kong" maxlength="14" size="18"><br>
<font class="ft1">** </font>確認密碼：<input type="password" name="txtrepwd" class="kong" maxlength="14" size="18"><br>
<font class="ft1">（長度限制：6-14個字符）</font>
</td></tr>
<tr><td valign="top" height="25">
<font class="ft1">** </font> 性別：<%
dim vgg,vmm
vgg=""
vmm=""
if rs("sex")=true then
vgg="checked"
else
vmm="checked"
end if
%>
<input type="radio" name="radsex" value="gg" <% =vgg %>><img src="img/icn_gg.gif">
<input type="radio" name="radsex" value="mm" <% =vmm %>><img src="img/icn_mm.gif">
</td></tr>
<tr><td valign="top" height="45">
<font class="ft1">** </font> E-mail：<input type="text" name="txtemail" class="kong" maxlength="30" size="18" value="<% =rs("email") %>"><br>
ＱＱ號碼：<input type="text" name="txtqq" class="kong" maxlength="15" size="18" value="<% =rs("qq") %>" onKeypress="if (event.keyCode < 48 || event.keyCode > 57) event.returnValue=false;"><br>
ＭＳＮ：<input type="text" name="txtmsn" class="kong" maxlength="40" size="18" value="<% =rs("msn") %>">
<br> Ｂｌｏｇ：<input type="text" name="txthp" class="kong" maxlength="50" size="18" value="<% =rs("hp") %>">
<img src="img/light.gif" border="0" align="absmiddle">可填寫博客或者個人主頁。
</td></tr>
<%
'判斷頭像
dim vface,vf_sel,vf_up
vface=rs("faceurl")
IF Left(rs("faceurl"),12)="face/upface/" THEN
vf_sel=""
vf_up="checked"
ELSE
vf_sel="checked"
vf_up=""
END IF
%>
<tr><td valign="top" height="35" style="padding:0px;">
<table width="100%" height="20" cellspacing="0" cellpadding="2" border="1" bordercolor="<% =bg1 %>">
<tr>
<td width="50%" height="25" style="padding-left:4px; border-right:none;">
<font class="ft1">** </font>用戶頭像：<br>
</td>
<td width="50%" height="25" align="right" style="border-left:none;">
<img src="img/light.gif" border="0">選擇或上傳代表你自己的個性頭像圖片
</td>
</tr>
<tr>
<td width="50%" valign="top">
<input type="radio" name="radface" value="sel" onClick="javascript:facesel();" <% =vf_sel %>> 使用內置頭像圖片<br>
<br> 選擇頭像編號：<select name="sface">
<%
dim facenum
dim vfnum
vfnum="01"
IF vf_sel="checked" THEN
vfnum=mid(vface,6,2)
END IF
for i=1 to 35
if i<10 then
facenum="0"&i
else
facenum=Cstr(i)
end if
if vfnum=facenum then
Response.Write "<option value='"&facenum&"' selected>"&facenum&"</option>"
else
Response.Write "<option value='"&facenum&"'>"&facenum&"</option>"
end if
next
%>
</select><br>
<a href="listface.asp" target="_blank">［點擊這里］查看各個編號對應的頭像圖片列表</a>
</td>
<td valign="top" style="background:<% =bg2 %>;">
<input type="radio" name="radface" value="up" onClick="javascript:facesel();" <% =vf_up %>> 上傳自己的頭像圖片<br>
<%
if vf_up="checked" then %>
<br> <font class="ft1">已上傳頭像地址：<% =vface %></font>
<br> <img src="<% =vface %>" border="0" width="<% =rs("facew") %>" height="<% =rs("faceh") %>">
<br> 如果想重新上傳頭像圖片請選擇：(否則留空)
<% end if %>
<br> <input type="file" name="strFace"><br>
頭像圖片限制大小：<font class="ft1">100kb以內</font> <br> 允許格式：<font class="ft1">gif、jpg</font>
</td>
</tr>
</table>
</td></tr>
<%
'獲取生日
dim vy,vm,vd
vy=DatePart("yyyy",rs("birthday"))
vm=DatePart("m",rs("birthday"))
vd=DatePart("d",rs("birthday"))
%>
<tr><td valign="top" height="35">
<font class="ft1"> </font>你的生日：
<Select name="syear">
<%
For i=1950 to 2000
if i=vy then
Response.Write "<option value='"&i&"' selected>"&i&"</option>"
else
Response.Write "<option value='"&i&"'>"&i&"</option>"
end if
Next
%>
</Select>年
<Select name="smonth">
<%
For i=1 to 12
if i=vm then
Response.Write "<option value='"&i&"' selected>"&i&"</option>"
else
Response.Write "<option value='"&i&"'>"&i&"</option>"
end if
Next
%>
</Select>月
<Select name="sday">
<%
For i=1 to 31
if i=vd then
Response.Write "<option value='"&i&"' selected>"&i&"</option>"
else
Response.Write "<option value='"&i&"'>"&i&"</option>"
end if
Next
%>
</Select>日
</td></tr>
<tr><td valign="top" height="35">
家庭住址：<input type="text" name="txthome" class="kong" maxlength="50" size="50" value="<% =stryin2(rs("home")) %>"><br>
家庭電話：<input type="text" name="txthometel" class="kong" maxlength="20" size="18" value="<% =stryin2(rs("hometel")) %>"><br>
手機號碼：<input type="text" name="txtmobile" class="kong" maxlength="20" size="18" value="<% =stryin2(rs("mobile")) %>"><br>
</td></tr>
<tr><td valign="top" height="35">
當前工作或就讀于：<input type="text" name="txtdo" class="kong" maxlength="20" size="18" value="<% =stryin2(rs("nowdo")) %>"><br>
當前單位或學校聯絡方式↓<br>
<textarea name="txtcontact" class="fill" rows="4" cols="40"><% =rs("contact") %></textarea> <img src="img/light.gif" border="0">填寫您所在單位或學校的通信地址、辦公或宿舍電話等等<br>
<font class="ft1">（字數限制：150字符內）</font>
</td></tr>
<tr><td valign="top" height="35">
個性簽名檔↓<br>
<textarea name="txtsign" class="fill" rows="4" cols="40"><% =rs("signline") %></textarea> <img src="img/light.gif" border="0">填寫您的個人簽名，跟隨在你的發帖后面。<br>
<font class="ft1">（字數限制：255字符內）</font>
支持<font color="red">UBB代碼</font>：<a href="ubbhelp.asp" target="_blank">[UBB使用方法幫助]</a>
</td></tr>
<tr><th height="25">
<input type="button" name="cmdok" value=" 編輯完成 " class="an" onClick="javascript:okreg();">
</th></tr>
</form>
</table>
<%
rs.close
%>
<br>
<!--插入在線統計-->
<!--#include file="in_online.asp"-->
<!--插入網站置底-->
<!--#include file="in_bottom.asp"-->
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -