|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件静态网页天生静态Html文件有很多优点,好比天生html网页有益于被收录,不但被收录的快还收录的全.前台离开了数据会见,加重对会见的压力,加速网页翻开速率.
像www.aspid.cn的主站就接纳了TSYS天生html文件!
以是吟清比来对天生html对照感乐趣,看了很多文章,也有一点点劳绩.
1,上面这个例子间接使用FSO把html代码写进到文件中然后天生.html格局的文件<%
filename="test.htm"
ifrequest("body")<>""then
setfso=Server.CreateObject("Scripting.FileSystemObject")
sethtmlwrite=fso.CreateTextFile(server.mappath(""&filename&""))
htmlwrite.write"<html><head><title>"&request.form("title")&"</title></head>"
htmlwrite.write"<body>输入Title内容:"&request.form("title")&"<br/>输入Body内容:"&request.form("body")&"</body></html>"
htmlwrite.close
setfout=nothing
setfso=nothing
endif
%>
<formname="form"method="post"action="">
<inputname="title"value="Title"size=26>
<br>
<textareaname="body">Body</textarea>
<br>
<br>
<inputtype="submit"name="Submit"value="天生html">
</form>
2,可是依照下面的办法天生html文件十分不便利,第二种办法就是使用模板手艺,将模板中特别代码的值交换为从表单或是字段中承受过去的值,完成模板功效;将终极交换过的一切模板代码天生HTML文件.这类手艺接纳得对照多,年夜部分的CMS都是利用这类办法.
template.htm//模板文件<html>
<head>
<title>$title$byaspid.cn</title>
</head>
<body>
$body$
</body>
</html>?
TestTemplate.asp//天生Html<%
Dimfso,htmlwrite
DimstrTitle,strContent,strOut
//创立文件体系工具
Setfso=Server.CreateObject("Scripting.FileSystemObject")
//翻开文件,读取模板内容
Sethtmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))
strOut=f.ReadAll
htmlwrite.close
strTitle="天生的网页题目"
strContent="天生的网页内容"
//用实在内容交换模板中的标志
strOut=Replace(strOut,"$title$",strTitle)
strOut=Replace(strOut,"$body$",strContent)
//创立要天生的静态页
Sethtmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)
//写进网页内容
htmlwrite.WriteLinestrOut
htmlwrite.close
Response.Write"天生静态页乐成!"
//开释文件体系工具
sethtmlwrite=Nothing
setfso=Nothing
%>
3,第三种办法就是用XMLHTTP猎取静态页天生的HTML内容,再用ADODB.Stream大概Scripting.FileSystemObject保留成html文件。这句话是在蓝色幻想上看到的,对XMLHTTP吟清还不熟习正在找材料懂得.找到一段XMLHTTP天生Html的代码参考一下.
<%
经常使用函数
1、输出url方针网页地点,前往值getHTTPPage是方针网页的html代码
functiongetHTTPPage(url)
dimHttp
setHttp=server.createobject("MSXML2.XMLHTTP")
Http.open"GET",url,false
Http.send()
ifHttp.readystate<>4then
exitfunction
endif
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
sethttp=nothing
iferr.number<>0thenerr.Clear
endfunction
2、转换乱玛,间接用xmlhttp挪用有中笔墨符的网页失掉的将是乱玛,能够经由过程adodb.stream组件举行转换
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
txtURL=server.MapPath("../index.asp")
sText=getHTTPPage(txtURL)
SetFileObject=Server.CreateObject("Scripting.FileSystemObject")
filename="../index.htm"
SetopenFile=FileObject.OpenTextfile(server.mapPath(filename),2,true)true为不存在自行创建
openFile.writeline(sText)
SetOpenFile=nothing
%>
<script>
alert("静态网页天生终了");
history.back();
</script>缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全 |
|