?? 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 + -