fsodiao.asp

ASP源码 / 影视音乐

<!--#include file="conn.asp"-->
<%
if session("admin")="" then
response.redirect "../Index_1.htm"
end if
%>
<title>在线电影 - 生成点击排行</title>
<%
on error resume next
sql2="select * from dhtml where id=1"                  
set rs2=server.createobject("adodb.recordset")                  
rs2.open sql2,connstr,1,1
dhtml=rs2("dhtml")
rs2.close
sql="select * from item"                  
set rs_item=server.createobject("adodb.recordset")                  
rs_item.open sql,connstr,1,1               
if rs_item.eof then                  
L_M=L_M&"<p align=center><font color=#FF0000>暂时没有分类！</font></p>"                                 
else
do while not rs_item.eof
rs_item.movenext
loop
L_M=L_M&"</td>"                                                                                                                                                            
L_M=L_M&"</tr>"
end if 
rs_item.close
%>    
<%
sql="select * from data where yesno='1' order by hits desc"               
set rs=server.createobject("adodb.recordset")               
rs.open sql,connstr,1,1
              
'###开始分页###
const maxperpage=30
mpage=rs.pagecount    
dim currentpage
rs.pagesize=maxperpage
currentpage=request.querystring("pageid")
if currentpage="" then
currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
	if currentpage > rs.pagecount then
	currentpage=rs.pagecount
	end if
end if

if not isnumeric(currentpage) then
currentpage=1
end if
dim totalput,n
totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*maxperpage
For i = 1 to rs.PageSize
if rs.EOF then     
Exit For 
end if
%>                 

<% 
L_B=L_B&"<tr>"                                           
L_B=L_B&"<td height=30 class=norightbuttonborder >&nbsp;<img border=0 src=../images/dian.gif>&nbsp;"&rs("name")&"&nbsp;</td>"                 
L_B=L_B&"<td height=30 class=norightbuttonborder  align=center>"

if rs("address1")<>"" then
 L_B=L_B&"<a href=../M_List/DoHao_Com_"&rs("id")&".Html target=_blank>[播放]</a>&nbsp;"
end if

L_B=L_B&"</td>"
theitem=rs("item")
sql1="select * from item where name='"&theitem&"'"              
set rs1=server.createobject("adodb.recordset")               
rs1.open sql1,connstr,1,1
ttid=rs1("id")
rs1.close                  
L_B=L_B&"<td height=30 align=center class=norightbuttonborder><a href=../M_Type/"&ttid&"_1.htm>"&rs("item")&"</a></td>"                 
L_B=L_B&"<td height=30 align=center class=norightbuttonborder>"&rs("type")&"</td>" 
L_B=L_B&"<td height=30 align=center class=norightbuttonborder>"&rs("hits")&"</td>"                
L_B=L_B&"<td height=30 align=center class=norightbuttonborder>"&rs("date")&"</td>"                 
L_B=L_B&"<td height=30 align=center class=norightbuttonborder><a href=http://www.dohao.com/movie/down.htm target=_blank>做好电影下载</a></td>"                 
L_B=L_B&"</tr>" 
%>
              
<%                                                                                                     
rs.MoveNext
next
rs.close
set rs=nothing
conn.close
set conn=nothing                                                              
%>
<%                            
L_B1=L_B1&"<tr>"               
L_B1=L_B1&"<td width=758 colspan=7 height=30 align=left>&nbsp;页数："&currentpage&"/"&n&"&nbsp;"                                                                                
   	 k=currentpage                                                                                                         
     if k<>1 then                                                                                   
L_B1=L_B1&"<a href=Diao_1.htm>首页</a>&nbsp;"                                                                                                         
L_B1=L_B1&"<a href=Diao_"&k-1&".htm>上一页</a>&nbsp;"                                                                                                         
   	 else                                                                                     
L_B1=L_B1&"首页&nbsp;上一页&nbsp;"                                                                                                         
   	end if                                                                                   
   	if k<>n then                                                                                                        
L_B1=L_B1&"<a href=Diao_"&k+1&".htm>下一页</a>&nbsp;"                                                                                                         
L_B1=L_B1&"<a href=Diao_"&n&".htm>尾页</a>&nbsp;"                                                                                                         
   	else                                                                                     
L_B1=L_B1&"下一页&nbsp;尾页&nbsp;"                                                                                                         
   	end if                                                                                    
L_B1=L_B1&"共收录<font color=#FF0000>"&totalput&"</font>部影片"
%>
<%                            
L_B=L_B&"<tr>"               
L_B=L_B&"<td width=758 colspan=7 height=30 align=left>&nbsp;页数："&currentpage&"/"&n&"&nbsp;"                                                                                
   	 k=currentpage                                                                                                         
     if k<>1 then                                                                                   
L_B=L_B&"<a href=Diao_1.htm>首页</a>&nbsp;"                                                                                                         
L_B=L_B&"<a href=Diao_"&k-1&".htm>上一页</a>&nbsp;"                                                                                                         
   	 else                                                                                     
L_B=L_B&"首页&nbsp;上一页&nbsp;"                                                                                                         
   	end if                                                                                   
   	if k<>n then                                                                                                        
L_B=L_B&"<a href=Diao_"&k+1&".htm>下一页</a>&nbsp;"                                                                                                         
L_B=L_B&"<a href=Diao_"&n&".htm>尾页</a>&nbsp;"                                                                                                         
   	else                                                                                     
L_B=L_B&"下一页&nbsp;尾页&nbsp;"                                                                                                         
   	end if                                                                                    
L_B=L_B&"共收录<font color=#FF0000>"&totalput&"</font>部影片"
%>
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
set type_d = fso.opentextfile(server.mappath("fsodiao.htm"),1,True)
pencat= type_d.ReadAll
pencat=replace(pencat,"L_M",L_M)
pencat=replace(pencat,"L_B1",L_B1)
pencat=replace(pencat,"L_B",L_B)
Set type_x = fso.CreateTextFile(server.mappath("../Diao_List/Diao_"&currentPage&".htm"))
type_x.WriteLine pencat
set fso = nothing
type_d.close
type_x.close
%>
<%
 response.write "<br>已生成/要生成分类:<font color=#FF0000>"&currentPage&"</font>/<font color=#FF0000><b>"&n&"</b></font>个，"
 if n=<currentPage then
 response.write "操作完成!"
 response.end
 else
 response.write "<br>已生成/此类分页:<font color=#FF0000>"&currentPage&"</font>/<font color=#FF0000><b>"&n&"</b></font>个，"
 response.write "<meta http-equiv=Refresh content='0; URL=fsotop.asp?pageid="&currentPage+1&"'>"
end if
%>