📄 make_type.asp
字号:
<!--#include file="bzmtvconst.asp"-->
<%CheckAdmin3%>
<%pagename="make_type"%>
<%
Sclassid=request.QueryString("bzmtv")
filename="../Html/bzmtv-"&sclassid&".htm"
set rs=server.createobject("adodb.recordset")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成歌手列表HTML文件</title>
<style>
body{font-size:9pt;line-height:140%}
</style>
</head>
<body>
<%
rs.open ("select geshou from mb"),conn,1,1
pencat=rs("geshou")
rs.close
'################ 读标题 开始 ################
set rs=conn.execute("SELECT * FROM sclass where sclassid="&sclassid)
if rs.eof and rs.bof then
errmsg=errmsg+"参数错误，请输入正确的参数"
call error()
Response.End
else
sclass=rs("sclass")
geshou_3="<html><head>"
geshou_3=geshou_3&"<meta http-equiv='Content-Type' content='text/html' charset=gb2312'>"
geshou_3=geshou_3&"<meta name='keywords' content='"&sclass&","&weburl&","&webname&"'>"
geshou_3=geshou_3&"<meta name='description' content='"&sclass&","&weburl&","&webname&"'>"
geshou_3=geshou_3&"<title>"&sclass&"-"&weburl&"-"&webname&"</title>"
'################ 读横栏 开始 ################
geshou_1="<a href='../Html/'><font color=#000000> "&webname&"</font></a> <font color=#000000> >> "&rs("sclass")&" >> 歌手列表 </font>"
end if
rs.close
pencat=replace(pencat,"Geshou_1",geshou_1)
pencat=replace(pencat,"Geshou_3",geshou_3)
'################ 读主体 开始 ################
if Sclassid<>"" then
set rs=conn.execute("SELECT * FROM Nclass where Sclassid="&Sclassid&" order by Abcd")
if not rs.eof then
i=0
do while not rs.eof
i=i+1
if thischar<>rs("Abcd") then
thischar=rs("Abcd")
i = 1
geshou_2=geshou_2&"<tr><td height=25 colspan=5 align=right bgcolor=#F7F7F7 ><a name="&thischar&" href=#><font color=#999999 size=2><strong>["&thischar&"] </strong></font></a></td> </tr><tr> "
end if
geshou_2=geshou_2&"<td width=20% height=22 > ·<a href=../Html/Mtv_"&rs("NClassid")&".htm>"&(rs("NClass"))&"</a></td>"
if (i mod 4)=0 and i>=4 then
geshou_2=geshou_2&"</tr>"
end if
rs.movenext
loop
else
end if
end if
set rs = nothing
set conn = nothing
pencat=replace(pencat,"Geshou_2",geshou_2)
'################ 读结束 ################
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(filename))
fout.Write pencat
fout.close
'************** 生成HTML页 结束 ***************
%>
<font color="#FF0000">·</font><font color="#FF0000">生成 <%=sclass%> 歌手列表HTML文件完成</font><br>
<font color="#FF0000">·</font><a target="_blank" href="<%=filename%>">点此浏览<%=filename%></a>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -