自动按模板生成网站首页

最新推荐文章于 2021-05-31 16:43:43 发布

lazycatw

最新推荐文章于 2021-05-31 16:43:43 发布

阅读量888

点赞数

分类专栏： ASP 文章标签： function url

本文链接：https://blog.csdn.net/lazycatw/article/details/429126

版权

这篇博客介绍了一个利用VBScript编写的函数，通过发送HTTP请求获取模板文件，然后将其内容写入到默认首页（default.htm）中，实现动态生成网站的首页。主要涉及的函数包括GetPage和BytesToBstr，用于处理HTTP响应和字节流转换为字符串。最后，页面会显示一个提示消息，告知用户首页生成成功并重定向到新生成的页面。

摘要由CSDN通过智能技术生成

自动按模板生成网站首页.

<%
Response.Expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
Response.Buffer = True
Response.Clear
Server.ScriptTimeOut=999999999
on error resume next
'***************************************************************
'*                        定义从模板从读取首页函数
'* 说明:模板文件名为:index_Template.asp
'***************************************************************
Function GetPage(url)
        Set Retrieval = CreateObject("Microsoft.XMLHTTP")
        With Retrieval
        .Open "Get", url, False, "", ""
        .Send
        GetPage = BytesToBstr(.ResponseBody)
        End With
        Set Retrieval = Nothing