📄 change_info.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="chkuser.asp"-->
<!--#include file="inc/user.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="mytop.asp"-->
<link href="css/user.css" rel="stylesheet" type="text/css">
<script language=javascript>
function manage(url)
{
window.open('manage.asp','manage','fullscren=yes');
}
</script>
<%
'处理修改数据
sql="select * from [user] where username='"&Request.Cookies("9cool_username")&"'"
rs.open sql,conn,1,3
if request("action")="save" then
rs("question")=htmlencode2(request.form("question"))
if request.form("answer")<>rs("answer") then
rs("answer")=md5(request.form("answer"),32)
end if
rs("add")=htmlencode2(request.form("add"))
rs("zip")=htmlencode2(request.form("zip"))
rs("tel")=htmlencode2(request.form("tel"))
rs("email")=htmlencode2(request.form("email"))
rs("sitename")=htmlencode2(request.form("sitename"))
rs("sitetype")=htmlencode2(request.form("sitetype"))
rs("intro")=htmlencode2(request.form("intro"))
rs("siteimg")=htmlencode2(request.form("siteimg"))
rs.update
conn.Execute("UpDate [counter] set sitename='"&request.form("sitename")&"',sitetype="&request.form("sitetype")&" where username='"&Request.Cookies("9cool_username")&"'")
conn.Execute("UpDate [gbuser] set sitename='"&request.form("sitename")&"' where username='"&Request.Cookies("9cool_username")&"'")
response.write"<script>alert('资料修改成功！');location.href='change_info.asp'</script>"
end if
set rs2=server.createobject("ADODB.Recordset")
sql2="select * from [siteclass]"
rs2.open sql2,conn,1,1
%>
<html><head><title>更改资料</title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="css/user.css" rel="stylesheet" type="text/css">
</head>
<script language="jscript">
<!--
function check_input()
{
if (form.intro.value.length > 60 ) {
alert("\n网站介绍不能超过60个字！");
reg.intro.focus();
return false;
}
return true;
}
//-->
</script>
<body>
<table width="778" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
<form name="form" method="post" action="?action=save" onSubmit="return check_input()">
<tr align="center" class="a1">
<td height="25" colspan="2">更改资料</td>
</tr>
<tr class="a3">
<td width="21%">用户名：</td>
<td width="79%"><%=rs("username")%></td>
</tr>
<tr class="a4">
<td>姓 名： </td>
<td><%=rs("truename")%></td>
</tr>
<tr class="a3">
<td>性 别：</td>
<td> <%=rs("sex")%></td>
</tr>
<tr class="a4">
<td>年 龄： </td>
<td><%=rs("age")%></td>
</tr>
<tr class="a3">
<td>密码提示问题：</td>
<td><input name="question" value="<%=rs("question")%>"></td>
</tr>
<tr class="a4">
<td>问题答案：</td>
<td><input name="answer" value="<%=rs("answer")%>" onClick="this.value=''">
[如需修改，请直接重新输入]</td>
</tr>
<tr class="a3">
<td>所在省份： </td>
<td> <select name=add size=1>
<option
value="">请选择您所在的省份</option>
<option
value=安徽 <%if rs("add")="安徽" then Response.Write " selected"%>>安徽</option>
<option value=北京 <%if rs("add")="北京" then Response.Write " selected"%>>北京</option>
<option
value=重庆 <%if rs("add")="重庆" then Response.Write " selected"%>>重庆</option>
<option value=福建 <%if rs("add")="福建" then Response.Write " selected"%>>福建</option>
<option
value=甘肃 <%if rs("add")="安徽" then Response.Write " selected"%>>甘肃</option>
<option value=广东 <%if rs("add")="广东" then Response.Write " selected"%>>广东</option>
<option
value=广西 <%if rs("add")="广西" then Response.Write " selected"%>>广西</option>
<option value=贵州 <%if rs("add")="贵州" then Response.Write " selected"%>>贵州</option>
<option
value=海南 <%if rs("add")="海南" then Response.Write " selected"%>>海南</option>
<option value=河北 <%if rs("add")="河北" then Response.Write " selected"%>>河北</option>
<option
value=河南 <%if rs("add")="河南" then Response.Write " selected"%>>河南</option>
<option value=黑龙江 <%if rs("add")="黑龙江" then Response.Write " selected"%>>黑龙江</option>
<option
value=湖北 <%if rs("add")="湖北" then Response.Write " selected"%>>湖北</option>
<option value=湖南 <%if rs("add")="湖南" then Response.Write " selected"%>>湖南</option>
<option
value=吉林 <%if rs("add")="吉林" then Response.Write " selected"%>>吉林</option>
<option value=江苏 <%if rs("add")="江苏" then Response.Write " selected"%>>江苏</option>
<option
value=江西 <%if rs("add")="江西" then Response.Write " selected"%>>江西</option>
<option value=辽宁 <%if rs("add")="辽宁" then Response.Write " selected"%>>辽宁</option>
<option
value=内蒙古 <%if rs("add")="内蒙古" then Response.Write " selected"%>>内蒙古</option>
<option value=宁夏 <%if rs("add")="宁夏" then Response.Write " selected"%>>宁夏</option>
<option
value=青海 <%if rs("add")="青海" then Response.Write " selected"%>>青海</option>
<option value=山东 <%if rs("add")="山东" then Response.Write " selected"%>>山东</option>
<option
value=山西 <%if rs("add")="山西" then Response.Write " selected"%>>山西</option>
<option value=陕西 <%if rs("add")="陕西" then Response.Write " selected"%>>陕西</option>
<option
value=上海 <%if rs("add")="上海" then Response.Write " selected"%>>上海</option>
<option value=四川 <%if rs("add")="四川" then Response.Write " selected"%>>四川</option>
<option
value=天津 <%if rs("add")="天津" then Response.Write " selected"%>>天津</option>
<option value=新疆 <%if rs("add")="新疆" then Response.Write " selected"%>>新疆</option>
<option
value=西藏 <%if rs("add")="西藏" then Response.Write " selected"%>>西藏</option>
<option value=云南 <%if rs("add")="云南" then Response.Write " selected"%>>云南</option>
<option
value=浙江 <%if rs("add")="浙江" then Response.Write " selected"%>>浙江</option>
<option value=香港 <%if rs("add")="香港" then Response.Write " selected"%>>香港</option>
<option value=澳门 <%if rs("add")="澳门" then Response.Write " selected"%>>澳门</option>
<option value=台湾 <%if rs("add")="台湾" then Response.Write " selected"%>>台湾</option>
<option value=其它国家或地区 <%if rs("add")="其它国家或地区" then Response.Write " selected"%>>其它国家或地区</option>
</select></td>
</tr>
<tr class="a4">
<td>邮 编： </td>
<td> <input name="zip" type="text" id="zip2" value="<%=rs("zip")%>"></td>
</tr>
<tr class="a3">
<td>电 话： </td>
<td> <input name="tel" type="text" id="tel2" value="<%=rs("tel")%>"></td>
</tr>
<tr class="a4">
<td>E-mail ： </td>
<td> <input name="email" type="text" id="email2" value="<%=rs("email")%>">
[请保证E-mail地址有效] </td>
</tr>
<tr class="a3">
<td>网站名称： </td>
<td> <input name="sitename" type="text" value="<%=rs("sitename")%>" maxlength="8"></td>
</tr>
<tr class="a4">
<td>网站类型： </td>
<td> <select name="sitetype">
<%do while not rs2.eof%>
<option value=<%=rs2("id")%> <%if rs2("id")=cint(rs("sitetype")) then Response.Write " selected"%>><%=rs2("sitetype")%></option>
<%rs2.movenext
loop
rs2.close
set rs2=nothing
%>
</select></td>
</tr>
<tr class="a3">
<td>网站地址[URL]：</td>
<td> <input name="intro" type="text" id="intro" value="<%=rs("intro")%>" size="50">
</tr>
<tr class="a4">
<td>网站缩略图：</td>
<td> <input name="siteimg" type="text" id="siteimg" value="<%=rs("siteimg")%>" size="50">
120×90像素
</td>
</tr>
<tr class="a3">
<td colspan="2" align="center"> <input type="submit" name="submit" value=" 确 定 ">
<input type="reset" name="submit2" value=" 取 消 "></td>
</tr></form>
</table>
<!--#include file="links.asp"-->
<!--#include file="bottom.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -