admin_uploadimglist.asp

庐江二中

<%PageName="admin_upload"%>
<!--#include file="session.asp"-->
<%checkAdmin1%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="function.asp"-->
<!--#include file="top.asp"-->
<br>
<table border="1" width="80%" cellspacing="0" cellpadding="1" bgcolor="<%=MainBgColor%>">
<tr>
<td align=center valign=top>
<%
		checked1=" and image>0 "
		checked2=" where image>0 "
PageUrl="admin_UploadImgList.asp"
%>
<!--#include file="admin_ManaList.asp"-->
<%		
sub showContent
i=0
%>
<table border="1" width="100%" cellspacing="0" cellpadding="0" Class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>">
<tr>
<td width="100%" height="20" colspan=4 align=center bgcolor="<%=MainTColor%>" background="images/admin/b3.gif"><b><%=BigTitle%><%=SmallTitle%>图片列表</b></td>
</tr>
<tr>
<td width="100%" align="center" colspan="4" height="47">
<p><font color="#FF0000"><b>使用前请确认你的服务器端已注册fileup.dll组件，否则不能使用本工具。</b></font></p>
</td>
</tr>
<tr>
<td align=center height=25 width="6%">
<p>ID号</p>
</td>
<td align=center height=25 width="82%">标 &nbsp;&nbsp;&nbsp;题</td>
<td align=center height=25 width="6%">图片</td>
<td align=center height=25 width="6%">操作</td>
</tr>
<%
do while not rs.eof
i=i+1
strMaxLen=64      '限制标题长度
strSubject = HTMLDecode(rs("Title"))
strTrueSubject = GetTrueLength(strSubject, strMaxLen, strSpaceBar)
m_bOverFlow = checkOverFlow(strSubject, strMaxLen)
if m_bOverFlow = True then
strTip = strSubject
else
strTip = ""
end if	
	

%><tr><td width=6% align=center ><%=rs("NewsID")%></td>
<td width=82% >&nbsp;<a  href="<%=NewsUrl%>" title="<%=strTip%>" target=_blank><%=strTrueSubject%></a></td>
<td width=6% align=center ><%=rs("image")%></td>		
<td width=6% align="center" ><a href="admin_UploadImgSelect.asp?NewsID=<%=rs("newsid")%>&image=<%=rs("image")%>">选图</a></td>
</tr>

<%
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</table>
<%
end sub
function showpage(totalnumber,maxperpage,filename)
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
url="BigClassName=" & Request("BigClassName")
%>
<form method=Post action="<%=filename%>?<%=url%>">
共<font color="<%=AlertFColor%>"><b> <%=totalnumber%> </b></font>条文章
<%if CurrentPage<2 then%>
&nbsp;&nbsp;首页&nbsp;&nbsp;上一页
<%else%>
&nbsp;&nbsp;<a href="<%=filename%>?page=1&<%=url%>">首页</a>&nbsp;&nbsp;<a href="<%=filename%>?page=<%=CurrentPage-1%>&<%=url%>">上一页</a>
<%
end if
if n-currentpage<1 then
%>
&nbsp;&nbsp;下一页&nbsp;&nbsp;末页
<%else%>
&nbsp;&nbsp;<a href="<%=filename%>?page=<%=CurrentPage+1%>&<%=url%>">下一页</a>&nbsp;&nbsp;<a href="<%=filename%>?page=<%=n%>&<%=url%>">末页</a>
<%end if%>
&nbsp;&nbsp;页次：<strong><font color="<%=AlertFColor%>"><%=CurrentPage%>/<%=n%></font></strong>页
转到：
<select name="page" size="1" onchange="javascript:submit()">
<%for i = 1 to n%>
<option value="<%=i%>" <%if cint(CurrentPage)=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
<%next%>
</select>
</form>
<%end function%>
</td>
</tr>
</table>
<%set rs=nothing%>