qbfile.asp

来自「燃点真情的WAP整站程序,WAP建站系统,,更多WAP源码再登陆http://x」· ASP 代码 · 共 67 行

ASP
67 行
字号 
<% @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.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<!--#include file="conn.inc"-->
<!--#include file="ydzq1.asp"-->
<card id="main" title="本贴全部文件">
<p>
<% dim rs,sql,add,rss,sqll,bbsid,tid
bbsid=request.querystring("bbsid")
tid=request.querystring("tid")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select content,time,wjsm,filesize,id from upfile where tid=" & tid & " order by time desc"
rs.open sql,conn,1,1 
If Not rs.eof	Then
	Dim PageSize,i
	PageSize=10						
	Dim Count,page,pagecount,gopage			
	gopage="qbfile.asp?hk="&hk&"&amp;bbsid="&bbsid&"&amp;tid="&tid&"&amp;"
	Count=rs.recordcount	
	page=int(request.QueryString ("page"))
	if page<=0 or page="" then page=1		
	pagecount=(count+pagesize-1)\pagesize	
        if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
dim ggss
	For i=1 To PageSize     						
	If rs.eof Then Exit For	
content=rs("content")
IF InStrRev(content,".") > 0 THEN
ggss = mid(content,InStrRev(content,".")+1)
end if
if ggss="gif" or ggss="jpg" or ggss="jpeg" or ggss="bmp" or ggss="png" then
response.write("<img src='"&content&"' alt=''/><br/>")
end if
response.write("<a href='down.asp?id="&rs("id")&"&amp;hk="&hk&"&amp;tid="&tid&"'>下载附件</a><br/>")	
response.write("[格式:"&ggss&"/大小:"&rs("filesize")&"]<br/>")
if rs("wjsm")<>"" then
response.write("[说明:"&rs("wjsm")&"]<br/>")
end if
response.write("[" & ubb2(rs("time")) & "]<br/>")   
response.write("-------------<br/>")
	rs.moveNext
 	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下页</a>"
	if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上页</a>"
	if pagecount>1 then response.write "<br/><b>"&page&"</b>/"&pagecount&"页<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"page=$(page)"">跳转</a><br/>"
Else
%>
	暂时没有文件！<br/>
<%end if%>
<a href='bbs_view.asp?hk=<%=hk%>&amp;bbsid=<%=bbsid%>&amp;tid=<%=tid%>'>查看主贴</a> <br/>
<a href='bbs_list.asp?hk=<%=hk%>&amp;bbsid=<%=bbsid%>'>返回上级</a>
<!--#include file="fanhui.asp"-->
</p>
</card>
</wml> 
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

qbfile.asp - 源码说明

本页面展示了「燃点真情的WAP整站程序,WAP建站系统,,更多WAP源码再登陆http://xywap.cn」中的 qbfile.asp 源码文件，采用 ASP 编程语言编写，共 67 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与WAP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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