📄 title.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"-->
<!--#include file="ubb.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,rs1,sql1,sql,lid
id=TRim(Request("id"))
lid=TRim(Request("lid"))
aid=TRim(Request("aid"))
if not isnumeric(aid) then aid="1"
if not isnumeric(id) then id=""
if not isnumeric(lid) then lid=""
IF  Request.QueryString("Action")="list" Then
	call list
else
	call main
end if
Function main
if id<>"" then
	Set Rs1 = Server.CreateObject("Adodb.Recordset")
	Sql1 = "SELECT * FROM config"
	Rs1.Open Sql1,conn,1,1
	if not (rs1.bof and rs1.eof)  then 
		Set Rs = Server.CreateObject("Adodb.Recordset")
		Sql = "SELECT * FROM bclass WHERE id=" & id
		Rs.Open Sql,conn,1,1
		if not (rs.bof and rs.eof)  then 
		ttitle=rs("cat")
		URLName=rs("class")
%>
		<card id="index" title="<%=URLName%>">
		<p align="<%=utf8(rs1("const"))%>">
		
<%
		else
		%><card id="index" title="暂无分类"><p><%
		end if
		Rs.close
		set rs=nothing
	else
		%><card id="index" title="出错啦"><p>出错啦!系统资料没配置.<br/><%
	end if
	Rs1.close
	set rs1=nothing

	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT * FROM blist WHERE bid='" & id&"' order by pid asc"
	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
        	%><%=outHTM(ttitle)%><br/>
				<a href='newtitle.asp?id=<%=utf8(id)%>'>最新添加</a><br/>
				
				
<%
	For i=1 to Rs.PageSize
		If Rs.Eof Then
			exit For
		End If%>

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

    	if page<=1 then
        	'Response.Write ("[上一页]")
    	else        
		Response.Write("[<a href='title.asp?id="&id&"&amp;aid="&utf8(aid)&"&amp;Page=" & (Page-1) & "'>上一页</a>]")
    	end if
	if Rs.PageCount>2 then%>
		<br/><input name="Page" format="*N" maxlength="5"/>
		<anchor>跳页
			<go href="title.asp?id=<%=utf8(id)%>" method="post">
				<postfield name="Page" value="$(Page:n)" />
			</go>
		</anchor>
	<%end if%>
		<input type='text'  name='txt' size="10"/>
		<anchor>搜索
		<go method='post' href='search.asp?id=1'>
		<postfield name='txt' value='$(txt)'/>
		</go>
		</anchor>
		<br/>共(<%=utf8(page)%>/<%=rs.pageCount%>)页<br/>
		<anchor>加入收藏<br/>
		<go method='post' href='mycol_do.asp'>
		<postfield name='name' value='<%=URLName%>'/>
		<postfield name='url' value='title.asp?id=<%=id%>&amp;page=<%=page%>'/>
		</go>
		</anchor>
	<%else%>
		暂无分类!<br/>
	<%end if
		Rs.close
		set rs=nothing
else
%>
<card id="index" title="出错啦"><p>出错啦!请不要非法提交参数.<br/>
<%end if
end Function




Function list
if id<>"" and lid<>"" then
	Set Rs1 = Server.CreateObject("Adodb.Recordset")
	Sql1 = "SELECT * FROM config"
	Rs1.Open Sql1,conn,1,1
	if not (rs1.bof and rs1.eof)  then 
		Set Rs = Server.CreateObject("Adodb.Recordset")
		Sql = "SELECT * FROM bclass WHERE id=" & id
		Rs.Open Sql,conn,1,1
		if not (rs.bof and rs.eof)  then 
		Set Rs2 = Server.CreateObject("Adodb.Recordset")
		Sql2 = "SELECT * FROM blist WHERE lid=" & lid
		Rs2.Open Sql2,conn,1,1
		if not (rs2.bof and rs2.eof)  then 
		ttitle=rs2("title")
		URLName=rs2("name")
%>
		<card id="index" title="<%=utf8(rs("class"))%>-<%=utf8(rs2("name"))%>">
		<p align="<%=utf8(rs1("const"))%>">
		<%=outHTM(ttitle)%><br/>
		<%if aid="1" then
		aaa="desc"%>
			<a href="title.asp?Action=list&amp;lid=<%=utf8(lid)%>&amp;id=<%=utf8(id)%>&amp;aid=2">最早添加</a><br/>
		<%else
		aaa="asc"%>
			<a href="title.asp?Action=list&amp;lid=<%=utf8(lid)%>&amp;id=<%=utf8(id)%>&amp;aid=1">最新添加</a><br/>
		<%end if%>		
		
<%
		else
		%><card id="index" title="暂无文章"><p><%
		end if
		Rs.close
		set rs=nothing
		Rs2.close
		set rs2=nothing
	else
		%><card id="index" title="暂无文章"><p><%
	end if
	else
		%><card id="index" title="出错啦"><p>出错啦!系统资料没配置.<br/><%
	end if
	Rs1.close
	set rs1=nothing

	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT * FROM btitle WHERE lid='" & lid&"' order by pid "&aaa
	Rs.Open Sql,conn,1,1
	page = Request("Page")
	Rs.PageSize = 10
	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%>

				<%=i+(page-1)*10%>.<a href='view.asp?id=<%=rs("id")%>&amp;lid=<%=rs("lid")%>&amp;bid=<%=id%>&amp;aid=<%=aid%>'><%=rs("name")%></a>(<%=utf8(rs("kid"))%>)<br/>
			<%
		Rs.MoveNext
	Next
    		if page>=Rs.PageCount then
        	'Response.Write ("[下一页]")        
   		 else
        	Response.Write("[<a href='title.asp?Action=list&amp;lid="&lid&"&amp;id="&id&"&amp;Page=" & (Page+1) & "'>下一页</a>]")
    		end if

    		if page<=1 then
        	'Response.Write ("[上一页]")
    		else        
		Response.Write("[<a href='title.asp?Action=list&amp;lid="&lid&"&amp;id="&id&"&amp;Page=" & (Page-1) & "'>上一页</a>]")
    		end if
		if Rs.PageCount>2 then%>
		<br/><input name="Page" format="*N" maxlength="50"/>
		<anchor>跳页
			<go href="title.asp?Action=list&amp;lid=<%=lid%>&amp;aid=<%=utf8(aid)%>&amp;id=<%=utf8(id)%>" method="post">
				<postfield name="Page" value="$(Page:n)" />
			</go>
		</anchor>
		<%end if%>
		<br/>
		<br/>共(<%=utf8(page)%>/<%=rs.pageCount%>)页<br/>
		<input type='text'  name='txt' size="10"/>
		<anchor>搜索
		<go method='post' href='search.asp?id=1'>
		<postfield name='txt' value='$(txt)'/>
		</go>
		</anchor>
		<br/><anchor>加入收藏夹
		<go method='post' href='mycol_do.asp'>
		<postfield name='name' value='<%=URLName%>'/>
		<postfield name='url' value='title.asp?Action=list&amp;id=<%=id%>&amp;lid=<%=lid%>&amp;page=<%=page%>'/>
		</go>
		</anchor>

	<%else%>
		暂无文章!<br/>
	<%end if
		Rs.close
		set rs=nothing
else
%>
<card id="index" title="出错啦"><p>出错啦!请不要非法提交参数.<br/>
<%end if%>
		<br/><a href="title.asp?id=<%=id%>">返回上一级</a>
<%end Function
%>
		<br/><a href="index.asp">返回首页</a><br/>
		</p>
</card>
</wml>
💿 文件大小 965 K
👤 上传用户 RSY527
📂 所属分类其他
🏷️ 相关标签

#ACCESS #ASP #WAP
⌨️ 快捷键说明

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