vid_data.asp

来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 98 行

<!--#include file="mdb.asp"-->
<!--#Include File="Check_hx.asp"-->
<!--#include file="vid_path.asp"-->
<!--#include file="inc/md5.asp"-->
<%
'****************************************************
' Hxcms Ver7.5       Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
if request.cookies(""&request("id")&"")="" then response.end
   response.cookies(""&request("id")&"")=""
userip=Request.ServerVariables("REMOTE_ADDR")
mmm=md5(replace(date(),"-","")&userip)
From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))
Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(From_url,8,len(Serv_url)) <> Serv_url then
response.write "非法链接！" '防止盗链
response.end
end if
dim UserAgent
UserAgent=Trim(lcase(Request.Servervariables("HTTP_USER_AGENT")))
If Instr(UserAgent,"teleport")>0 or Instr(UserAgent,"netant")>0 or Instr(UserAgent,"flashget")>0 or Instr(UserAgent,"webzip")>0 or Instr(UserAgent,"offline")>0 or Instr(UserAgent,"googlebot")>0 or Instr(UserAgent,"frontpage")>0 Then
response.redirect "index.asp"
response.end
end if
if mmm=request("md5") then
Response.Write "START();" & vbCrLf
Response.ContentType = "application/x-javascript"  
Response.Expires = 0  
Response.Expiresabsolute = Now() - 1  
Response.AddHeader "pragma","no-cache"  
Response.AddHeader "cache-control","private"  
Response.CacheControl = "no-cache"  

Function CheckStr(Str)
	If Trim(Str)="" Or IsNull(str) Then Exit Function
	Checkstr=Replace(Trim(Str),"'","''")
End Function

Dim MusicID,MusicArray,MusicNum,vidpath,vidurl,vid_name,vid_no
MusicID=CheckStr(request.QueryString("id"))
'创建连播排列顺序
MusicArray=Split(MusicID, ",")
MusicNum = UBound(MusicArray)
if MusicID<>"" then
set rs=server.createobject("adodb.recordset")
For i=0 To MusicNum
	sql="select * from vidurl where id="&MusicArray(i)
	rs.open sql,conn,1,1
	If not rs.eof Then
        vidpath=rs("path")
If vidpath=0 Then
   vidurl=rs("url")
   vid_name=rs("title")
   vid_no=rs("no")
else
   If vidpath="" or IsNull(vidpath) Then
    vidpath=1
   End If
    Select Case vidpath
        Case 1
	        vid_path=v_path1
	Case 2
		vid_path=v_path2
	Case 3
		vid_path=v_path3
	Case 4
		vid_path=v_path4
	Case 5
		vid_path=v_path5
	Case else
		vid_path=v_path1
    End Select
   vidurl=vid_path&rs("url")
   vid_name=rs("title")
   vid_no=rs("no")
  End If
Response.Write "DATA("""&vid_name&"第"&vid_no&"集"","""&vidurl&""");" & vbCrLf
End If
rs.close
Next	
end if
set rs=nothing
conn.close
set conn=nothing
Response.Write "END();" & vbCrLf
else
   Response.write "错误，MD5加密验证失败！"
end if
'****************************************************
' Hxcms Ver7.5       Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
%>