📄 reg_change.asp
字号:
<%@ language=vbscript%>
<%response.buffer=true%>
<!--#include file=conn.asp-->
<%id=trim(request.form("id"))
pws=trim(request.form("pws"))
if pws="" or id="" then response.end
pws=replace(pws,"'","''")
id=replace(id,"'","''")
sql="select webname,url,keys,intro,kindname,admin,pass from userinfo where pass='"&pws&"' and admin='"&id&"'"
set countcon=server.createobject("adodb.connection")
countcon.open conn
set list_user=countcon.execute(sql)
if list_user.eof and list_user.bof then
list_user.close
set list_user=nothing
countcon.close
set countcon=nothing
response.write "<script language=jscript>alert('密码错误');history.back()</script>"
response.end
end if
%>
<html>
<head>
<script language=vbscript>
sub chk()
if trim(reg.id.value)="" or trim(reg.pws.value)="" or trim(reg.webname.value)="" or trim(reg.url.value)="" then
alert("打星号的必须填写")
exit sub
end if
document.reg.submit
end sub
</script>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>用户资料修改</title>
</head>
<body>
<form action=reg_change2.asp method=post name=reg>
<input type=hidden name=oldid value="<%response.write list_user("admin")%>" >
<div align="center">
<table border="0" cellpadding="3" cellspacing="1" width="750" height="361" style="font-size: 9pt" bgcolor="#9AADCB">
<tr>
<td width="692" height="12" colspan="2" bgcolor="#FFFFFF">
<p align="center">用户资料修改</td>
</tr>
<tr>
<td width="561" height="28" bgcolor="#FFFFFF">
<p align="left"> *用户名: <input type="text" name="id" value="<%response.write list_user("admin")%>" size="20"></p>
</td>
<center>
<td width="169" height="333" rowspan="8" bgcolor="#FFFFFF"><img border="0" src="img/0009.gif" width="166" height="320"></td>
</tr>
<tr>
<td width="561" height="28" bgcolor="#FFFFFF"> *密码:
<input type="password" name="pws" value="<%response.write list_user("pass")%>" size="20"></td>
</tr>
<tr>
<td width="561" height="28" bgcolor="#FFFFFF"> *网站名称:
<input type="text" name="webname" value="<%response.write list_user("webname")%>" size="20"></td>
</tr>
<tr>
<td width="561" height="28" bgcolor="#FFFFFF"> *网址:
<input type="text" name="url" value="<%response.write list_user("url")%>" size="35"></td>
</tr>
<tr>
<td width="561" height="28" bgcolor="#FFFFFF"> *所属种类:
<select size="1" name="class">
<option selected><%response.write list_user("kindname")%></option>
<option>电影/电视@</option>
<option>旅游与交通</option>
<option>卫生与健康</option>
<option>电脑网络</option>
<option>娱乐休闲</option>
<option>游戏@</option>
<option>情感天地</option>
<option>生活服务</option>
</select></td>
</tr>
<tr>
<td width="561" height="27" bgcolor="#FFFFFF"> 网站关键字:
<input type="text" value="<%response.write list_user("keys")%>" name="keys" size="50"> 以逗号分隔,小于5个</td>
</tr>
<tr>
<td width="561" height="18" bgcolor="#FFFFFF"> 网站介绍 :
(100字以内，中文) </td>
</tr>
<tr>
<td width="561" height="106" valign="middle" bgcolor="#FFFFFF">
<p align="center"><textarea rows="4" name="intro" cols="38"><%response.write list_user("intro")%></textarea></p>
</td>
</tr>
<tr>
<td width="561" height="14" bgcolor="#FFFFFF">
<p align="center"><input type="button" onclick="chk()" value="立即修改" name="B1"></p>
</td>
</tr>
</table>
</center>
</div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -