千年免费电影系统 V3.0版 在程序上借鉴了很多优秀电影系统的功能

源代码在线查看: userlook.asp

软件大小: 2720 K
上传用户: liyusheng1983
关键词: 3.0 电影
下载地址: 免注册下载 普通下载 VIP

相关代码

				
				
				
				
				
				
				3 then
				    response.write "您的操作权限不够!"
				    response.end
				end if
				%>
				
				
				
				
				
				
				
				
				
				
				
				
				
				
				
				
								   MaxPerPage=20
				   dim totalPut   
				   dim CurrentPage
				   dim TotalPages
				   dim i,j
				
				   dim typename
				   
				   typename=""
				   if not isempty(request("page")) then
				      currentPage=cint(request("page"))
				   else
				      currentPage=1
				   end if
				   dim sql
				   dim rs
				   dim rstype
				
				   if request("page")="" then
				   page=0
				   end if
				%> 
								if request("userid123")="" then  
				 sql="select * from tolook order by id desc"
				else  
				 sql="select * from tolook where userid like '%"&request("userid123")&"%' order by id desc"
				end if
				Set rs= Server.CreateObject("ADODB.Recordset")
				rs.open sql,conn,1,1
				  if rs.eof and rs.bof then
				       response.write " 还 没 有 任 何 软 件"
				   else
					  totalPut=rs.recordcount
				      totalPut=rs.recordcount
				      if currentpage				          currentpage=1
				      end if
				      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
				           showpage totalput,MaxPerPage,"userlook.asp"
				            showContent
				            showpage totalput,MaxPerPage,"userlook.asp"
				       else
				          if (currentPage-1)*MaxPerPage				            rs.move  (currentPage-1)*MaxPerPage
				            dim bookmark
				            bookmark=rs.bookmark
				           showpage totalput,MaxPerPage,"userlook.asp"
				            showContent
				             showpage totalput,MaxPerPage,"userlook.asp"
				        else
					        currentPage=1
				           showpage totalput,MaxPerPage,"userlook.asp"
				           showContent
				           showpage totalput,MaxPerPage,"userlook.asp"
					      end if
					   end if
				   end if
					        
				
				  
				
				   sub showContent
				       dim i
					   i=0
				
				  %>
				
				  会员帐号:
				  
				
				
				删除已超过一个月的记录 删除已超过一个星期的记录 
				
				     
				       会员帐号
				      会员等级
				      会员IP
				      观看方式
				      观看时间
				      观看电影
				    
				     
				     
				        
				        
				       
				        				oklook="普通会员"
				elseif rs("oklook")=2 then
				oklook="白银会员"
				elseif rs("oklook")=3 then
				oklook="黄金会员"
				elseif rs("oklook")=4 then
				oklook="钻石会员"
				end if 
				%>
				       
				        
				       
				       
				    
				      					      if i>=MaxPerPage then exit do
					      rs.movenext
					   loop
						  %>
				
				  
				
				  
				        
				        				   end sub 
				
				function showpage(totalnumber,maxperpage,filename)
				  dim n
				  if totalnumber mod maxperpage=0 then
				     n= totalnumber \ maxperpage
				  else
				     n= totalnumber \ maxperpage+1
				  end if
				  response.write ""
				    if CurrentPage				    response.write "首页 上一页 "
				  else
				    response.write "首页 "
				    response.write "上一页 "
				  end if
				  if n-currentpage				    response.write "下一页 尾页"
				  else
				    response.write ""
				    response.write "下一页 尾页"
				  end if
				   response.write " 页次:"&CurrentPage&"/"&n&"页 "
				    response.write " 共"&totalnumber&"个电影 "&maxperpage&"个电影/页 "
				   response.write " 转到:"
				   response.write " "
				       
				end function
				    
				    rs.close
				    set rs=nothing  
				   conn.close
				   set conn=nothing
				  %>    
				  
				
				
				
				
							

相关资源