<% function zwgklb(tzwlb) Set RSx = Server.CreateObject("ADODB.RecordSet") on error resume next sql="SELECT * FROM kpindex where id="& tzwlb Rsx.open sql,conn,0,2 if rsx.eof and rsx.bof then else ztlb=rsx("name") end if zwgklb=ztlb rsx.close set rsx=nothing end function 'sid=11 if isnull(request("sid")) or request("sid")="" or isempty(request("sid")) or int(request("sid"))=0 then sid=11 else sid=request("sid") end if ' response.write request("sid") dim CurrentPage dim TotalPages dim recnum 'dim sql recnum=5 MaxPerPage=int(recnum) if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if %> 五分快3计划网
廣東省地震信息網
<%call wdim2()%>
 
視頻類別
 
 
 
   
內容
<% zwlb=zwgklb(sid) if isnull(zwlb) then response.write "
沒有此類數據
" ' response.end else %> <% dim ors Set oRS = Server.CreateObject("ADODB.RecordSet") sql = "select * from kpfilm where lb="&sid&" order by sj desc" sql1="select count(*) from kpfilm where lb="&sid ors.open sql1,conn,0,2 totalput=ors(0) ors.close ors.Open sql, Conn, 0, 2 '分頁-------------------------------------------- '數據庫中totalput if currentpage<1 then currentpage=1 end if '統計總頁數currentpage if ((currentpage-1)* MaxPerPage>totalput) then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if (currentPage=1) then showContent else if (currentPage-1)*MaxPerPage40 then nr1=left(nr,40)&"..." if pic="" or isnull(pic) then spic="/kepuguan/images/logo.gif" else spic="/kepuguan/nrpic/film/"&Pic end if surl=int(instr(fname,"http")) if surl<>0 then strname="" strpic="" else strname="" strpic="" end if strxg=strname &""&name &"" sfname="/gdsinvideo/"&fname&"&LogoText=廣東省地震科普館&BufferTime=2&image="&spic strpic1=strpic & "" %> <% if inum>=MaxPerPage then exit do oRs.movenext loop end sub function showhead(totalnumber,maxperpage) '求出當總共的頁數 'dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "
" '顯示頁數鏈接的條件 if CurrentPage<2 then response.write "首頁 上一頁 " else response.write "首頁 " response.write "上一頁 " end if if n-currentpage<1 then response.write "下一頁 尾頁" else response.write "下一頁 " response.write "尾頁" end if response.write " 頁次:"& CurrentPage &"/"& n &"頁" response.write " 共"& totalnumber &"條紀錄 "& maxperpage &"條/頁" 'response.write " 轉到:" 'response.write "
" response.write "" end function %>
<%=zwlb%>
<%=strpic1%>
名稱:
<%=strxg%>
時長:
<%=flong%>分鐘
時間:
<%=sj%>
播放:
<%=yd%>
介紹:
<%=nr1%>
 
  <% showhead totalput,MaxPerPage %>
<% end if %>
 
 
<% rs.close set rs=nothing conn.close set conn=nothing %> 安徽快3计划网 北京时时在线开奖 福州麻将app哪个好 时时彩 骗局 福建11选5开奖结果今天 即时指数足球比分 雪缘园足球即时指数 360彩票网站是否可靠 彩票33 东北麻将打法 访问出错或页面为空 11选5技巧稳赚靠谱儿吗 北京赛车pk10玩法