📄 admin_class_article.asp
字号:
<!--#include file = "conn.asp"-->
<%
if session("AdminName") = "" then
Session.Abandon
response.Redirect "Admin_Login.asp"
end if
if Session("AdminName")<>"admin" then
response.write"<SCRIPT language=JavaScript>alert('对不起您无权访问本页！');"
response.write"javascript:location.href='Admin_login.asp';</SCRIPT>"
response.end
end if
dim Flag,rsc,rscx,zt
Flag=Request.QueryString("Flag")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="css/index1.css" type=text/css rel=stylesheet>
<title>内容区</title>
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="37">
<tr>
<td width="1%" height="12"></td>
<td width="99%" height="12" colspan="2"> </td>
</tr>
<tr>
<td width="1%" height="27"></td>
<td width="98%" bgcolor="#E3E3E3" height="27" style="border: 1 solid #C0C0C0">
<p align="center">
<b>文 章 栏 目 管 理</b> </p>
</td>
<td width="1%" height="27" style="border: 0 solid #C0C0C0">
</td>
</tr>
<tr>
<td width="1%" height="31"></td>
<td width="98%" height="31" bgcolor="#F7F7F7" style="border-left: 1 solid #C0C0C0; border-right: 1 solid #C0C0C0; border-bottom: 1 solid #C0C0C0" valign="top">
<br>
<b> 管理导航：</b><a href="Admin_Class_Article.asp">文章栏目管理首页</a>
| <a href="Admin_Class_Article.asp?flag=add"> 添加文章栏目</a> | <a href="javascript:history.back()">返回</a><br>
</td>
<td width="1%" height="31" style="border-left: 0 solid #C0C0C0; border-right: 0 solid #C0C0C0; border-bottom: 0 solid #C0C0C0">
</td>
</tr>
</table>
</center>
</div>
<%
If Flag="" then
zt=Trim(Request.QueryString("zt"))
if zt="save" then
Classid=Trim(Request.form("classid"))
Classname=Trim(Request.form("classname"))
Classlink=Trim(Request.form("Classlink"))
Classnamed=Trim(Request.form("classnamed"))
'-------------------------------------------------------------求 scclassid和xcclassid
if len(Classid)=1 then
ScClassid=0
set rs=server.createobject ("adodb.recordset")
sql="select xcclassid from articleclass where ScClassid="&ScClassid&" order by xcclassid desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
xcclassid=100
else
xcclassid=int(rs(0))+1
end if
end if
if len(Classid)=3 then
ScClassid=Classid
set rs=server.createobject ("adodb.recordset")
sql="select xcclassid from articleclass where ScClassid="&ScClassid&" order by xcclassid desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
xcclassid=classid&"100"
else
xcclassid=int(rs(0))+1
end if
end if
if len(Classid)=6 then
ScClassid=Classid
set rs=server.createobject ("adodb.recordset")
sql="select xcclassid from articleclass where ScClassid="&ScClassid&" order by xcclassid desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
xcclassid=classid&"100"
else
xcclassid=int(rs(0))+1
end if
end if
rs.close
set rs=nothing
'-------------------------------------------------------------
' response.write scclassid&"<br>"
' response.write xcclassid&"<br>"
Set rs=Server.CreateObject("Adodb.Recordset")
Sql="Select class_id,ScClassid,XcClassid,ClassName,ClassNameD,Classlink,delbz from ArticleClass Where ScClassid="&ScClassid&" and classname='"&classname&"'"
rs.open sql,conn,1,2
if rs.bof and rs.eof then
rs.addnew
rs("scclassid")=scclassid
rs("xcclassid")=xcclassid
rs("classname")=classname
rs("Classlink")=Classlink
rs("classnamed")=classnamed
rs("delbz")=0
rs.update
end if
rs.close
set rs=nothing
end if
if zt="edit" then
classid_1=Trim(Request.QueryString("Classid_1"))
Classid=Trim(Request.form("classid"))
Classname=Trim(Request.form("classname"))
Classlink=Trim(Request.form("classlink"))
Classnamed=Trim(Request.form("classnamed"))
'response.write classid
'-------------------------------------------------------------求 scclassid和xcclassid
xcClassid=classid
set rs=server.createobject ("adodb.recordset")
sql="select scclassid from articleclass where xcClassid="&xcClassid
rs.open sql,conn,1,1
Scclassid=rs(0)
rs.close
set rs=nothing
'response.write scclassid&"<br>"
'response.write xcclassid&"<br>"
Set rs=Server.CreateObject("Adodb.Recordset")
Sql="Select class_id,ScClassid,XcClassid,ClassName,ClassNameD,Classlink from ArticleClass Where Class_id="&Classid_1
rs.open sql,conn,1,2
rs("scclassid")=scclassid
rs("classlink")=classlink
rs("xcclassid")=xcclassid
rs("classname")=classname
rs("classnamed")=classnamed
rs.update
rs.close
set rs=nothing
end if
if zt="del" then
classid_1=Trim(Request.QueryString("Classid"))
sql="update ArticleClass Set Delbz=1 where Class_ID="&classid_1
conn.execute(sql)
end if
if zt="UpOrder" then
Class_ID=Request.form("Class_id")
Yjsx=Request.form("yjsx")
sql="update ArticleClass Set Class_sx="&yjsx&" where Class_ID="&Class_id
conn.execute(sql)
end if
if zt="UpOrder1" then
Class_ID1=Request.form("Class_id1")
Yjsx1=Request.form("yjsx1")
sql="update ArticleClass Set Class_sx="&yjsx1&" where Class_ID="&Class_id1
conn.execute(sql)
end if
if zt="UpOrder2" then
Class_ID2=Request.form("Class_id2")
Yjsx2=Request.form("yjsx2")
sql="update ArticleClass Set Class_sx="&yjsx2&" where Class_ID="&Class_id2
conn.execute(sql)
end if
%>
<div align="center">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -