复件 html_makeflash.asp

这是一个最常用的flash程序

<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
rs.open ("select show from mb"),conn,1,1
pencat=rs("show")
rs.close

if request("id")<>"" then

Set Rsadd=Server.Createobject("Adodb.Recordset")
Sql="Select * From Class where classid='0'"
Rsadd.open Sql,Conn,1,3
id=rsadd("id")
Do While not Rsadd.Eof

top=top&"<td bgcolor=#f1f1f1 height=25 align=center><a href=../class/"&rsadd("id")&"_1.htm>"&rsadd("name")&"</a></td>"

Rsadd.Movenext
Loop
Rsadd.Close
Set Rsadd=nothing

Sql="Select * From flash where ID="&Request("id")
Set Rs=Server.Createobject("Adodb.Recordset")
Rs.open Sql,Conn,1,1
id=rs("id")
flashname=rs("flashname")
flashurl=rs("flashurl")
classname=rs("classname")
zz=rs("zz")
geshou=rs("geshou")
body=rs("body")
hot=rs("hot")
hits=rs("hits")
sj=rs("sj")
user=rs("user")
Rs.Close
Set Rs=nothing
conn.close
set conn=nothing
End If

pencat=replace(pencat,"<!top!>",top)
pencat=replace(pencat,"<!classname!>",classname)
pencat=replace(pencat,"<!id!>",id)
pencat=replace(pencat,"<!flashname!>",flashname)
pencat=replace(pencat,"<!sj!>",sj)
pencat=replace(pencat,"<!user!>",user)
pencat=replace(pencat,"<!hits!>",hits)
pencat=replace(pencat,"<!flashurl!>",flashurl)
pencat=replace(pencat,"<!zz!>",zz)
pencat=replace(pencat,"<!geshou!>",geshou)
pencat=replace(pencat,"<!hot!>",hot)
pencat=replace(pencat,"<!body!>",body)


Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../flash/"&request("id")&".htm"))
fout.Write pencat
fout.close
response.write "生成成功《"&flashname&"》"

%>
<script LANGUAGE="JavaScript">
<!--
setTimeout('window.close();', 500);
// -->
</script>