资料下载
-
<%MenuList 5,"download.asp","menuName"%>
<%=openbottom(pageid,2)%>您现在所在的位置是：首页 > <%=openbottom(pageid,2)%>
-
<%
RValue=GetTypeIdNodes("MenuParent","Sys_menu","menuid",RValue,RValue)
sql="select * from Sys_Download where typeid in ("&RValue&") and Visible=true"
sql=sql&" order by DownOrder asc"
set rs=objdb.runsql_return_rs(sql)
if rs.eof then inkcar.echo "--"
dim iNum:iNum=0
dim pageurl
pageurl=request.serverVariables("SCRIPT_NAME")
Pager.Datasource = rs
Pager.PageSize = 12
Pager.PageUrl=pageurl
if pageid<>"" then
if instr(pager.pageUrl,"?")>0 then
pager.pageUrl=pager.pageUrl&"pageid="&pageid
else
pager.pageUrl=pager.pageUrl&"?pageid="&pageid
end if
end if
do while not rs.eof
dim downSql,downRs,downTypeID,filepath,filesize
downTypeID=9
downSql="select * from Sys_Images where ImageType="&downTypeID&" and ImageParent="&rs("DownId")
set downRs=objdb.runsql_return_rs(downSql)
if downRs.eof then inkcar.echo "--"
while not downRs.eof
filepath="UploadFile/Download/"&downRs("ImageName")
filesize=getFileSize(filepath)
dim clord
if clord="#F8F8F8" then
clord="#F8F8F8"
else
clord="#FFFFFF"
end if
%>
- 下载<%=rs("downname")%> <% downRs.movenext wend set downRs=nothing rs.movenext iNum=iNum+1 if iNum>=pager.pagesize then exit do loop %>
<%= pager.show() %>