上一篇,下一篇过程代码_应用技巧

复制代码 代码如下:

Rem==上一篇== 
Rem================================================================ 
Rem= 参数说明: 
Rem= pid当前ID,prame:栏目前辍(如一般web_news表,字段时一般为wn_**,prame就代表wn) 
Rem= ptable(表前辍.如一般表名是:站点名_表名(shenzhe_news) ptable:就代表shenzhe) 
Rem= 说明:采用上面命名法,可使该过程达到通用 
Rem============================================================= 

Function GetPre(pid,prame,ptable) 
    id = prame&"_id" 
title = prame&"_title" 
table = "city_"&ptable 
url = "show_"&ptable 
sql = "Select TOP 1 "&id&","&title&" FROM "&table&" Where "&id&"<"&pid&" orDER BY "&id&" DESC" 
set rs = Conn.Execute(sql) 
If rs.eof or rs.bof Then 
     pre = "上一篇:没有新闻了" 
Else 
     pre = "<a href="&url&".asp?"&id&"="&rs(0)&">"&rs(1)&"</a>" 
End If 
GetPre = pre 
End Function 

Rem = 下一篇 
Rem============= 
Rem= 参数函意和上过程一样 
Rem========== 
Function GetNext(nid,nrame,ntable) 
    id = nrame&"_id" 
title = nrame&"_title" 
table = "city_"&ntable 
url = "show_"&ntable 
sql = "Select TOP 1 "&id&","&title&" FROM "&table&" Where "&id&">"&nid&" orDER BY "&id&" " 
set rs = Conn.Execute(sql) 
If rs.eof or rs.bof Then 
     nnext = "下一篇:没有新闻了" 
Else 
     nnext = "<a href="&url&".asp?"&id&"="&rs(0)&">下一篇:"&rs(1)&"</a>" 
End If 
GetNext = nnext 
End Function 

实现代码: 
偶数据库里有表: 
city_active  city_date  city_note 
city_active主要字段有: ca_id,cd_title 
city_date主要字段有: cd_id,cd_title 
city_note主要字段有: cn_id, cn_title 

这样引用就可: 
在show_note.asp?cn_id=4里引用上一篇下一篇 
<%=GetPre(cn_id,"cn","note")%> ' 上一篇 
<%=GetNext(cn_id,"cn","note")%> ' 下一篇 

时间： 2025-01-19 01:54:39

上一篇,下一篇过程代码_应用技巧的相关文章

c#多图片上传并生成缩略图的实例代码_实用技巧

前台代码: 复制代码 代码如下:  <%@ Page Language="C#" AutoEventWireup="true" CodeFile="upload.aspx.cs" Inherits="upload" %>  <!DOCTYPE html>  <html xmlns="http://www.w3.org/1999/xhtml"> <head runat

用Html5与Asp.net MVC上传多个文件的实现代码_实用技巧

复制代码 代码如下: <form action="/Home/Upload" enctype="multipart/form-data" id="form2" method="post"> <input type="file" name="fileToUpload" id="fileToUpload2" multiple="multiple

asp.net 上传下载输出二进制流实现代码_实用技巧

复制代码 代码如下: using System; using System.Collections; using System.Configuration; using System.Data; using System.Linq; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.HtmlControls; using System.Web.UI.WebControls;

C#实现Web文件上传的两种方法实例代码_实用技巧

1. C#实现Web文件的上传 使用C#如何实现文件上传的功能呢?下面笔者简要介绍一下. 首先,在你的Visual C# web project 中增加一个上传用的Web Form,为了要上传文件,需要在ToolBox中选择HTML类的File Field控件,将此控件加入到Web Form中,然而此时该控件还不是服务端控件,我们需要为它加上如下一段代码:<input id=PreviousFile1 type=file size=49 runat="server">,这样

获取目录下所有文件名的代码_相关技巧

一:获取指定文件夹的文件 复制代码 代码如下: procedure searchfile(path:string);//注意,path后面要有'\'; var SearchRec:TSearchRec; found:integer; begin found:=FindFirst(path+'*.*',faAnyFile,SearchRec); while found=0 do begin if (SearchRec.Name<>'.') and (SearchRec.Name<>'

asp.net下cookies操作完美代码_实用技巧

复制代码 代码如下: using System; using System.Web; namespace Moosoft.OA.Public { /// <summary> /// Cookie帮助类 /// </summary> public class CookiesHelper { #region 获取Cookie /// <summary> /// 获得Cookie的值 /// </summary> /// <param name="

asp.net DropDownList 三级联动下拉菜单实现代码_实用技巧

复制代码 代码如下: if (!IsPostBack) { //一级分类列表 this.DropDownList1.DataSource = dsbb.SelectSubjct1(); this.DropDownList1.DataTextField = "cName"; this.DropDownList1.DataValueField = "Ccode"; this.DropDownList1.DataBind(); this.DropDownList1.Ite

在dropDownList中实现既能输入一个新值又能实现下拉选的代码_实用技巧

aspx: 复制代码 代码如下: <div id="selDiv" style=" z-index:100; visibility:visible; clip:rect(0px 110px 80px 92px); position:absolute"><%--left:279px; top:167px"--%> <asp:DropDownList ID="workerno_list" runat="

ASP实现上一篇,下一篇过程代码

ASP实现上一篇,下一篇过程代码 Rem==上一篇== Rem====================================================== Rem= 参数说明: Rem= pid当前ID,prame:栏目前辍(如一般web_news表,字段时一般为wn_**,prame就代表wn) Rem= ptable(表前辍.如一般表名是:站点名_表名(shenzhe_news) ptable:就代表shenzhe) Rem= 说明:采用上面命名法,可使该过程达到通用 Rem