主题
最后登录1970-1-1
回帖0
精华
积分261
威望
ＲＰ
金钱 柯币
人气 ℃
注册时间2002-12-11
|
发表于 2004-10-25 09:22:20
|
显示全部楼层
回复: [公告]柯哀同盟会成员日记本XD[常来写日记]
<!--#include file="conn.asp"-->
<!--#include file="admin_login.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文章类别管理</title>
<link rel="stylesheet" href="style.css">
</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
sql = "SELECT * FROM News WHERE CateId In (" & CStr(Operid) & ")"
Set rs = Conn.Execute(sql)
If rs.EOF Then
sqldelt = "DELETE FROM Category WHERE CateId In(" & CStr(Operid) & ")"
Conn.Execute(sqldelt)
Response.Write "所选类别已经成功删除！"
Else
Response.Write "所选类别中包含文章，不能删除"
End If
'添加
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="0" cellspacing="0" width="90%">
<tr>
<td align=right>
<a href="default.asp"><font color="red">文章管理</font></a>
<a href="User_admin.asp"><font color="red">用户管理</font></a></td>
</tr>
</table>
<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")%>" value="ON"></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%>">
<font color="#FFFFFF"><b><font color="#000000">类别名称</font></b></font>
<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">
<font color="#FFFFFF"><b><font color="#000000">类别名称</font></b></font>
<input type="text" name="txttitle" size="20">
<input type="submit" name="Submit" value=" 添 加 ">
</div>
</form>
<%End If%>
</BODY>
</HTML>
·——· 我现在天天就是写类似这样的代码 |
|
