📄 fso_index.asp
字号:
<%
if Session("search")<>"//admin" or session("admin")<>"isadmin" Then
Response.Redirect "../index.htm"
Response.End
End if
%>
<!--#include file="conn.asp"-->
<%
'生成网址HTML页面
set fso = Server.CreateObject("scripting.filesystemobject")
set rs=server.createobject("adodb.recordset")
sql="SELECT id,name,singer FROM song order by top desc"
rs.open sql,conn,1,3
set fw = fso.CreateTextFile(Server.MapPath("../index.htm"),TRUE) '若有则覆盖
fw.writeline"<script language=""JavaScript"">"
fw.writeline"self.moveTo(0,0)"
fw.writeline"self.resizeTo(screen.availWidth,screen.availHeight)"
fw.writeline"</script>"
fw.writeline"<html><head>"
fw.writeline"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
fw.writeline"<meta name=""keywords"" content=""音乐下载；音乐试听；歌词；华语音乐;"">"
fw.writeline"<title>〖tv137音乐网〗Www.tv137.Com</title>"
fw.writeline"<base target=""play"">"
fw.writeline"<script src=../tv137.gif>"
fw.writeline"</script>"
fw.writeline"<base onmouseover=""window.status='流行音乐网Http://Www.tv137.Com 或Http://Www.31yy.Com欢迎您的访问 ^_^';return true"">"
fw.writeline"<link rel=stylesheet href=/js/bg.css type=text/css>"
fw.writeline"<body style='cursor:url(/js/s_b.cur)'>"
fw.writeline"<div align=center>"
fw.writeline"<script src=/js/chaojinvsheng.js></script>"
fw.writeline"<script src=/js/qq.js></script>"
fw.writeline"<script src=/js/daohang.js></script>"
'//fw.writeline"<table width=""760"" bgColor=#ffffff border=1 borderColor=#999999 cellPadding=0 cellSpacing=0 style=""BORDER-COLLAPSE: collapse"" align=center>"
'//fw.writeline"<tr height=100><td height=100></td></tr></table>"
fw.writeline" <TABLE width=""760"" bgColor=#ffffff border=1 borderColor=#999999 cellPadding=0 cellSpacing=0 style=""BORDER-COLLAPSE: collapse"" align=center>"
fw.writeline"<form name=""search"" method=""post"" action=""search.asp"">"
fw.writeline" <tr> "
fw.writeline" <td align=""center"">搜索:<input class=""text1"" onfocus=""this.value=''"" value=""输入您要查找的歌曲名称或歌手名称或歌词."" name=""keyword"" size=""85"" type=""text""> "
fw.writeline" <select name=""stype"" style=""FONT-SIZE: 9pt"">"
fw.writeline" <option value=""name"" selected>-歌名-</option>"
fw.writeline" <option value=""singer"">-歌手-</option>"
fw.writeline" <option value=""lyrics"">-歌词-</option>"
fw.writeline" </select> <input type=""submit"" name=""imageField"" value=""提交"">"
fw.writeline" </td></tr></table>"
fw.writeline"<form action=playlist.asp name=list target=plist>"
fw.writeline"<TABLE width=""778"" bgColor=#ffffff border=1 borderColor=##111111 cellPadding=0 cellSpacing=0 style=""BORDER-COLLAPSE: collapse"" align=center>"
fw.writeline" <TR height=25 align=center bgcolor=#99CC00 >"
fw.writeline" <TD width=20% ><font color=""#ffffff"">新歌排行榜</font></TD>"
fw.writeline" <TD width=20% ><font color=""#ffffff"">新歌排行榜</font></TD>"
fw.writeline" <TD width=20% ><font color=""#ffffff"">新歌排行榜</font></TD>"
fw.writeline" <TD width=20% ><font color=""#ffffff"">新歌排行榜</font></TD>"
fw.writeline" <TD width=20% ><font color=""#ffffff"">新歌排行榜</font></TD>"
fw.writeline" </tr></table>"
'开始排列歌曲.
i=1
j=1
while not rs.eof
if i=1 then
fw.writeline"<table width=""778"" bgColor=#ffffff border=1 borderColor=#111111 cellPadding=0 cellSpacing=0 style=""BORDER-COLLAPSE: collapse"" align=center>"
end if
if j=1 then
fw.writeline"<TR height=25 align=center bgcolor=#ffffff>"
end if
if j<=5 then
fw.writeline" <TD width=20% bgcolor=#ffffff><a href=html/"&rs("id")&".htm >"&rs("name")&"</a></TD>"
end if
j=j+1
if j>5 then
fw.writeline"</TR>"
j=1
end if
if i>=100 then
fw.writeline"</TABLE>"
fw.writeline"<TABLE width=""778"" bgColor=#ffffff border=1 borderColor=#111111 cellPadding=0 cellSpacing=0 style=""BORDER-COLLAPSE: collapse"" align=center><TR height=25 align=center bgcolor=#C9F2BD></td></tr></table>"
i=0
end if
i=i+1
rs.movenext
wend
if rs.eof OR i<>100 then
fw.writeline"</tr></table>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
fw.writeline"</form>"
fw.writeline"<table width=778 bgColor=#111111 height=40 border=0 align=center cellpadding=0 cellspacing=0>"
fw.writeline"<tr>"
fw.writeline"<td align=center><font color=""#FFCC00"">Copyright (C) 2005 tv137.com. All Rights Reserved</font>"
fw.writeline" <br> <font color=""#FFCC00"">QQ交流群:10676260 </font></td>"
fw.writeline"</tr></table>"
fw.writeline"<BR><img src=logo.gif>"
fw.writeline"</body></html>"
fw.close
%>
<p align="center">自动生成首页完成!</p>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -