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

📄 gonggo.asp

📁 非常好的源码 非常好的源码 非常好的源码
💻 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>
<%
IF  Request.QueryString("Action")="view" Then
	call view
else
	call main
End IF
Function main
dim sql
%>
	<card id="index" title="最新公告">
		<p >
<%

	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT * FROM gonggo order by id desc"
	Rs.Open Sql,conn,1,1
	if not (rs.bof and rs.eof)  then 
	page = Request("Page")
	Rs.PageSize = 10
	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%>:<a href="gonggo.asp?Action=view&amp;page=<%=i%>"><%=utf8(Rs("name"))%></a><br/>
<%
		Rs.MoveNext
	Next
	else
		response.write "暂无公告!<br/>"

	end if
		Rs.close
		set rs=nothing

%>
		<a href="index.asp">返回首页</a><br/>
		</p>
</card>
</wml>
<%end Function


Function view
dim sql,id,page

	id = Request.QueryString("id")
		Set rs=Server.CreateObject("Adodb.Recordset")
		Sql = "select  * from gonggo order by id desc"
		rs.open sql,conn,1,1
	if not (rs.bof and rs.eof)  then 
		page = Request("Page")
		Rs.PageSize = 1
		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
%>
	<card id="index" title="查看公告">
		<p>
		标题:<%=utf8(rs("name"))%><br/>
		内容:<%=outHTM(rs("title"))%><br/>
		添加时间:<%=rs("time")%><br/>
<%	if page>=Rs.PageCount then
        	'Response.Write ("[下一条]")        
	else
        	Response.Write("[<a href='gonggo.asp?Action=view&amp;Page=" & (Page+1) & "'>下一条</a>]")
    	end if

    	if page<=1 then
       		'Response.Write ("[上一条]")
    	else        
		Response.Write("[<a href='gonggo.asp?Action=view&amp;Page=" & (Page-1) & "'>上一条</a>]")
    	end if
	if Rs.PageCount>2 then%>
		<br/><input name="Page" format="*N" maxlength="5"/>
		<anchor>跳页
			<go href="gonggo.asp?Action=view" method="post">
				<postfield name="Page" value="$(Page:n)" />
			</go>
		</anchor>
	<%end if
end if
%>
		<br/>共(<%=page%>/<%=rs.RecordCount%>)条记录<br/>
		<a href="gonggo.asp">返回公告列表</a><br/>
		<a href="index.asp">返回首页</a><br/>
		</p>
		</card>
</wml>
<%
		Rs.close
		set rs=nothing
end Function%>

⌨️ 快捷键说明

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