www.gusucode.com > 玩玩小游戏FLASH系统 2.1码程序 > admin/html_makeflash.asp
<!--#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") top=top&"<td align=center bgcolor=#E6F2F2><a href=../index.html target=_blank>首页1</a></td>" Do While not Rsadd.Eof top=top&"<td height=25 align=center bgcolor=#E6F2F2><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") sd=rs("id")-1 xd=rs("id")+1 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,"<!sd!>",sd) pencat=replace(pencat,"<!xd!>",xd) 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>