ASP转换成HTML插件
我的网站是ASP+Access,文章都是ASP读取的,我想直接把ASP读取的页面在发布时都生成为html那该怎么办??我听说有一种叫做“ASP转换成HTML插件”的东西,...
我的网站是ASP+Access,文章都是ASP读取的,我想直接把ASP读取的页面在发布时都生成为html那该怎么办??我听说有一种叫做“ASP转换成HTML插件”的东西,是否不是传说中的东西?
展开
4个回答
2013-11-04
展开全部
我想实现的效果是这样的: 客户选择感兴趣的商品 点击下一步 从数据库读取商品的详细信息 然后生成pdf文件 目前使用的是Tall Component的一个生成pdf的插件:TallPDF 详细的资料可参看这个网址: http://www.tallcomponents.com/default.aspx?id=tallpdf 虽然能实现大部分功能 但是不支持html的转换 由于商品介绍(Description)是用html语法存在数据库中 所以读取并转换成pdf后 依然是若干尖括号 -_-b 我尝试过把html的tag转换成符号或者ASCII码 比如说 li转换成* br转换Chr(13) 但是貌似TallPDF这个插件不支持ASCII码 -_-b google搜索过 找到很多类似的插件 但是都要收费 T_T 请达人们赐教 有没有其他的支持html转换成pdf插件或方法
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-11-04
展开全部
不用找什么插件
<%
Server.ScriptTimeout=10
Function GetPage(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetPage = BytesToBstr(.ResponseBody)
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>这个是头文件
<%
Dim Fso,NewFolderPath,SetUrl,OKurl,pstr,fout,LinkUrl
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
NewFolderPath = Server.MapPath(".")
LinkUrl=Request.ServerVariables("HTTP_HOST")
LinkUrl="http://"&LinkUrl
SetUrl=LinkUrl&"/index.asp"
OKurl=NewFolderPath&"../index.html"
LinkUrl=LinkUrl&"/index.html"
pstr=Getpage(SetUrl)
Set fout = fso.CreateTextFile(OKurl)
fout.Write pstr
fout.close
response.write ("<font color='green' size='3'>生成成功√</font><a href='"&LinkUrl&"' target=_blank><font color='ffffff' size='3'>"&LinkUrl&"</font></a>")
response.end
%>
这个里面调调路径就OK了 找到想生成的文件对应着写 但是别用卡巴斯基杀毒软件
<%
Server.ScriptTimeout=10
Function GetPage(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetPage = BytesToBstr(.ResponseBody)
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>这个是头文件
<%
Dim Fso,NewFolderPath,SetUrl,OKurl,pstr,fout,LinkUrl
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
NewFolderPath = Server.MapPath(".")
LinkUrl=Request.ServerVariables("HTTP_HOST")
LinkUrl="http://"&LinkUrl
SetUrl=LinkUrl&"/index.asp"
OKurl=NewFolderPath&"../index.html"
LinkUrl=LinkUrl&"/index.html"
pstr=Getpage(SetUrl)
Set fout = fso.CreateTextFile(OKurl)
fout.Write pstr
fout.close
response.write ("<font color='green' size='3'>生成成功√</font><a href='"&LinkUrl&"' target=_blank><font color='ffffff' size='3'>"&LinkUrl&"</font></a>")
response.end
%>
这个里面调调路径就OK了 找到想生成的文件对应着写 但是别用卡巴斯基杀毒软件
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-11-04
展开全部
有这种插件,但是别人都很少公开出来,都是做来自己用的。转换HTML只有几行代码。自己可以去网上搜索下。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-11-04
展开全部
用组件好类,FSO可以实现你要的功能
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询