皮皮网

1.谁知道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"

       '如接收到的导导航apm2.8 源码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

       %>

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