通用asp生成HTML代码

原创 2007年09月13日 13:31:00

2006-07-25 13:08首先感谢落伍的liuyanhao ,MySky 等。

原理:通过浏览器传送变量,如
http://www.baidianfeng120.com/shengcheng.asp?id=90

代码:
if SaveFile("/new/"&id&".html","http://www.baidianfeng120.com/newss.asp?id="&id&"") then 中

/new"&id&".html",是你生成的文件和路径。http://www.baidianfeng120.com/news.asp?id="&id&""是asp的路径
大家可以自己设置修改,其中 "&id&" 是读取浏览器的变量。网址改成你自己的。

使用方法,给你的文章列表添加一个连接,如 http://www.baidianfeng120.com/shengcheng.asp?id=90
90这个变量相信大家会调用吧,这样就能在/new目录下生成按照id排列的html文章了

shengcheng.asp文件如下:

<%
Dim id
id = Request("id")
%>
<%
if SaveFile("/new/"&id&".html","http://www.baidianfeng120.com/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
%>
 
 

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

Asp.Net 4.0 新特性,输出更纯净的Html代码 ClientIDMode,ViewStateMode等

1. 在Asp.Net 4.0 中我们可以控制输出html中的对象id的形式了,之前我们常常看到类似这样的id ctl00_MainContent_txtAutoID  这在客户端控制时很不方便,...

Asp.Net 4.0 新特性,输出更纯净的Html代码 ClientIDMode,ViewStateMode等

====================================================== 注:本文源代码点此下载 =============================...

Asp.Net 4.0 新特性,输出更纯净的Html代码 ClientIDMode,ViewStateMode等

1. 在Asp.Net 4.0 中我们可以控制输出html中的对象id的形式了,之前我们常常看到类似这样的id ctl00_MainContent_txtAutoID 这在客户端控制时很不方便,...

.net生成html代码

Java实现HTML代码生成PDF文档

1、IText实现html2pdf,速度快,纠错能力差,支持中文(要求HTML使用unicode编码),但中支持一种中文字体,开源。 2、Flying Sauser实现html2pdf,纠错能力...

php生成驗證碼,JS驗證加html代碼

測過,能用。 js部份: function newcode(){ var img_obj = document.getElementById('imgcode'); img_ob...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)