📄 addlist.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=""
if killStr(request("picMenuId"))<>"" then
if sql<>"" then
sql=sql&" and picMenuId like '%"&killStr(request("picMenuId"))&"%'"
else
sql="picMenuId like '%"&killStr(request("picMenuId"))&"%'"
end if
else
if sql<>"" then
sql=sql&" and picMenuId like '%"&killStr(request("picMenuId2"))&"%'"
else
sql="picMenuId like '%"&killStr(request("picMenuId2"))&"%'"
end if
end if
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
if sql<>"" then
sql=" where "&sql
end if
sql="select * from news2_photo"&sql&" and right(photoid,4)='0000' 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=<% =request.servervariables("path_info")%> name=list>
<p align=center><b><font size=4 color=#0000FF><u>图片专辑(组)信息列表</u></font></b></p>
<div align=center><center>
<table style="border: 1 solid #0000FF" width=100%>
<%
rs.Open sql, conn, 3, 1
set rsSelect=server.CreateObject("adodb.recordset")
sqlSelect ="select picMenuId,picMenuName from news2_picMenu where picmenuid='"&request("picmenuid")&"' and right(picmenuid,3)='000' "
rsSelect.open sqlSelect,conn,3,1
%><%if not rsselect.EOF then%><tr>
<td width=10% style="border: 1 solid #0000FF" align=center>图片栏目</td>
<td style="border: 1 solid #0000FF" colspan=3><%=rsselect("picmenuname")%>
<input type=hidden value=<%=rsSelect("picMenuId")%> name=picmenuid></td>
</tr><%end if
rsselect.Close
sqlSelect ="select picMenuId,picMenuName from news2_picMenu where picmenuid='"&request("picmenuid")&"' and right(picmenuid,3)<>'000'"
rsSelect.open sqlSelect,conn,3,1
if not rsselect.EOF then
%>
<tr>
<td width=10% style="border: 1 solid #0000FF" align=center>图片栏目:</td>
<td style="border: 1 solid #0000FF" colspan=3>
<input type=hidden value=<%=rsSelect("picMenuId")%> name=picmenuid2><%=rsSelect("picMenuName")%>
</td>
</tr><%
end if
rsSelect.close
%>
<hr color=#FF0000>
<tr><td colspan=4 height=10 bgcolor="#0000f0#"></td></tr>
<tr>
<td width=10% style="border: 1 solid #0000FF" align=center><b>栏目代码</b></td>
<td style="border: 1 solid #0000FF" align=center><b>标题</b></td>
<td style="border: 1 solid #0000FF" align=center><b>更新时间</b></td>
<td style="border: 1 solid #0000FF" align=center><b>编辑</b></td>
</tr>
<tr>
<td width=10% style="border: 1 solid #0000FF" align=center><b>******</b></td>
<td style="border: 1 solid #0000FF" align=center><b>******</b></td>
<td style="border: 1 solid #0000FF" align=center><b>******</b></td>
<td style="border: 1 solid #0000FF" align=center>
<a href="addnext.asp?photoid=0000000000&picmenuid=<%
if trim(request("picmenuid"))<>"" then
Response.Write trim(request("picmenuid"))
else
Response.Write trim(request("picmenuid2"))
end if%>">增加新专辑(组)</a></td>
</tr>
<%If Not rs.EOF Then
rs.PageSize = 13
rs.AbsolutePage = getPageNo(rs)
For i = 1 To rs.PageSize
If rs.EOF Then Exit For%>
<tr>
<td style="border: 1 solid #0000FF"align=center><%=rs("picMenuId")%> </td>
<td style="border: 1 solid #0000FF"align=center><%=rs("photoTitle")%> </td>
<td style="border: 1 solid #0000FF" align=center><%=rs("regTime")%> </td>
<td style="border: 1 solid #0000FF" width=54 align=center>
<a href="addnext.asp?photoid=<%=rs("photoId")%>&picmenuid=<%=rs("picmenuid")%>">增加图片</a></td>
</tr>
<%rs.MoveNext
if rs.eof then exit for
next%>
</table><%call listPage(rs)%><%
'else
'Response.Write "没有符合条件的信息，请检查查询条件！<a href=javascript:history.back()>按此返回</a>"
end if%>
</center>
</div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -