<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% const recpage=31 dim i,currentpage,id,sql,allrec,totalpage,csql,ftitle if request.QueryString("id")<>"" then id=Cint(request.QueryString("id")) else id=1 end if if(id<>1) then set rs=conn.execute("select title from t_catalog where id="&id) if not rs.eof then ftitle=rs(0) end if rs.close set rs=nothing else ftitle="新闻动态" end if if not isempty(request.QueryString("page")) then currentpage=Cint(request.QueryString("page")) else currentpage=1 end if %> <%=ftitle%>-<%=SiteName%>
<% call connclose() %>