📄 index.asp
字号:
<%
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/"
softshow=getHTTPPage(url)
'start=Instr(her,"<TABLE cellSpacing=0 cellPadding=0 width=550 border=0>")
'over=Instr(her,"<TABLE cellSpacing=0 cellPadding=0 width=550 border=0>")+30
'softcode=mid(her,start,over-start)
'softshow=replace(her,softcode,"")
start=Instr(softshow,"<table border=0 cellpadding=0 cellspacing=0 height=222")
over=Instr(softshow,"<table border=0 cellpadding=0 cellspacing=1 width=""100%"">")-165
softcode=mid(softshow,start,over-start)
start=Instr(softshow,"<IMG height=20 src=""images/Newwuqu")+82
over=Instr(softshow,"<TD width=198 height=""14""><IMG height=20 src=""images/djmusicserach")-16
hot=mid(softshow,start,over-start)
'softshow=replace(softshow,"href=""","href=""pic.asp?id="&ht&"/")
softcode=replace(softcode,"dj?","dj.asp?")
hot=replace(hot,"dj?","dj.asp?")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0038)http://www.downall.net/sort.asp?classid=1 -->
<!--#include file="top.asp"-->
<HTML><HEAD><TITLE>极限DJ街区 www.downall.net DJ 迪吧 迪厅现场录象 现场舞曲 中文舞曲 英文舞曲 流行音乐 flash 舞曲 mtv 街舞 DJ舞曲 免费电影 流行歌曲</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="images/css.css" rel=stylesheet>
<META content="MSHTML 6.00.2600.0" name=GENERATOR>
<META content="Insert Description Here" name=description>
<META content="Insert Keywords Here" name=keywords>
<STYLE type=text/css></STYLE>
<STYLE>BODY {
CURSOR: url('../01.ani')
}
</STYLE>
<SCRIPT language=javascript>
<!--
function openurl(tjbh,width,height,top,left){
window.open('down.asp?tjbh='+tjbh,'statistic','width='+width+',height='+height+',top='+top+',left='+left+',resizable=0,scrollbars=yes');
}
//-->
</SCRIPT>
<SCRIPT language=javascript>
<!--
function Listen(ListenURL)
{
var Listen = window.open(ListenURL,"Listen","scrollbars=no,width=488,height=433,top=40,left=150");
return false;
}
function Listci(ListenURL)
{
var Listci = window.open(ListenURL,"listci","scrollbars=yes,width=488,height=433,top=40,left=150");
return false;
}
function Listhelp(ListenURL)
{
var Listhelp = window.open(ListenURL,"listhelp","scrollbars=yes,width=488,height=433,top=40,left=150");
return false;
}
function popwin2(id)
{ window.open("review.asp?id="+id,"","height=433,width=482,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
//-->
</SCRIPT>
</HEAD>
<BODY text=#ffffff bgColor=#162f43 leftMargin=0 topMargin=0>
<CENTER>
<META content="Microsoft FrontPage 6.0" name=GENERATOR>
<META content=FrontPage.Editor.Document name=ProgId><LINK
href="images/css.css" rel=stylesheet>
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<META content="Insert Description Here" name=description>
<META content="Insert Keywords Here" name=keywords>
<STYLE>BODY {
SCROLLBAR-FACE-COLOR: #99ccff; SCROLLBAR-HIGHLIGHT-COLOR: #99ccff; SCROLLBAR-SHADOW-COLOR: #99ccff; SCROLLBAR-3DLIGHT-COLOR: #fcfcfc; SCROLLBAR-ARROW-COLOR: #000000; SCROLLBAR-TRACK-COLOR: #ffffff; SCROLLBAR-DARKSHADOW-COLOR: #48486c; SCROLLBAR-BASE-COLOR: #99ccff
}
</STYLE>
<STYLE type=text/css></STYLE>
<SCRIPT language=javascript>
kstatus();
function kstatus(){
self.status="欢迎光临[极限DJ街区]请把本站网址：：：www.downall.net ：：：收藏到你 Q Q 的资料里，谢谢！";
setTimeout("kstatus()",0);
}
</SCRIPT>
<SCRIPT language=JavaScript>
self.moveTo(0,0)
self.resizeTo(screen.availWidth,screen.availHeight)
</SCRIPT>
<DIV align=center>
<CENTER></CENTER></DIV>
<TABLE cellSpacing=0 cellPadding=0 width=770 align=center border=0>
<TR>
<TD vAlign=top height=606>
<TABLE cellSpacing=0 cellPadding=0 width=770 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top height=10><IMG height=20
src="images/topline.gif" width=770></TD></TR></TBODY></TABLE>
<CENTER></CENTER>
<TABLE height=570 cellSpacing=0 cellPadding=0 width=770 align=center
border=0><TBODY>
<TR>
<TD vAlign=top align=right width=212 bgColor=#02547d height=0>
<DIV align=left>
<TABLE cellSpacing=1 cellPadding=0 width=210 border=0>
<TBODY>
<TR>
<TD width=397><IMG src="images/djmusicserach.gif"
border=0></TD>
</TR>
<TR>
<TD width=397>
<DIV align=center>
<TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=0
cellPadding=0 width="100%" border=0>
<FORM name=myform action=search.asp method=post><TBODY>
<TR>
<TD align=middle>
<INPUT class=textfield
style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; FONT-FAMILY: Arial; BACKGROUND-COLOR: #ff7979"
maxLength=50 size=10 name=keyword>
<INPUT class=botton style="HEIGHT: 21px" type=submit value=搜索 name=Submit22>
</TD>
</TR>
</FORM></TBODY>
</TABLE>
</DIV>
</TD>
</TR>
<TR>
<TD width=397><IMG src="images/classtop10.gif"
border=0></TD>
</TR>
<TR>
<TD width=397 height=48>
<DIV align=center> <%=hot%></DIV>
</TD>
</TR>
<TR>
<TD width=198 height=21 background="images/hy.gif"></TD>
</TR>
<TR>
<TD width=397 height=165>
<DIV align=center> </DIV>
</TD>
</TR>
<TR>
<TD width=397 height=1><img height=20 src="images/sj.jpg"
width=206 border=0></TD>
</TR>
<TR>
<TD width=397 height=178>
<DIV align=center> </DIV>
</TD>
</TR>
<TR>
<TD width=397 height=1><IMG height=20
src="images/b_005.gif" width=206
border=0></TD>
</TR>
</TBODY>
</TABLE>
</DIV>
</TD>
<TD vAlign=top width=558 height=300>
<TABLE height=172 cellSpacing=0 cellPadding=0 width=546 align=right
border=0><TBODY>
<TR>
<TD vAlign=top width=546 colSpan=2 height=2>
<DIV align=center>
<DIV align=right>
<TABLE height=6 cellPadding=2 width="100%" border=0>
<TBODY>
<TR>
<TD width="100%" height="14">你当前所在位置 -> <A
href="index.asp">DJ音乐首页</A> -> <A
href="sort.asp?classid=1">现场舞曲</A> </TD>
<TD width="21%" height=14>
<DIV align=right> </DIV>
</TD>
<TD width="21%" height=14>
<DIV align=right> </DIV>
</TD>
<TD width="57%" height=14>
<DIV align=right> </DIV>
</TD>
</TR>
</TBODY>
</TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%=softcode%> </td>
</tr>
</table>
</div>
</div>
</TR></TBODY>
</TABLE>
</TD></TBODY>
</TABLE>
</TD></TR>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=770 align=center border=0>
<TBODY>
<TR>
<TD vAlign=center align=middle width=770 background=images/downlist.gif
height=70>
<TABLE height=70 cellSpacing=0 cellPadding=0 width=770 border=0>
<TBODY>
<TR>
<TD align=middle width="211"> </TD>
<TD width=559>
<table cellspacing=0 cellpadding=0 width=558 border=0>
<tbody>
<tr>
<td height=38>
<div align=center><iframe marginwidth=0 marginheight=0
src="images/160x2503.htm" frameborder=0 width=0
scrolling=no height=0></iframe>版权所有：→极限DJ街区← 建议使用800*600分辨率浏览</div>
<div align=center>本站由<b>DownAll</b>制作维护 (C) 2002-2003 QQ:48937222
E-mail:<a href="mailto:service@downall.net">service@downall.net</a></div>
</td>
<td width=46 height=59>
<div align=center> </div>
</td>
</tr>
</tbody>
</table>
</TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE><TR><TD>
</TD>
</TR>
</CENTER>
</BODY></HTML>
<%
function getHTTPPage(url)
on error resume next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
Function bytes2BSTR(vIn)
dim strReturn
dim i1,ThisCharCode,NextCharCode
strReturn = ""
For i1 = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i1,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i1+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i1 = i1 + 1
End If
Next
bytes2BSTR = strReturn
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -