?? cate_admin.asp
字號:
<!--#include file="../ConnDB.asp"-->
<!--#include file="isAdmin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>推薦線路類型管理</title>
<link href="../style.css" rel="stylesheet">
</head>
<script language="JavaScript">
//檢查選擇的推薦線路類型，并執行刪除操作
function SelectChk()
{
var s = false; //用來記錄是否存在被選中的復選框
var Cateid, n=0;
var strid, strurl;
var nn = self.document.all.item("Cate"); //返回復選框Cate的數量
for (j=0; j<nn.length; j++) {
if (self.document.all.item("Cate",j).checked) {
n = n + 1;
s = true;
Cateid = self.document.all.item("Cate",j).id+""; //轉換為字符串
//生成要刪除推薦線路類型編號的列表
if(n==1) {
strid = Cateid;
}
else {
strid = strid + "," + Cateid;
}
}
}
strurl = "Cate_Admin.asp?Oper=delete&cid=" + strid;
if(!s) {
alert("請選擇要刪除的推薦線路類型!");
return false;
}
if (confirm("你確定要刪除這些推薦線路類型嗎？")) {
form1.action = strurl;
form1.submit();
}
}
function sltAll()
{
var nn = self.document.all.item("Cate");
for(j=0;j<nn.length;j++)
{
self.document.all.item("Cate",j).checked = true;
}
}
function sltNull()
{
var nn = self.document.all.item("Cate");
for(j=0;j<nn.length;j++)
{
self.document.all.item("Cate",j).checked = false;
}
}
</script>
<body link="#000080" vlink="#080080">
<form id="form1" name="form1" method="POST">
<%
'處理添加、修改和刪除操作
dim Soperate
Soperate = Request.QueryString("oper")
Operid = Request.QueryString("cid")
'刪除
If Soperate="delete" Then
sqldelt = "DELETE FROM Category WHERE CateId In(" & CStr(Operid) & ")"
Conn.Execute(sqldelt)
Response.Write "推薦線路類型已經成功刪除！"
'刪除表Line中此線路類型的線路
sql = "UPDATE Line SET CateId = 0 WHERE CateId In (" & CStr(Operid) & ")"
Conn.Execute(sql)
'添加
ElseIf Soperate = "add" then
CateName = Request("txttitle")
'判斷是否已經存在此類別名稱
sql = "SELECT * FROM Category WHERE CateName='" & CateName & "'"
Set rs = Conn.Execute(sql)
'如果沒有此類別名稱，則創建新記錄
If rs.EOF Then
sql = "INSERT INTO Category(CateName) VALUES('" & CateName & "')"
Conn.Execute(sql)
Response.Write"推薦線路類型已經成功添加！"
Else
Response.Write "已經存在此類別名稱！"
End If
Set rs = Nothing
ElseIf Soperate = "edit" Then
CateName = Request("txttitle")
'如果新類別名稱與舊名稱不同，則判斷是否存在此類別名稱
sql = "SELECT * FROM Category WHERE CateName = '" & CateName & "' And CateId=" & Operid
Set rs = conn.Execute(sql)
If Rs.EOF Then '如果原類別編號和新類別名稱不存在，則表示類別名稱發生變化
Set rs = Nothing
'此時判斷是否存在此類別名稱
sql = "SELECT * FROM Category WHERE CateName='" & CateName & "'"
Set rs = Conn.Execute(sql)
If Rs.EOF Then '新類別不存在
conn.Execute("UPDATE Category SET CateName='" & CateName & "' WHERE CateId=" & Operid)
Response.Write "推薦線路類型已經成功修改！"
Else
Response.Write "已經存在此類別名稱"
End if
End If
End If
%>
<p align='center'><font style="FONT-SIZE: 12pt"><b>推薦線路類型管理</b></font></p>
<center>
<table border="1" cellspacing="0" width="90%" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF">
<tr>
<td width="60%" align="center" bgcolor="#FEEC85"><strong>線 路 類 型</strong></td>
<td width="20%" align="center" bgcolor="#FEEC85"><strong>修 改</strong></td>
<td width="20%" align="center" bgcolor="#FEEC85"><strong>選 擇</strong></td>
</tr>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
'讀取所有的推薦線路類型數據到記錄集rs中
sql = "SELECT * FROM Category ORDER BY CateId"
rs.Open sql, conn, 1, 1
If rs.EOF Then
'如果記錄集為空，則顯示“目前還沒有記錄”
Response.Write "<tr><td colspan=3 align=center><font style='COLOR:Red'>目前還沒有記錄。</font></td></tr></table>"
Else
'在表格中顯示推薦線路類型名稱
DO WHILE Not rs.EOF
%>
<tr>
<td><%=rs("CateName")%></td>
<td align="center"><a href="Cate_Admin.asp?Oper=update&cid=<%=rs("CateId")%>&name=<%=rs("CateName")%>">修 改</a></td>
<td align="center"><input type="checkbox" name="Cate" id="<%=rs("CateId")%>"></td>
</tr>
<%
rs.MoveNext()
LOOP
%>
</table>
<p align="center">
<%
End If
'如果記錄數大于0，則顯示全選、清空和刪除等按鈕
If rs.RecordCount>0 then
%>
<input type="button" value="全 選" onclick="sltAll()">
<input type="button" value="清 空" onclick="sltNull()">
<input type="submit" value="刪 除" name="tijiao" onclick="SelectChk()">
<%End If%>
</form>
<%
'如果當前狀態為修改，則顯示修改的表單，否則顯示添加的表單
If Soperate = "update" Then
sTitle = Request.QueryString("name")
%>
<form name="UFrom" method="post" action="Cate_Admin.asp?cid=<%=Operid%>&Oper=edit">
<div align="center">
<input type="hidden" name="sOrgTitle" value="<%=sTitle%>"><b><font color="#000000">線路類型</font></b>
<input type="text" name="txttitle" size="20" value="<%=sTitle%>">
<input type="submit" name="Submit" value=" 修 改 ">
</div>
</form>
<%Else%>
<form name="AForm" method="post" action="Cate_Admin.asp?Oper=add">
<div align="center">
<b><font color="#000000">線路類型</font></b>
<input type="text" name="txttitle" size="20">
<input type="submit" name="Submit" value=" 添 加 ">
</div>
</form>
<%End If%>
</BODY>
</HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -