西安网站建设ASP生成html静态页面

12582013-02-22

西安网站建设ASP生成html静态页面原理:通过浏览器传送变量,如

http://127.0.0.1/shengcheng.asp?id=90

代码:
if SaveFile("/new/"&id&".html","http://127.0.0.1/news.asp?id="&id&"") then 中

/new"&id&".html",是你生成的文件和路径,西安网站建设团队点墨网络竭诚为您服务。http://127.0.0.1/news.asp?id="&id&""是asp的路径
大家可以自己设置修改,其中 "&id&" 是读取浏览器的变量。网址改成你自己的。

使用方法,给你的文章列表添加一个连接,如 http://127.0.0.1/shengcheng.asp?id=90

90这个变量相信大家会调用吧,这样就能在/new目录下生成按照id排列的html文章了

shengcheng.asp文件如下:

<%   
Dim id   
id = Request("id")    %>   
<%  if  SaveFile("/new/"&id&".html","http://127.0.0.1/news.asp?id="&id&"") then   
Response.write "已生成"   
else   
Response.write "没有生成"   
end if  
function SaveFile(LocalFileName,RemoteFileUrl)   
Dim Ads, Retrieval, GetRemoteData   
On Error Resume Next   
Set Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP") '//把单词拆开防止杀毒软件误杀  
With Retrieval   
.Open "Get", RemoteFileUrl, False, "", ""   
.Send   
GetRemoteData = .ResponseBody   
End With   
Set Retrieval = Nothing   
Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam") '//把单词拆开防止杀毒软件误杀  
With Ads   
.Type = 1   
.Open   
.Write GetRemoteData   
.SaveToFile Server.MapPath(LocalFileName), 2   
.Cancel()   
.Close()   
End With   
Set Ads=nothing   
if err <> 0 then   
SaveFile = false   
err.clear   
else   
SaveFile = true   
end if   
End function    %> 
随着网站访问量的加大,每次从数据库读取都是以效率作为代价的,很多用ACCESS作数据库的更会深有体会,静态页加在搜索时,也会被优先考虑。互联网上流行的做法是将数据源代码写入数据库再从数据库读取生成静态面,这样无形间就加大了数据库。将现有的ASP页直接生成静态页,将会节省很多。

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:15229292610

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

临时办公地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

服务热线:15229292610

客服信箱:vip@dianmo.cc

846461336327

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1