📄 myinfo.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<%Response.Expires = 0
Response.CacheControl = "Private"
nickname=Session("hxf_u_nickname")
If nickname = "" Then Response.Redirect "hqtchat000.asp?id=174"
If nickname = "聊天室管理员" Then Response.Redirect "hqtchat000.asp?id=174"
set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql = "SELECT email, info FROM reginfo WHERE kill = '0' AND grade > 0 AND username = '" & nickname & "'"
rs.open sql,conn,1,1
If rs.Eof And rs. Bof Then
 rs.close
 conn.close
 set rs=nothing
 set conn=nothing
 Response.Redirect "hqtchat000.asp?id=210"
End If
 email = rs("email")
 info = rs("info")
 rs.close
 conn.close
 set rs=nothing
 set conn=nothing
v = Split(info, "{]")
For i=0 To 16
 v(i) = Replace(v(i), "{<!>]", "{]")
Next
If v(6) = "" Then v(6) = "http://"
v(16) = Replace(v(16), "<br>", Chr(13) & Chr(10))%>
<html>
<head>
<title>个人信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
<script Language=JavaScript>
function check(){
 f1v = document.send.f1.value;
 f3v = document.send.f3.value;
 f4v = document.send.f4.value;
 f5v = document.send.f5.value;
 f6v = document.send.f6.value;
 f7v = document.send.f7.value;
 f8v = document.send.f8.value;
 f9v = document.send.f9.value;
 f10v = document.send.f10.value;
 f11v = document.send.f11.value;
 f12v = document.send.f12.value;
 f13v = document.send.f13.value;
 f14v = document.send.f14.value;
 f15v = document.send.f15.value;
 f16v = document.send.f16.value;
 if(f1v.indexOf('"') != -1 || f3v.indexOf('"') != -1 || f4v.indexOf('"') != -1 || f5v.indexOf('"') != -1 || f6v.indexOf('"') != -1 || f7v.indexOf('"') != -1 || f8v.indexOf('"') != -1 || f9v.indexOf('"') != -1 || f10v.indexOf('"') != -1 || f11v.indexOf('"') != -1 || f12v.indexOf('"') != -1 || f13v.indexOf('"') != -1 || f14v.indexOf('"') != -1 || f15v.indexOf('"') != -1){
  alert("输入的内容不能带有半角双引号。");
  return false;
 }
 if(document.send.f0.checked && f1v == ""){
  alert("请设置保护密码。");
  return false;
 }
 if(f1v != ""){
  if(escape(f1v) != f1v){
   alert("密码只允许使用英文字母和数字。");
   return false;
  }
  if(f1v.length < 4 || f1v.length > 20){
   alert("密码长度必须是 4 - 20 位。");
   return false;
  }
 }
 if(f16v.length > 4096){
  alert("个人简介不能超过 4096 字符。");
  return false;
 }
 if(confirm("真的要修改个人信息吗？")){
  document.send.cg.disabled = 1;
  return true;
 }
 else{
  return false;
 }
}
</script>
</head>
<body oncontextmenu=self.event.returnValue=false bgcolor="#DCD8D0" topmargin="0">
<form name="send" method="post" action="myinfook.asp" onsubmit="return(check())">
<table width="100%" border="0" align="center" cellpadding="3">
<tr> 
<td align="center" bgcolor="#0099FF"><font color="#FFFFFF">密码保护个人资料</font></td>
</tr>
<tr> 
<td align=center>设置保护密码(4 - 20位): 
<input type="text" name="f1" maxlength="20" size="15" value="<%=v(1)%>">
<input type="checkbox" name="f0" value="1"<%If v(0) = "1" Then Response.Write " checked"%>>启用密码保护功能</td>
</tr>
<tr>
<td class=p9><font color="#666666">　　注意：启用密码保护功能后，其他人如果想查询你的个人信息，就必须输入密码方可看到。如果你想让对方看你的个人信息，只要将这个密码告诉对方即可。因此，这里的密码<b><font color="#FF0000">一定不要</font></b>和登录时密码相同，防止他人盗用你的帐号。</font></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="3">
<tr> 
<td align="center" bgcolor="#0099FF"><font color="#FFFFFF">个　人　信　息</font></td>
</tr>
<tr> 
<td class=p9>性别：<select name="f2">
<option selected>保密</option>
<option value="男"<%If v(2) = "男" Then Response.Write " selected"%>>男</option>
<option value="女"<%If v(2) = "女" Then Response.Write " selected"%>>女</option>
</select>
　OICQ号码：<input type="text" name="f3" maxlength="12" size="13" value="<%=v(3)%>">
　ICQ号码：<input type="text" name="f4" maxlength="12" size="13" value="<%=v(4)%>">
</td>
</tr>
<tr>
<td class=p9><font color=red>电子信箱：</font>
<input type="text" name="email" maxlength="50" size="56" value="<%=email%>">
</td>
</tr>
<tr> 
<td class=p9>主页名称： 
<input type="text" name="f5" maxlength="20" size="12" value="<%=v(5)%>">
主页地址： 
<input type="text" name="f6" maxlength="50" size="30"  value="<%=v(6)%>">
</td>
</tr>
<tr> 
<td class=p9>邮政编码： 
<input type="text" name="f7" maxlength="20" size="12" value="<%=v(7)%>">
国家地区： 
<input type="text" name="f8" maxlength="20" size="30" value="<%=v(8)%>">
</td>
</tr>
<tr> 
<td class=p9>所在省份：
<input type="text" name="f9" maxlength="20" size="21" value="<%=v(9)%>">
所在县市： 
<input type="text" name="f10" maxlength="20" size="21" value="<%=v(10)%>">
</td>
</tr>
<tr> 
<td class=p9>具体地址： 
<input type="text" name="f11" maxlength="50" size="56" value="<%=v(11)%>">
</td>
</tr>
<tr> 
<td class=p9>从事职业： 
<input type="text" name="f12" maxlength="20" size="21" value="<%=v(12)%>">
固定电话： 
<input type="text" name="f13" maxlength="30" size="21" value="<%=v(13)%>">
</td>
</tr>
<tr> 
<td class=p9>无线寻呼： 
<input type="text" name="f14" maxlength="30" size="21" value="<%=v(14)%>">
移动电话： 
<input type="text" name="f15" maxlength="30" size="21" value="<%=v(15)%>">
</td>
</tr>
<tr> 
<td class=p9>个人简介： 
<textarea name="f16" cols="55" rows="6"><%=v(16)%></textarea>
</td>
</tr>
<tr> 
<td class=p9 align="center"> 
<input type="submit" name="cg" value="  修改(C)  " accesskey="c">
<input type="reset" name="reset" value="  还原(U)  " accesskey="u">
<input type="reset" name="reset" value="  刷新(R)  " accesskey="r" onclick="javascript:history.go(0)">
</td>
</tr>
<tr> 
<td class=p9 align="center" bgcolor="#0099FF">&nbsp;</td>
</tr>
</table>
</form>
<script Language=JavaScript>
document.send.f1.focus();
</script>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -