皮皮网
皮皮网
荒野 辅助 源码

【赚钱平台源码】【4KM2引擎源码】【源码编辑器积木块讲解大全】asp导航网源码_导航系统网站源码

时间:2024-12-26 15:53:30 分类:百科 编辑:区块链源码系统
1.谁知道ASP这代码什么意思

asp导航网源码_导航系统网站源码

谁知道ASP这代码什么意思

       <%

       dim page

       page=cint(request("page"))

       PerPageSize = News_PerPageSize

       '接收变量

       if page="" or clng(page)<1 then

       page=1

       end if

       '如接收为空或不合法把变量设置1

       if trim(request("id"))="" then

       sql="select * from news where articlelanguage=1 and dtitleid= order by articleid desc"

       '如接收到的导导航赚钱平台源码ID号为空SQL命令为上行

       else

       sql="select * from news where articlelanguage=1 and dtitleid="&trim(request("id"))&" order by articleid desc"

       ''如接收到的ID号不为空SQL命令是上行的

       end if

       aa=trim(request("id"))

       set rd=server.CreateObject("adodb.recordset")

       rd.open sql,conn,1,1 '执行上面的SQL命令

       rd.PageSize = PerPageSize

       '设置一页记录数量

       totalfilm=rd.recordcount

       pgnum=rd.Pagecount

       if clng(page) > pgnum then

       page=pgnum

       end if

       if pgnum>0 then

       rd.AbsolutePage=page

       end if

       if aa="" then

       title="所有新闻"

       else

       set zz=server.CreateObject("adodb.recordset")

       sql1="select * from dtitle where dtitleid="&aa

       zz.open sql1,conn,1,1

       title=zz("dtitle")

       end if

       %>

       .......自己看吧,太长了

本文地址:http://581.net.cn/news/53c93799009.html

copyright © 2016 powered by 皮皮网   sitemap