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

📄 newfile.asp

📁 一个用ASP和ACCESS做的网络建站系统 1.WAP站长论坛网站系统【测试版】 2.只能添加一级主题栏目 3."文章栏目、文件栏目"添加栏目后再添加分类 4.可自定上传文件类型,上传目
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.2//EN" "http://www.wapforum.org/DTD/wml12.dtd">
<!--#include file="conn.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="must-revalidate" forua="true"/>
<meta http-equiv="Cache-Control" content="no-cache" forua="true"/>
<meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
<meta http-equiv="Expires" content="0" forua="true"/>
<meta http-equiv="Pragma" content="no-cache" forua="true"/>
</head>
<%
dim id
id=TRim(Request("id"))
if not isnumeric(id) then id=""
	Set Rs1 = Server.CreateObject("Adodb.Recordset")
	Sql1 = "SELECT * FROM config"
	Rs1.Open Sql1,conn,1,1
	if not (rs1.bof and rs1.eof)  then 
%>
		<card id="index" title="下载-最新添加">
		<p align="<%=utf8(rs1("const"))%>">
<%
	if id <> "" then
		tt="WHERE cid='" & id&"'"
	else
		tt=""
	end if

	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT * FROM ufile  "&tt&"  order by id desc"
	Rs.Open Sql,conn,1,1
	page = Request("Page")
	Rs.PageSize = 6
	if not (rs.bof and rs.eof)  then 
	IF Not IsEmpty(Page) Then
		IF Not IsNumeric(Page) Then		
			Page=1
		Else
			Page=Cint(Page)
		End IF
		IF Page > Rs.PageCount Then
			Rs.AbsolutePage = Rs.PageCount
		ElseIF Page <= 0 Then
			Rs.AbsolutePage = 1
		Else
			Rs.AbsolutePage = Page
		End IF
	Else
		Rs.AbsolutePage = 1
	End IF
	Page = Rs.AbsolutePage

	For i=1 to Rs.PageSize
		If Rs.Eof Then
			exit For
		End If

		%>

				<%=utf8(i+(page-1)*6)%>.<a href='down.asp?did=<%=utf8(rs("id"))%>&amp;lid=<%=utf8(rs("lid"))%>&amp;id=<%=utf8(rs("cid"))%>'><%=utf8(rs("name"))%></a>(<%=utf8(rs("kid"))%>)<br/>
			<%
		Rs.MoveNext
	Next
    		if page>=Rs.PageCount then
        	'Response.Write ("[下一页]")        
   		 else
        	Response.Write("[<a href='newfile.asp?id="&id&"&amp;Page=" & (Page+1) & "'>下一页</a>]")
    		end if

    		if page<=1 then
        	'Response.Write ("[上一页]")
    		else        
		Response.Write("[<a href='newfile.asp?id="&id&"&amp;Page=" & (Page-1) & "'>上一页</a>]")
    		end if
		if Rs.PageCount>2 then%>
		<br/><input name="Page" format="*N" maxlength="50" size="10"/>
		<anchor>跳页
			<go href="newfile.asp?id=<%=id%>" method="post">
				<postfield name="Page" value="$(Page:n)" />
			</go>
		</anchor>
		<%end if%>
		<br/>共(<%=utf8(page)%>/<%=rs.pageCount%>)页<br/>
		<anchor>加入收藏夹
		<go method='post' href='mycol_do.asp'>
		<postfield name='name' value='下载-最新添加'/>
		<postfield name='url' value='newfile.asp?id=<%=id%>&amp;page=<%=page%>'/>
		</go>
		</anchor><br/>
	<%else%>
		暂无文件!<br/>
	<%end if
		Rs.close
		set rs=nothing
	else
		%><card id="index" title="出错啦"><p>出错啦!系统资料没配置.<br/><%
	end if
	Rs1.close
	set rs1=nothing

	if id<>"" then
%>
		<a href="upfile.asp?id=<%=id%>">返回栏目</a><br/>
<%	end if%>
		<a href="index.asp">网站首页</a><br/><a href="http://wapforum.cn"> 站长论坛</a><br/>	
		</p>
</card>
</wml>

⌨️ 快捷键说明

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