function.asp
来自「多用户管理分权限发布、管理软件信息； 自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 372 行
ASP
372 行
<%
Function getHTTPPage(url)
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
'Set Http=Server.CreateObject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
End function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
function obRegExp(str,page)
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = False
objRegExp.Pattern = str
strs=trim(page)
Set Matches =objRegExp.Execute(strs)
For Each Match in Matches
RetStr = Match.Value
Next
obRegExp=RetStr
Set objRegExp = nothing
end function
dim StealmUrl,StealUrl,StealUrls
StealUrl = "http://www.5474.com/"
sub changes()
change "",""
change "",""
change "",""
end sub
sub change(OldStr,newStr)
page=replace(page,OldStr,newStr)
End sub
sub top(str)
%>
<html>
<head>
<STYLE>
BODY {
SCROLLBAR-FACE-COLOR: #fcfcfc;
SCROLLBAR-HIGHLIGHT-COLOR: #6c6c90;
SCROLLBAR-SHADOW-COLOR: #fcfcfc;
SCROLLBAR-3DLIGHT-COLOR: #fcfcfc;
SCROLLBAR-ARROW-COLOR: #240024;
SCROLLBAR-TRACK-COLOR: #fcfcfc;
SCROLLBAR-DARKSHADOW-COLOR: #48486c;
SCROLLBAR-BASE-COLOR: #fcfcfc
}
</STYLE>
<title>
<%
if str="首页" then
response.write sitename&"---可听,可看,最新最全的视听娱乐地带!提供完全免费的音乐"
else
response.write sitename&" >> "&str
end if
%>
</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="华人男歌手 华人女歌手 乐队组合 日韩歌手 欧美歌手 原声大碟 视频MTV 热门单曲 最新专辑">
<meta name="description" content="华人男歌手 华人女歌手 乐队组合 日韩歌手 欧美歌手 原声大碟 视频MTV 热门单曲 最新专辑">
<link rel=stylesheet href=images/css.css type='text/css'>
</head>
<SCRIPT language=JavaScript>
document.oncontextmenu=new Function("event.returnValue=false;");
document.onselectstart=new Function("event.returnValue=false;");
</SCRIPT>
<!--修改开始 ------->
<SCRIPT LANGUAGE="JavaScript">
<!-- Hide
function killErrors() {
return true;
}
window.onerror = killErrors;
//容错
// -->
</SCRIPT>
<!--修改结束 ------->
<body onmouseover="self.status='请记住本站网址：http://www.CD555.com------[本站万首流行歌曲免费在线视听]';return true" topmargin="2" leftmargin="2">
<div align="center">
<center>
<table border="0" width="100%" cellspacing="1" cellpadding="0">
<tr>
<td width="100%" valign="middle" align="center"><iframe marginWidth=0 marginHeight=0 src="musicn4.htm" frameBorder=0 width=774 scrolling=no height=82></iframe></td>
</tr>
</table>
</center>
</div>
<table align=center width=760 border=0 cellpadding=0 cellspacing=0 background=images/right_top_01.gif><tr>
<td width=90 height=25 align=center background=images/right_top_02.gif>
<img src=images/icon4.gif width=16 height=16> <a href=index.asp class=cc><img border=0 src=images/zy.gif width=34 height=18></a></td><td>
<a href=stype.asp?id=35 class=cc>华人男歌手</a>
<a href=stype.asp?id=36 class=cc>华人女歌手</a>
<a href=stype.asp?id=37 class=cc>乐队组合</a>
<a href=stype.asp?id=38 class=cc>日韩歌手</a>
<a href=stype.asp?id=39 class=cc>欧美歌手</a>
<a href=stype.asp?id=40 class=cc>原声大碟</a>
<a href=mtv1.asp class=cc>视频MTV</a>
<a href=HOT_music.asp class=cc>热门单曲</a>
<a href=newzj.asp class=cc>最新专辑</a>
<img src="images/news.gif" width="28" height="11"></td></tr></table>
<table width=760 align=center border=0 cellpadding=0 cellspacing=0 background=images/right_top_06.gif><tr>
<td width=2 background=images/right_top_05.gif></td>
<td width=48 align=center><img src=images/search00.gif width=32 height=24></td><td>
<TABLE width=98% border=0 cellPadding=0 cellSpacing=3>
<FORM name=search action=search1.asp method=post target=_blank><TBODY><TR>
<TD width=40% height=25 align=center>
<INPUT name=keyword class=formbg1 id=keyword onclick="if(this.value==this.defaultValue)this.value='';" size="32" height=14 maxLength=20 style="font-size:12px"> </TD><TD width=10%>
<select name=stype style=font-size:12px>
<option value=Music selected>歌曲查找</option>
<option value=Singer>音乐歌手</option>
<option value=Special>音乐专辑</option>
<option value=MTV>MTV名称</option>
<option value=MTVsinger>MTV歌手</option></select>
</tD><TD width=14% align=center><input type=image name=search src="images/seatch11.gif" width=65 height=22>
</TD><TD width=30% align="left"><IFRAME border=0 name=mobile_roll marginWidth=0 marginHeight=0 src="ggao1.htm"frameBorder=No width=220 scrolling=no height=17></IFRAME></font></a></td></TD></TR></FORM></TABLE>
</td><td width=2 background=images/right_top_07.gif>
</td></tr>
<tr><td colspan="4" background=images/right_top_08.gif height=1><!--MopUnion Begin:--><IFRAME id="p67" MARGINHEIGHT=0 MARGINWIDTH=0 FRAMEBORDER=0 WIDTH=760 HEIGHT=99 SCROLLING=NO SRC="http://union.mop.com/ushow.jsp?idea=67&user=1073"></IFRAME><!--MopUnion End--></td></tr>
</table>
<div style='display:none'></div>
<%
end sub
sub foot()
%>
<body leftmargin="2" topmargin="2">
<div align="center">
<center>
<table width="773" height="63">
<tr>
<td valign=middle align=left width=410 height="21"> <font color="#046599"> </font><img height="36" src="imagesp/bottom_title.gif" width="104" border="0"><a href="http://www.onlinedown.net/soft/22828.htm" target="_blank"><img height="36" src="imagesp/down_winplayer9.gif" width="165" border="0"></a><a href="http://www.onlinedown.net/soft/16622.htm" target="_blank"><img height="36" src="imagesp/down_real.gif" width="120" border="0"></a></td>
<td valign=middle align=left width=353 height="21"> <font color="#000080"><a style="behavior: url(#default#homepage)">
</a></font> <a class="bai1" style="BEHAVIOR: url(#default#homepage)" onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.CD555.com/');return(false);" href="#"><font color="#000080">将CD555设为首页</font></a>
<a href="#" onclick="javascript:window.external.AddFavorite('http://www.CD555.com/', 'CD音乐网 - CD555.COM')" target="_self"><font color="#000080">加入收藏</font></a><font color="#000080"> </font> <script src="count/online.asp"></script></td>
</tr>
<tr>
<td valign=middle align=center width=765 height="42" colspan="2" background="imagesp/boot.gif">
<font color="#000080"> </font>
<a href="wenti.htm" target="_blank"><font color="#000080">试听帮助</font></a>
<font color="#000080"> - <a href="mailto:chengjia1998@163.com"></a></font> <a href="mailto:chengjia1998@163.com"><font color="#000080">广告服务</font></a><font color="#000080"> - <a href="mailto:chengjia1998@163.com"></a></font> <a href="mailto:chengjia1998@163.com"><font color="#000080">联系方式</font></a><font color="#000080"> -
</font><a href="book.asp" target="_blank"><font color="#000080">本站留言</font></a><font color="#000080">
<a href="http://www.miibeian.gov.cn/" target="_blank"></a></font><a href="http://www.miibeian.gov.cn/" target="_blank"><font color="#000080">鄂ICP备05022193号</font></a>
<font color="#000080">
Copyright (C) 2005 CD555.com. All Rights Reserved<br>
本站声明：站内所有歌曲、歌词、游戏、电影、电视内容均来自互联网，版权归所在公司和个人所有</font></td>
</tr>
</table>
</center>
</div>
<%
end sub
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?