<!-- #Include File="Skin.asp" -->
<!-- #Include File="Cls_Public.asp" -->
<!-- #Include File="Cls_Search.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

Dim FvStr,ArrayList,FvCID,FvID,FvKey
FvCID=Trim(Request.Querystring("cid"))
FvID=Trim(Request.Querystring("vid"))
FvStr=Trim(Request.Querystring("FvStr"))
FvKey=Trim(Request.Querystring("key"))
ArrayList = Split(FvStr, ",")
For i=0 to 6
    If ArrayList(i)="" Or IsNumeric(ArrayList(i))=False Then
       Response.write "document.write (""非法调用!"");"
       Response.End
    End If
Next
If FvCID="" Or FvID="" Or IsNumeric(FvCID)=False Or IsNumeric(FvID)=False Then
    Response.write "document.write (""非法调用!"");"
    Response.End
End If
ChannelIDs=FvCID
Call Channel_Loader()
FvStr=Html.LoadRelateList(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), FvCID,FvID,FvKey)
FvStr=Replace(Replace(FvStr,vbCrlf,"\n"),Chr(34),"\" & Chr(34))
Response.write "document.write (""" & FvStr & """);"
%>
