?? areaedit.asp
字號:
<!--#include file="../conndb.asp"-->
<!--#include file="isAdmin.asp"-->
<html>
<head>
<title>編輯地域</title>
<link href=../style.css rel=STYLESHEET type=text/css>
<script language="javascript">
function checkFields()
{
if (myform.title.value=="") {
alert("地域名稱不能為空");
myform.title.onfocus();
return false;
}
return true;
}
</script>
</head>
<body>
<form name="myform" method="POST" action="AreaSave.asp?action=update&id=<%=id%>" OnSubmit="return checkFields()"><%
'從數據庫中取得此地域信息
Dim id,rs,sql
'讀取地域編號
id = Request.QueryString("id")
'生成SELECT語句，讀取地域信息
sql = "SELECT * FROM Area WHERE AreaId = " & id
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, Conn, 1, 1
'顯示地域信息
If rs.EOF Then
Response.Write "沒有此地域。"
Response.End
Else
%>
<table border="0" width="100%" cellspacing="1"><tr>
<td width="100%">地域類型
<select name="slt">
<% If rs("TypeId")=0 Then %>
<option value="0" selected>本市</option> <option value="1">外埠</option>
<% Else %>
<option value="0">本市</option> <option value="1" selected>外埠</option>
<% End If %>
</select></td></tr>
<tr><td width="100%">地域名稱
<input type="text" name="title" size="20" value="<%=rs("AreaName")%>"></td>
</tr> </table>
<p align="center"><input type="submit" value=" 提 交 " name="B1">
<input type="reset" value=" 重寫 " name="B2"></p>
<% End If %>
</form>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -