📄 changeinfo.asp
字号:
<!--#include file="chkuser.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/md5.asp"-->
<%
'处理修改数据
sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.open sql,conn,1,3
if request("action")="save" then
rs("question")=trim(request.form("question"))
if request.form("answer")<>rs("answer") then
rs("answer")=md5(request.form("answer"))
end if
rs("add")=trim(request.form("add"))
rs("zip")=trim(request.form("zip"))
rs("tel")=trim(request.form("tel"))
rs("email")=trim(request.form("email"))
rs("sitename")=trim(request.form("sitename"))
rs("sitetype")=trim(request.form("sitetype"))
rs("intro")=trim(request.form("intro"))
rs("siteimg")=trim(request.form("siteimg"))
rs.update
rs.close
set rs=nothing
response.write"<script>alert('资料修改成功！');location.href='changeinfo.asp'</script>"
end if
set rs2=server.createobject("ADODB.Recordset")
sql2="select * from siteclass"
rs2.open sql2,conn,1,1
set rs3=server.createobject("ADODB.Recordset")
sql3="select * from [siteclass] where id="&rs("sitetype")
rs3.open sql3,conn,1,1
%>
<html><head><title>更改资料</title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<script language="jscript">
<!--
function check_input()
{
if (form.intro.value.length > 30 ) {
alert("\n网站介绍不能超过30个字！");
reg.intro.focus();
return false;
}
return true;
}
//-->
</script>
<body bgcolor="#F6ECE2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="70%">
<tr>
<td align="center">
<fieldset style="padding: 2; width:200; height:120">
<legend><strong>更改资料</strong></legend>
<table width="445" border="0" align="center" cellpadding="3" cellspacing="1">
<form name="form" method="post" action="?action=save" onsubmit="return check_input()">
<tr>
<td width="95" align="right">用户名：</td>
<td width="335"><%=rs("username")%></td>
</tr>
<tr>
<td align="right">姓 名： </td>
<td><%=rs("truename")%></td>
</tr>
<tr>
<td align="right">性 别：</td>
<td> <%=rs("sex")%></td>
</tr>
<tr>
<td align="right">年 龄： </td>
<td><%=rs("age")%></td>
</tr>
<tr>
<td align="right">密码提示问题：</td>
<td><input name="question" class="input" value="<%=rs("question")%>"></td>
</tr>
<tr>
<td align="right">问题答案：</td>
<td><input name="answer" class="input" value="<%=rs("answer")%>" onClick="this.value=''">
[如需修改，请直接重新输入]</td>
</tr>
<tr>
<td align="right">地 址： </td>
<td> <input name="add" type="text" class="input" id="add2" value="<%=rs("add")%>"></td>
</tr>
<tr>
<td align="right">邮 编： </td>
<td> <input name="zip" type="text" class="input" id="zip2" value="<%=rs("zip")%>"></td>
</tr>
<tr>
<td align="right">电 话： </td>
<td> <input name="tel" type="text" class="input" id="tel2" value="<%=rs("tel")%>"></td>
</tr>
<tr>
<td align="right">E-mail ： </td>
<td> <input name="email" type="text" class="input" id="email2" value="<%=rs("email")%>">
[请保证E-mail地址有效] </td>
</tr>
<tr>
<td align="right">网站名称： </td>
<td> <input name="sitename" type="text" class="input" value="<%=rs("sitename")%>" maxlength="8"></td>
</tr>
<tr>
<td align="right">网站类型： </td>
<td> <select name="sitetype">
<%do while not rs2.eof%>
<option value=<%=rs2("id")%> <%if rs2("id")=cint(rs("sitetype")) then Response.Write " selected" end if%>><%=rs2("sitetype")%></option>
<%rs2.movenext
loop
rs2.close
set rs2=nothing
%>
</select></td>
</tr>
<tr valign="middle">
<td height="84" align="right"> 网站介绍：<font color="#ff0000">
</font></td>
<td height="84"><font color="#ff0000">
<textarea name="intro" cols="40" rows="4" id="intro"><%=rs("intro")%></textarea>
</font></td>
</tr>
<tr>
<td align="center">网站缩略图：</td>
<td> <input name="siteimg" type="text" class="input" id="siteimg" value="<%=rs("siteimg")%>" size="30">
120×90像素<br>
加入首页推荐或本酷站推荐时显示</td>
</tr>
<tr>
<td colspan="2" align="center"> <input type="submit" name="submit" class="button" value="确定">
<input type="reset" name="submit2" class="button" value="取消"></td>
</tr></form>
</table>
</fieldset></td>
</tr>
</table>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -