国产精品免费大片,久久久五月天,国产成人a亚洲精品

具體代碼實現：
1.模板文件（html）

復制代碼代碼如下:

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>{title} - 新聞中心 - 哎呀呀飾品加盟連鎖</title>
<meta name="keywords" content="{metak},哎呀呀飾品店、哎呀呀加盟店、哎呀呀、哎呀呀加盟、哎呀呀飾品、哎呀呀飾品店、哎呀呀加盟店、哎呀呀連鎖店、如何加盟哎呀呀" />
<meta name="description" content="{metad},(香港)哎呀呀飾品國際集團有限公司是一家經營飾品、日用品、化妝品、文具、玩具等為一體的公司，下設加工廠和連鎖店兩個利潤中心。香港哎呀呀飾品公司歡迎您愛呀呀飾品加盟連鎖店。" />
<link href="/css/style_new.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div><span class="font_white"></span></div>

<div><span class="font_white"></span></div>

<div id="top">
<div class="left"></div>
<div class="right">
<div class="topuser">
<form class="formbox" action="login_click.asp" method="post" name="loginform" id="loginform" onSubmit="return checkform2()">
<div style="line-height: 22px;height: 22px;">用戶名：
<input name="uname" type="text" class="bot" id="uname" size="10" maxlength="10" /> 密碼：
<input name="pwd" type="password" class="bot" id="pwd" size="10" maxlength="18"/><label></label>
<input type="submit" name="Submit" value="登陸" /> <INPUT onClick="Javascript:window.location='/reg.asp';" type=button value="注冊" name=Submit2></div>
</form>
</div>
<div class="bottomuser"><a href="/index.asp">首頁</a> | <a href="/info_qiyejianjie.asp">企業簡介</a> | <a href="/class/">產品展示</a> | <a href="/news_xinwenzhongxin.asp">新聞中心</a> | <a href="/info_jiamengzhengce.asp">經銷政策</a> | <a href="/info_kaiyedali.asp">開業大禮</a> | <a href="/info_zhuangxiufangan.asp">裝修方案</a> | <a href="/info_xingxiangzhanshi.asp">形象展示</a> | <a href="/info_jiamengliucheng.asp">合作流程</a> | <a href="/info_touziwenda.asp">投資問答</a> | <a href="/zaixianliuyan.asp">在線留言</a></div>
</div>
</div>


<div id="subject01"><a href="/info_jiamengzhengce.asp" target="_blank"><img src="/images/pic_948x160.jpg" /> 2.處理的文件（asp）

復制代碼代碼如下:

<%Server.ScriptTimeOut=99999999%>
<%
dim action,id,news
Layout="news"
id=request.QueryString("id")
action=request.QueryString("action")
select case action
case "add"
%>
<%
'全部生成html
case "htmlall"
set rs=server.CreateObject("adodb.recordset")
Sql = "Select id from news order by id"
rs.open sql,conn,1,1
do while not rs.eof
FsoFile "news",rs("id")
response.write"<div style='color:#003333;' align='center'>"&rs("id")&"新聞生成HTML成功!</div>"
rs.movenext
loop
rs.close
response.write"<div style='color:#FF0000;' align='center'>全部新聞生成HTML成功!</div></br>"
end select
%>
<%
'生成中文html
Function FsoFile(Layout,ID)
Dim Fso,FilePath,FsoF,FsoH,FsoRs,CreateFilePath
FSOCreateDIR "..\news\" & ID & ""
CreateFilePath = "..\news\" & ID & "" 'HTML所在文件夾
FilePath=Server.Mappath(CreateFilePath) & "\index.html" '定義生成html文件名
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set FsoH=Fso.OpenTextFile(Server.Mappath("..\templates\news_show.html"),1,true) '讀取模版
Content = FsoH.ReadAll
Set FsoRs = Conn.Execute("select * from news where id="&id)
title=FsoRs("title")
demo=FsoRs("demo")
Content = Replace(Content,"{id}",FsoRs("id"))
Content = Replace(Content,"{title}",FsoRs("title"))
Content = Replace(Content,"{demo}",FsoRs("demo"))
Content = Replace(Content,"{webname}",webname)
Content = Replace(Content,"{icp}",icp)
Content = Replace(Content,"{dianhua}",dianhua)
Content = Replace(Content,"{dizhi}",dizhi)
Content = Replace(Content,"{qq}",qq)
Content = Replace(Content,"{alibaba}",alibaba)
Content = Replace(Content,"{tongji}",tongji)
FsoRs.Close
Set FsoRs=Nothing
set stm = server.createobject("ADODB.Stream")
stm.Charset = "gb2312" '定義編碼
stm.Open
stm.WriteText content
stm.SaveToFile FilePath, 2
set stm = nothing
End Function
%>
<%
function FSOCreateDIR(LocalPath)
dim patharr,path_level,i,pathtmp,cpath,CreateDIR,FileObject
on error resume next
LocalPath = Server.MapPath(LocalPath)
LocalPath = replace(LocalPath,"\","/")
set FileObject = server.createobject("Scripting.FileSystemObject")
patharr = split(LocalPath,"/")
path_level = ubound(patharr)
for i = 0 to path_level
if i=0 then pathtmp = patharr(0) & "/" else pathtmp = pathtmp & patharr(i) & "/"
cpath = left(pathtmp,len(pathtmp)-1)
if not FileObject.FolderExists(cpath) then FileObject.CreateFolder(cpath)
next
set FileObject = nothing
if err.number<>0 then
CreateDIR = false
err.Clear
else
CreateDIR = true
end if
end function
%>