📄 admin_special.asp
字号:
<!--#include file = include.asp-->
<!--#include file = admin_Checkmana.asp-->
<body bgcolor="#FFFFFF">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#76B771">
<tr bgcolor="#FFFFFF">
<td width="20%" height="118" valign="top" bgcolor="#F7FFF4">
<table width="100" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="2"></td>
</tr>
</table>
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://bbs.cooin.com http://bbs.foosun.net)
'=========================================================
if EnoughPopedom("special")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
Domain=Request.ServerVariables("SERVER_NAME")
soFilePath=Request.ServerVariables("PATH_INFO")
soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
totoln=len(soFilePath)
soFilePath=lcase(left(soFilePath,totoln-1))
soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
sowinpath=Domain&soFilePath
select case Request("action")
case "del"
call del()
case "del1"
call del1()
case "Read"
call Read()
end select
if request.Form("action")="add" then
if request.form("speicalCn")="" or request.form("speicalEn")="" then
Response.write"<script>alert(""中文名称和中文名称必须填写"");location.href=""admin_Special.asp"";</script>"
Response.end
end if
set rs1= server.createobject("adodb.recordset")
sql1="select * from Speical"
rs1.open sql1,conn,3,3
rs1.addnew
rs1("speicalCn")=request.form("speicalCn")
rs1("speicalEn")=request.form("speicalEn")
rs1("SpeicalNum")=trim(request.form("SpeicalNum"))
rs1.update
rs1.close
set rs1=nothing
Response.write"<script>alert(""专题添加成功！"");location.href=""admin_Special.asp"";</script>"
Response.end
end if
if request.Form("action")="add1" then
session("FilePath")=""
Num=request.form("Sps").count
SpeicalCn=request.form("SpeicalCn")
for i=1 to Num
set rs=Server.CreateObject("adodb.Recordset")
sql="Select * from News where NewsID="&request.form("Sps")(i)
rs.open sql,conn,1,1
FileName=rs("FileName")
rs.close
set rs=nothing
conn.execute("update News set SpeicalCn='"&SpeicalCn&"' Where NewsID="&request.form("Sps")(i))
next
Response.write"<script>alert(""成功添加专题列表"");location.href=""admin_special.asp"";</script>"
Response.end
end if
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="18"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="left"><font color="#990000"><strong>专题列表
</strong></font></div></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#76B771">
<td width="100">
<div align="center"><font color="#000000">专题名称</font><font color="#990000"></font></div></td>
<td width="100">
<div align="center"><font color="#000000">专题英文</font></div></td>
<td width="100">
<div align="center"><font color="#000000">修改</font></div></td>
<td width="100">
<div align="center"><font color="#000000">删除</font></div></td>
<td width="100">
<div align="center"><font color="#000000">查看专题下新闻</font></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3"></td>
</tr>
</table>
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select * from Speical order by id desc "
rs.open rs.source,conn,1,1
if not rs.eof then
while not rs.EOF
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#76B771">
<tr bgcolor="#F7FFF4">
<td width="100">
<div align="center"><%=rs("speicalCN")%></div></td>
<td width="100">
<div align="center"><%=rs("speicalEN")%></div></td>
<td width="100">
<div align="center">[<a href="admin_specialModify.asp?SpeicalCN=<%=rs("speicalcn")%>">修改</a>]</div></td>
<td width="100">
<div align="center">[<a href="?SpeicalCN=<%=rs("speicalcn")%>&action=del" onClick="return Del()">删除</a>]</div></td>
<td width="100" bgcolor="#F7FFF4">
<div align="center">[<a href="?SpeicalCN=<%=rs("speicalcn")%>&action=Read">查看</a>]</div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3"></td>
</tr>
</table>
<%
rs.MoveNext
wend
else
Response.Write "没有专题"
end if
%>
<form name="form1" method="post" action="">
<table width="100%" height="27" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#76B771">
<td width="12%">
<div align="right">增加专题</div></td>
<td width="80%">
<div align="center">名称：
<input name="speicalCn" type="text" id="speicalCn" size="15">
英文名称：
<input name="SpeicalEn" type="text" id="SpeicalEn" size="10">
栏目专题调用数：
<input name="SpeicalNum" type="text" id="SpeicalNum" value="30" size="4">
<input type="hidden" name="action" value="add">
</div></td>
<td width="8%"> <div align="center">
<input type="submit" name="Submit" value="确定" class=Anbutc>
</div></td>
</tr>
</table>
</form></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="127" valign="top" bgcolor="#F7FFF4">
<form action="" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#F7FFF4"><font color="#FF0000"><strong>以下是新闻列表，请添加新闻专题</strong></font></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#76B771">
<td width="4%">
<div align="center">选择</div></td>
<td width="48%">
<div align="center">新闻名</div></td>
<td width="15%">
<div align="center">所属类别</div></td>
<td width="17%">
<div align="center">所属专题</div></td>
</tr>
</table>
<%
strpage=request.querystring("page")
if len(strpage)=0 then
strpage="1"
end if
set rs1=server.createobject("adodb.recordset")
sql="select * from news where Check=false order by newsid desc"
rs1.open sql,conn,1,3
if rs1.eof then
rs1.close
set rs1=nothing
conn.close
set conn=nothing
response.Write"没有新闻记录。"
response.end
end if
rs1.pagesize=15
rs1.absolutepage=cint(strpage)
select_count=rs1.recordcount
select_pagecount=rs1.pagecount
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -