📄 srchreview.asp
字号:
<%Response.Buffer=true%>
<%
'设计：潘树文
'开发时间：2001.12
%>
<!--#include file="../include/odbc.asp" -->
<!--#include file="../include/killStr.asp" -->
<!--#include file="../include/checkUser.asp" -->
<!--#include file="../include/checkServer.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Qinhp NetModel Generator">
<link rel="stylesheet" href="../script/style.css" type="text/css">
<script src="../script/trim.js" language="JavaScript"></script>
<script src="../script/validdate.js" language="JavaScript"></script>
</head>
<body bgcolor="#FFFFE0">
<%
if request("deleteSubmit")<>"" then
selectDelete = CStr(killStr(request("selectDelete")))
'删除所选
If selectDelete <> "" Then
selectDeleteArr = Split(selectDelete, ",")
selectDeleteNumber = UBound(selectDeleteArr)
For i = 0 To selectDeleteNumber
conn.execute "delete from news2_review where issue='"&trim(selectDeleteArr(i))&"' and menuid='"&request("menuid")&"'"
next
end if
end if
set rs=server.CreateObject("adodb.recordset")
if request("mySql")="" then '第一次调用
sql="SELECT distinct issue FROM news2_review WHERE menuid ='"&request("menuid")&"' order by issue desc"
else '翻页调用
sql=request("mySql")
end if
rs.open sql,conn,3,3%>
<!--#include file="../include/rollPage.asp" -->
<%set rs2=server.CreateObject ("adodb.recordset")
sql2="SELECT * FROM news2_review WHERE menuid ='"&request("menuid")&"' and visible='1' order by issue desc"
rs2.Open sql2,conn,3,1
if not rs2.EOF then
issue=rs2("issue")
end if
rs2.Close
if not rs.EOF then
rs.PageSize =20
'rs.AbsolutePage =getPageNo(rs)
%>
<hr color=#FF0000>
<p align=center ><b><font size=4 color=#0000FF><u>回顾/排行信息查询列表</u></font></b></p>
<div align=center>
<center>
<form action=srchreview.asp name=list1>
<table border=1 cellpadding=0 cellspacing=0>
<tr><td width=48 align=center><b>选择</b></td>
</td><input type=hidden value=<%=request("menuid")%> name=menuid >
<td width=48 align=center><b>期号</b></td>
<td width=48 align=center><b>WEB有效</b></td>
<td 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("issue")%>></td>
<td align=center><%=rs("issue")%> </td>
<td align=center><%if rs("issue")=issue then
Response.Write "是"
else
Response.Write "否"
end if
%> </td>
<td align=center><a href=addreriew.asp?menuid=<%=request("menuid")%>&issue=<%=rs("issue")%>&flag=1>修改</a> </td>
</tr>
<%rs.MoveNext
if rs.eof then exit for
next%>
</table><p align=center><input type=submit value=删除所选 name=deleteSubmit onclick="if (confirm('您真的要该记录数据以及相关数据？')){return true;} else{return false;}" language=JScript></p>
<%
else
Response.Write "此栏目现在还没有回顾信息<a href=javascript:history.back()>按此返回</a>"
end if%>
<%call listPage(rs)
rs.Close
%>
</center></form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -