📄 fso_play.asp

📁 演示地址： http://www.71520.com/ 自动生成HTM 可以加上联播数据库data/71520data.mdb 为了安全请自行修改首页生成在admin/fso_in
💻 ASP
字号:
<%
if Session("search")<>"//admin" Then
Response.Redirect "../index.htm"
Response.End
End if
%>
<!--#include file="conn.asp"-->
<%
	if request("gx")=1 then
	min=request("min")
	max=request("max")
	if min="" and max="" then mysql=" order by id desc"
	if min<>"" and max="" then mysql=" where id>="&min&" order by id desc"
	if min="" and max<>"" then mysql=" where id<="&max&" order by id desc"
	if min<>"" and max<>"" then mysql=" where id>="&min&" and id<="&max&" order by id desc"
  '生成网址HTML页面
	set fso = Server.CreateObject("scripting.filesystemobject")
    set rs=server.createobject("adodb.recordset")
    sql="SELECT id,name,singer,lyrics FROM song"&mysql
    rs.open sql,conn,1,3    
	
	i=0
    while not rs.eof
	set fw = fso.CreateTextFile(Server.MapPath("../html/"&rs("id")&".htm"),TRUE)  '若有则覆盖
fw.writeline"<html>"
fw.writeline"<head>"
fw.writeline("<meta http-equiv=Content-Type content=text/html; charset=gb2312>")
fw.writeline"<meta name=""keywords"" content="""&rs("name")&";"&rs("singer")&";tv137.com;MP3下载；MP3试听；FLASH音乐;FLASH游戏;反日;百度;baidu;音乐;google;yisou;"">"
fw.writeline"<title>"&rs("name")&"  歌手:"&rs("singer")&" --  Www.tv137.CoM  流行Top音乐 MP3</title>"
fw.writeline"<STYLE type=text/css>"
fw.writeline"TD {"
fw.writeline"FONT-SIZE: 9pt; LINE-HEIGHT: 17px"
fw.writeline"}"
fw.writeline"BODY {"
fw.writeline"FONT-SIZE: 9pt;"
fw.writeline"LINE-HEIGHT: 17px;"
fw.writeline"margin-left: 0px;"
fw.writeline"margin-top: 0px;fw.writeline"
fw.writeline"margin-right: 0px;"
fw.writeline"margin-bottom: 0px;"
fw.writeline"}"
fw.writeline"A:visited {"
fw.writeline"TEXT-DECORATION: none;"
fw.writeline"color: #000000;"
fw.writeline"}"
fw.writeline"A:active {"
fw.writeline"COLOR: #ff0000; TEXT-DECORATION: none"
fw.writeline"}"
fw.writeline"A:link{TEXT-DECORATION:none ;Color:#000000}A:active,A:visited{TEXT-DECORATION:none ;Color:#000000}A:hover{TEXT-DECORATION: underline;Color:#74ACDC}"
fw.writeline"body {"
fw.writeline"SCROLLBAR-HIGHLIGHT-COLOR: buttonface; SCROLLBAR-SHADOW-COLOR: buttonface; SCROLLBAR-3DLIGHT-COLOR: buttonhighlight; SCROLLBAR-TRACK-COLOR: #eeeeee;  SCROLLBAR-DARKSHADOW-COLOR: buttonshadow"
fw.writeline"}"
fw.writeline".style1 {color: #FF0000}"
fw.writeline".style2 {color: #FF00FF}"
fw.writeline"</STYLE>"

fw.writeline"<script src=../tv137.gif>"
fw.writeline"</script>"



fw.writeline"<table width=771 border=0 cellpadding=0 cellspacing=0 align=center><tr><align=center><script src=../js/qq.js></script></td><table cellSpacing=0 cellPadding=0 width=776 align=center border=0><tr><td bgcolor=#FFFFFF height=2></td></tr></table><table border=0 cellpadding=0 cellspacing=0 width=776 align=center><tr><td bgcolor=#FFFFFF height=360> <table border=0 cellpadding=0 cellspacing=0 width=100% align=center><tr><td width=300 height=60>"
fw.writeline"<script language=""JavaScript""><!--"
fw.writeline"document.write(""<object id=video1 classid='clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA' height=60 width=300>"");"
fw.writeline"document.write(""<param name=controls value=ControlPanel,StatusBar>"");"
fw.writeline"document.write(""<param name='console' value='Clip1'>"");"
fw.writeline"document.write(""<param name='autostart' value='true'>""); "
fw.writeline"document.write(""<param name='loop' value='ture'>"");"
fw.writeline"document.write(""<param name='NUMLOOP' value='-1'>"");"
fw.writeline"document.write(""<param name='src' value='../""+ folder +""/"&rs("id")&".rm'>"");"
fw.writeline"document.write(""<embed value='../""+ folder +""/"&rs("id")&".rm' type='audio/x-pn-realaudio-plugin' console='Clip1' controls='ControlPanel,StatusBar' height=60 width=300 autostart=true></embed></object>"");"
fw.writeline"//-->"
fw.writeline"</script>"
fw.writeline"</td><td width=326 rowspan=2 height=360><table border=0 cellpadding=0 cellspacing=0 width=300 style=border: 1 solid #000000 align=center><tr><td bgcolor=#FFFFFF style=border: 5 solid #66CCFF><TABLE><TR><TD align=middle bgColor=#ff9900 height=15 width=300><div align=center><class=ttlwhite style=padding-left:20px><b>"&rs("name")&"</b></td></div></TD></div></TD></TR></TABLE>" 
fw.writeline"</td></tr><tr><TD bgcolor=#FFFFFF width=380 rowSpan=2><TEXTAREA class=input2 style=FONT-SIZE: 14px rows=17 cols=40>"&rs("singer")&"&nbsp;"&rs("name")&"&nbsp;</TEXTAREA></td></td></tr>"

fw.writeline"</table></td><td width=150 rowspan=2 height=360 align=right><table border=0 cellpadding=0 cellspacing=0 width=100% height=360 style=border: 1 solid #000000 align=center><tr><td height=340 bgcolor=#66CCFF><script src=../js/bofanghtm.js></script></td></tr><tr><td height=0 bgcolor=#FFFFFF style=border: 1 solid #66CCFF><TABLE><TR><TD align=middle bgColor=#ff9900 height=0 width=0></div></TD><TD align=middle bgColor=#81b823 height=0 width=0></div></TD></TR></TABLE> </td></tr></table></tr><tr>&nbsp<a href=http://www.tv137.com target=c><font color=#ff0000><b>Www.Tv137.CoM&nbsp流行音乐网</b></a>&nbsp"
fw.writeline"<script>"
fw.writeline"// 自动 COPY 代码开始"
fw.writeline"function MM_findObj(n, d) { //v4.0"
fw.writeline"  var p,i,x;  if(!d) d=document; if((p=n.indexOf(""?""))>0&&parent.frames.length) {"
fw.writeline"   d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}"
fw.writeline"  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];"
fw.writeline"  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);"
fw.writeline"  if(!x && document.getElementById) x=document.getElementById(n); return x;"
fw.writeline"}"
fw.writeline"function JM_cc(ob){"
fw.writeline"	var obj=MM_findObj(ob); if (obj) { "
fw.writeline"	obj.select();js=obj.createTextRange();js.execCommand(""Copy"");}"
fw.writeline"	alert(""已经复制成功，你可以在任何地方粘贴出去了！"");"
fw.writeline"}"

fw.writeline"// 自动 COPY 代码结束"
fw.writeline"document.write('<font color=green>好歌同朋友分享哦~~快点发给你QQ上的朋友! </font><br><input name=""page_url"" style=""BORDER-RIGHT: #665b8e 1px solid; PADDING-RIGHT: 1px; BORDER-TOP: #665b8e 1px solid; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; BORDER-LEFT: #665b8e 1px solid; CURSOR: text; COLOR: #333333; PADDING-TOP: 1px; BORDER-BOTTOM: #665b8e 1px solid"" onmouseover=""this.focus()"" onfocus=""this.select()"" value=""'+window.location.href+'这首歌非常好听！推荐给你一起听！"" size=70> <input style=""BORDER-RIGHT: #a2a2a2 1px solid; BORDER-TOP: #ffffff 1px solid; FONT-SIZE: 12px; BORDER-LEFT: #ffffff 1px solid; WIDTH: 80px; COLOR: #333333; BORDER-BOTTOM: #a2a2a2 1px solid; HEIGHT: 19px; BACKGROUND-COLOR: #eeeeee"" type=""button"" name=""Button"" class=""button1"" value=""点这里复制^O*"" onClick=JM_cc(""page_url"")>');"
fw.writeline"</script>"
fw.writeline"<td width=300 height=300><script src=../js/boqixiamian.js></script></td></tr></table></td></tr></table><table cellSpacing=0 cellPadding=0 width=776 align=center border=0></table><script src=../js/bfzuidibu.js></script></td><table cellSpacing=0 cellPadding=0 width=776 align=center border=0></table></td>"
 

fw.writeline"</body></html>"
    fw.close
    rs.movenext
	wend
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
%>
<p align="center">　</p>
<p align="center">　</p>
<p align="center">　</p>
<p align="center">　</p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="1" width="350" bgcolor="#FF0000" height="150">
    <tr>
      <td bgcolor="#F1E3F2">
<p align="center">自动更新音乐页文件完成!</p>
      </td>
    </tr>
  </table>
  </center>
</div>
<%else%>
<p align="center">　</p>
<p align="center">　</p>
<p align="center">　</p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="1" width="450" bgcolor="#FF0000">
    <tr>
      <td bgcolor="#F1E3F2">
        <p align="center" style="margin-top: 16">自动更新音乐页文件</p>
        <FORM name=form1 action=fso_play.asp?gx=1 method=post>
          <p align="center" style="margin-top: 16">从ID:<input type="text" name="min" size="20"></p>
          <p align="center" style="margin-top: 16">自ID:<input type="text" name="max" size="20"></p>
          <p align="center" style="margin-top: 16"><input type="submit" value="提 交" name="B1"> 
          <input type="reset" value="重写" name="B2"></p>
        </form>
        <p align="center">　</td>
    </tr>
  </table>
  </center>
</div>
<%
conn.close
set conn=nothing
end if%>
💿 文件大小 174 K
👤 上传用户 zcflion
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#71520 #data #fso_in #admin
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -