Make_mxda.asp 流光音乐建站系统 1.1码程序 - ASP源码程序

www.gusucode.com > 流光音乐建站系统 1.1码程序 > admin/Make_mxda.asp
    <!--#include file="Const.Asp"-->
<link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css">
<%CheckAdmin3%>
<%pagename="make_type"%>
<%
'===========================版权信息===============================
' 流光音乐系统 1.0
' Homepage  : http://www.ad968.cn
' E-Mail : 77280511@qq.com
' QQ : 77280511 
'请保留版权信息,以便我们更好的为您服务
'==================================================================
Nclassid=request.QueryString("263")
filename="../Singer/"&nclassid&".html"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成歌手资料</title>
<style>
body{font-size:9pt;line-height:140%} 
</style>
</head>
<body>
<%
SQL = "select top 1 mxda from mb"
Set Rs = Conn.Execute(SQL)
pencat=rs("mxda")
rs.close
'################ 读标题################
 set rs=conn.execute("SELECT * FROM nclass where nclassid="&nclassid)
   if rs.eof and rs.bof then 
	errmsg=errmsg+"参数错误，请输入正确的参数"
	call error()
        Response.End 
        else
dangan_3="<html><head>"&vbcrlf
dangan_3=dangan_3&"<meta http-equiv='Content-Type' content='text/html' charset=gb2312'>"&vbcrlf
dangan_3=dangan_3&"<meta name=keywords content='"&rs("Nclass")&"|歌手资料|歌手档案'>"&vbcrlf
dangan_3=dangan_3&"<meta name='description' content='流光音乐网|歌手资料|"&rs("Nclass")&"'>"&vbcrlf
dangan_3=dangan_3&"<title>"&rs("Nclass")&" - 歌手资料 - "&webname&" - "&weburl&"</title>"&vbcrlf
end if
pencat=replace(pencat,"Dangan_3",dangan_3)
'################ 读主体 开始 ################
da=rs("da")
if da="" then
da="暂时没有该歌手的资料"
end if
pic=rs("pic")
if pic="" then
pic="../Photo/NoPic.gif"
end if
pencat=replace(pencat,"{Nclassid}",rs("NClassid"))
pencat=replace(pencat,"{Nclass}",rs("NClass"))
pencat=replace(pencat,"{Da}",da)
pencat=replace(pencat,"{Pic}",pic)

rs.close 
set rs=nothing
conn.close
set conn=nothing      
'################ 读结束 ################
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(filename))
fout.Write pencat
fout.close
'************** 生成HTML页 结束 ***************
%>
<div id="mkput">
<font color="#FF0000">·</font><font color="#FF0000">生成 <%=geshou1%>→<%=geshou2%> 歌手资料完成</font><br>
<font color="#FF0000">·</font><a target="_blank" href="<%=filename%>">点此浏览<%=filename%></a>
</div>
<script language="javascript">
if(parent.showImport)
{
parent.showImport.innerHTML=mkput.outerHTML;
}
</script>
</body></html>