⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 list.asp

📁 asp的新闻网站
💻 ASP
字号:
🔍 
<%Response.Buffer=true%>
<%
'修改：
'时间：
	'模板设计：秦怀平(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" -->

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Qinhp NetModel Generator">
<meta name="Author" content="QinHuaiPing(秦怀平)">
<link rel="stylesheet" href="../script/style.css" type="text/css">
</head>
<%
if request("mySql")="" then '第一次调用
sql=" where picmenuid='"&trim(request("picmenuid"))&"'"
if request("photoTitle")<>"" then
   if sql<>"" then
		sql=sql&" and photoTitle like '%"&killStr(request("photoTitle"))&"%'"
	else
		sql=" photoTitle like '%"&killStr(request("photoTitle"))&"%'"
	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_photo "&sql&" order by photoid desc "
else '翻页调用
	sql=request("mySql")
end if

%>
<body bgcolor="#FFFFE0">
<!--#include file="../include/rollPage.asp" -->

<%
set rs=server.CreateObject("adodb.recordset")

%>
<form method=POST action=update.asp name=list>
<p align=center><b><font size=4 color=#0000FF><u>可推荐图片信息表列表</u></font></b></p>
<div align=center><center>
<input type=hidden value=<%=request("picmenuid")%> name=picmenuid> <!--记忆推荐位-->
<input type=hidden value=<%=request("commendid")%> name=commendid>
	<table style="border: 1 solid #0000FF" width=100%>
<%
rs.Open sql, conn, 3, 1
If Not rs.EOF Then
	rs.PageSize = 13
	rs.AbsolutePage = getPageNo(rs)
%>
<hr color=#FF0000>

	<div align=center>
		<center>
		<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>
			
		</tr>
		<%For i = 1 To rs.PageSize
			If rs.EOF Then Exit For%>
			<tr>
				<td align=center><input type="radio" name=selectradio value=<%=rs("photoId")%> <%if i=1 then Response.Write " checked"%>></td>
				<td align=center><%=rs("photoId")%>　</td>
				<td align=center><%=rs("photoTitle")%>　</td>
				<td align=center><%=rs("regtime")%>　</td>
				
			</tr>
			<%rs.MoveNext
			if rs.eof then exit for
		next%>
		<tr><td nowrap colspan=6 align=center><input type=submit value=查看所选 name=radioSubmit ></td>
		</tr>
	</table></form><form action=list.asp id=form1 name=form1>

<input type=hidden value=<%=request("commendid")%> name=commendid>
<input type=hidden value=<%=request("flag")%> name=flag>
	<%
	else
	Response.Write "此栏目现在还没有信息"
	end if%>
	<%call listPage(rs)%>

	
	</center>
</div>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -