|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
无法实现跨操作系统的应用。当然这也是微软的理由之一,只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP,ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的;ASP完成上一篇,下一篇历程代码Rem==上一篇==
Rem======================================================
Rem=参数申明:
Rem=pid以后ID,prame:栏今朝辍(如一样平常web_news表,字段时通常是wn_**,prame就代表wn)
Rem=ptable(表前辍.如一样平常表名是:站点名_表名(shenzhe_news)ptable:就代表shenzhe)
Rem=申明:接纳下面定名法,可以使该历程到达通用
Rem=====================================================
FunctionGetPre(pid,prame,ptable)
id=prame&"_id"
title=prame&"_title"
table="city_"&ptable
url="show_"&ptable
sql="SELECTTOP1"&id&","&title&"FROM"&table&"WHERE"&id&"<"&pid&"ORDERBY"&id&"DESC"
setrs=Conn.Execute(sql)
Ifrs.eoforrs.bofThen
pre="上一篇:没有旧事了"
Else
pre="<ahref="&url&".asp?"&id&"="&rs(0)&">"&rs(1)&"</a>"
EndIf
GetPre=pre
EndFunction
Rem=下一篇
Rem=============
Rem=参数函意和上历程一样
Rem==========
FunctionGetNext(nid,nrame,ntable)
id=nrame&"_id"
title=nrame&"_title"
table="city_"&ntable
url="show_"&ntable
sql="SELECTTOP1"&id&","&title&"FROM"&table&"WHERE"&id&">"&nid&"ORDERBY"&id&""
setrs=Conn.Execute(sql)
Ifrs.eoforrs.bofThen
nnext="下一篇:没有旧事了"
Else
nnext="<ahref="&url&".asp?"&id&"="&rs(0)&">下一篇:"&rs(1)&"</a>"
EndIf
GetNext=nnext
EndFunction
完成代码:
偶数据库里有表:
city_activecity_datecity_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")%>下一篇
ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。 |
|