go.asp

DJ音乐小偷免维护版

<%
dim wstr,fldr,url,softcode,ht,softshow,her,hot

on error resume next

ht = Request.ServerVariables("QUERY_STRING")
'ht = Right(ht,Len(ht)-3)

url="http://www.djkk.com/url.asp?"&ht
	'her=getHTTPPage(url)
	'start=Instr(her,"<script language=""javascript"">")
	'over=Instr(her,"function Listen(ListenURL)")
	'softcode=mid(her,start,over-start)
	'softshow=replace(her,softcode,"")
	'start=Instr(softshow,"<table border=""1""")
	'over=Instr(softshow,"<script language=""javascript"">")
	'softshow=mid(softshow,start,over-start)	

	'start=Instr(her,"<tr><td><img border=0 src=images/jian.gif>")-27
	'over=Instr(her,"<TD width=198 height=""26"">")-80
	'hot=mid(her,start,over-start)
	
	'softshow=replace(softshow,"href=""","href=""pic.asp?id="&ht&"/")
	'softshow=replace(softshow,".jpg"" target",".htm"" target")	

Response.write "<object classid='clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA' id=Player name=player width='468' height='60'><param name='_ExtentX' value='12383'><param name='_ExtentY' value='1667'><param name='AUTOSTART' value='1'><param name='SHUFFLE' value='0'><param name='PREFETCH' value='0'><param name='NOLABELS' value='0'><param name='SRC' value="&url&"><param name='CONTROLS' value='StatusBar,ControlPanel'><param name='LOOP' value='0'><param name='NUMLOOP' value='0'><param name='CENTER' value='0'><param name='MAINTAINASPECT' value='0'><param name='BACKGROUNDCOLOR' value='#000000'><embed src="&url&" width='468' autostart='true' height='60'></embed></object>"
'Response.Write "<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA id=RAOCX width=500 height=350><PARAM NAME=SRC VALUE="&dress&"><PARAM NAME=CONSOLE VALUE=Clip1><PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALUE=true></OBJECT><br><OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=500><PARAM NAME=SRC VALUE="&url&"><PARAM NAME=AUTOSTART VALUE=-1><PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip1></OBJECT>"
%>