📄 srch_news_3.asp
字号:
<%Response.Buffer=true%>
<%
'修改/删除专题新闻,第三步：修改专题新闻
'修改：佟庆涛
'时间：2001.02.05
'模板设计：秦怀平(jincao@yeah.net)
'开发时间：2000.12
%>
<!--#include file="../include/odbc.asp" -->
<!--#include file="../include/killStr.asp" -->
<!--#include file="../include/checkUser.asp" -->
<!--#include file="../include/checkServer.asp" -->
<!--#include file="../include/myip.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="Author" content="QinHuaiPing(秦怀平)">
<link rel="stylesheet" href="../script/style.css" type="text/css">
</head>
<% '删除所选
if request("deleteSubmit")<>"" then
selectDelete = CStr(killStr(request("selectDelete")))
If selectDelete <> "" Then
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
selectDeleteArr = Split(selectDelete, ",")
selectDeleteNumber = UBound(selectDeleteArr)
For i = 0 To selectDeleteNumber
bigpic=split(selectDeleteArr(i),"**") '拆分出新闻编号和图片名称
'删除大图片
if trim(bigpic(1))<>"" and fileobject.FileExists(bigpicphy&trim(bigpic(1))) then
InStream=FileObject.DeleteFile (bigpicphy&bigpic(1),1)
end if
'删除小图片
if trim(bigpic(2))<>"" and fileobject.FileExists(bigpicphy&trim(bigpic(2))) then
InStream=FileObject.DeleteFile (bigpicphy&bigpic(2),1)
end if
'删除新闻
conn.execute "delete from news2_special where infoId='"&trim(bigpic(0))&"'"
next
set fileobject=nothing
end if
end if
%>
<%if request("mySql")="" then '第一次调用
sql=" where left(infoid,8)='"&left(request("infoid"),8)&"' and right(infoid,4)<>'0000' and menuid='"&request("menuid")&"'"
'response.write sql
if trim(request("newstitle"))<>"" then
if sql<>"" then
sql=sql&" and newstitle like '%"&killStr(request("newstitle"))&"%'"
else
sql="newstitle like '%"&killStr(request("newstitle"))&"%'"
end if
end if
'-------发表时间的查询-------------------
if trim(request("regtime"))="regtimeyes" then
date1=request("year1")&"-"&right("0" &request("month1"),2)&"-"&right("0"&request("day1"),2)
date2=request("year2")&"-"&right("0" &request("month2"),2)&"-"&right("0"&request("day2"),2)
if Sql<>"" then
Sql=Sql & " and "
end if
Sql=Sql & " regtime between '"&date1&"' and '"&date2&"'"
end if
sql="select * from news2_special "&sql&" order by "&request("indexorder")&" desc "
else '翻页调用
sql=request("mySql")
end if
%>
<body bgcolor="#FFFFE0">
<!--#include file="../include/rollPage.asp" -->
<%
set rs=server.CreateObject("adodb.recordset")
%>
<p align=center><font size=4 color=#0000FF><u><b>修改/删除新闻 </b></u></font></p>
<div align=center><center>
<table style="border: 1 solid #0000FF" width=100%>
<%
'response.write sql
rs.Open sql, conn, 3, 1
If Not rs.EOF Then
rs.PageSize = 10
rs.AbsolutePage = getPageNo(rs)
%>
<form method=POST action=<% =request.servervariables("path_info")%>>
<div align=center>
<center>
<table border=0 cellpadding=0 cellspacing=0>
<tr>
<td align=left><font color="#0000FF" size="2">Step3：新闻列表</font></td>
</tr>
</table>
<table border=1 cellpadding=0 cellspacing=0>
<tr>
<td width=48 align=center><b>选择</b></td>
<td align=center><b>文章号</b></td>
<td align=center><b>文章标题</b></td>
<td align=center><b>点击数</b></td>
<td align=center><b>更新时间</b></td>
<td width=54 align=center><b>编辑</b></td>
</tr>
<%For i = 1 To rs.PageSize
If rs.EOF Then Exit For
%>
<tr>
<td align=center><input type=checkbox name=selectDelete value=<%=rs("infoId")%>**<%=trim(rs("bigpic"))%>**<%=trim(rs("smallpic"))%>></td>
<td align=center><a href=../news2_judge/list.asp?infoid=<%=rs("infoId")%>><%=rs("infoId")%> </a></td>
<td align=center><%=rs("newsTitle")%> </td>
<td align=center><%=rs("clickNum")%> </td>
<td align=center><%=rs("regtime")%> </td>
<td width=54 align=center><a href="update.asp?infoid=<%=rs("infoId")%>&menuid=<%=request("menuid")%>&flag=4">修改</a></td>
</tr>
<%rs.MoveNext
if rs.eof then exit for
next%>
<tr><td nowrap colspan=6 align=center><input type=submit value=删除所选 name=deleteSubmit onclick="if (confirm('您真的要该记录数据以及相关数据？')){return true;} else{return false;}" language=JScript></td>
</tr>
<tr><td nowrap colspan=6 align=center>注：点击文章号可以查看网友评论</td>
</tr>
<input type=hidden value="<%=sql%>" name=mysql>
<input type=hidden value=<%=request("menuid")%> name=menuid>
<input type=hidden value=<%=request("infoid")%> name=infoid>
</table>
<%call listPage(rs)%>
<%end if%>
</center>
</div>
</form>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -