<% Dim JM_S,JM_ID,JM_N,JM_M Server_Vid=Request.ServerVariables("QUERY_STRING") ID=Replace(Replace(Server_Vid,"/",""),".Html","") SplitID=Split(ID,"-") IF UBound(SplitID)<3 Then:Call Mb("请勿传递非法参数!","/",1):End IF JM_S=SplitID(0) JM_ID=SplitID(1) '编号 JM_N=SplitID(2) JM_M=SplitID(3) IF Not Isinteger(JM_ID) Then:Call Mb("请勿传递非法参数!","/",1):Response.End():End IF IF Not Isinteger(JM_S) Then:Call Mb("请勿传递非法参数!","/",1):Response.End():End IF IF Not Isinteger(JM_N) Then:Call Mb("请勿传递非法参数!","/",1):Response.End():End IF IF Not Isinteger(JM_M) Then:Call Mb("请勿传递非法参数!","/",1):Response.End():End IF SYC_CMS_ClassID = WebLoad.Video_PID Set WebLoad=New SYC_Load WebPlay = WebLoad.GetData("Open.Html",JM_ID,JM_S,JM_N,JM_M) WebLoad.close Set WebLoad=Nothing Set WebSkin=New SYC_Skin WebText = WebSkin.GetWebSkin(WebPlay,1) Response.Write WebText WebSkin.Close Set WebSkin=Nothing Response.End() %>