infoall1.asp

一个简单的小程序

<!--#include file="Session.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="Classmake.asp"-->
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:[phone]
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
     id1=request("gid")
     set rs=server.createobject("adodb.recordset")
	 sql="select * from info where id="&id1
	 rs.open sql,conn,1,1
	 if not rs.eof then	  
	    filename2=rs("filename")	 
	    title=rs("title")
		key=rs("key")
		des=rs("des")
	    C1=rs("content")
		
	filename="../lmmb.htm"
    set fso = Server.CreateObject("Scripting.FileSystemObject")
    set f2= fso.OpenTextFile(server.mappath(""&filename&""))
    If Not fso.FileExists(server.mappath(""&filename&"")) Then
    mb1="栏目模版lmmb.htm不存在，请检查该路径文件。"
    else
   mb1=f2.ReadAll
   End If
   f2.close
   set f2=nothing
   set fso=nothing
	
	mb1=replace(mb1,"[biaozhi]",C1)
	mb1=replace(mb1,"[website]",website)
	mb1=replace(mb1,"[title]",title)
	mb1=replace(mb1,"[keywords]",key)
	mb1=replace(mb1,"[description]",des)
	mb1=replace(mb1,"[theurl]",url1)
	call makeclass
	call makeinfo
	 mb1=replace(mb1,"[bottom]",bottom)
		   
	filename1="../"&filename2&".htm"
	set fso=server.createobject("scripting.filesystemobject")
	set ffile=fso.createtextfile(server.mappath(""&filename1&""))
	ffile.write""&mb1&""
	ffile.close
	set ffile=nothing
	set fso=nothing 		
	end if
	rs.close	
	set rs=nothing
	%>