9年网站建设经验,宁波地区著名的网站建设公司!24小时咨询热线:137 3217 3747
   宁波总部  |  台州  |  温州  |  绍兴
您的位置首页: >> 网站建设 >> 宁波网站建设 网络营销  |   宁波网站建设  |   网站优化  |   宁波网页设计  |   我们观点  |  
asp生成静态html技术之二
作者:http://www.sl99.net  来源:宁波网络公司/宁波网站建设——三乐设计  发布时间:2012-12-06  阅读次数:4195 【关闭本页】
页面效果文件pubsite.asp,保存文件pubsitesave.asp文件,功能文件function.asp
下面是pubsite.asp

<%
pagetype=Trim(Request.QueryString("type"))
pagename=""
inputtext=""

Select case pagetype

Case "newsdetail"
pagename="生成新闻详情页页面,将消耗较大资源,请耐心等待"

End Select

%>

下面是:pubsitesave.asp
<!--#include file="Function.asp" -->
<%
dim pagetype,pagename
pagetype=Trim(Request.QueryString("type"))
pagename=""

Select case pagetype

Case "allpage" '生成所有页面


Case "newsdetail"

NewsDetail
pagename="所有新闻详情页"



End Select

if pagename<>"" then
Response.Write("<br><br><br><br><div align=center>"&pagename&"发布成功</div>")
end if
%>

下面是功能文件
function.asp
<%
dim url,seokeyword
dim url1,url2,url3,url4,url5,url6s

Dim ServerUrl,ServerPort,ScriptAddress, M_ItemUrl, M_item
ServerPort = Request.ServerVariables("SERVER_PORT")
ServerUrl=Cstr(Request.ServerVariables("SERVER_NAME"))
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
GetUrl = "http://"&ServerUrl&":"&ServerPort&""& ScriptAddress
GetUrl = Lcase(GetUrl)
url=left(GetUrl,instrRev(GetUrl ,"/"))
url=left(GetUrl,instrRev(GetUrl ,"/manager/"))

function getHTTPPage(url,Cset)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 or Http.Status<>200 then
Set Http=Nothing
Exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,Cset)
set http=nothing
if err.number<>0 then err.Clear
end function

Function BytesToBstr(body,Cset)
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 = Cset
BytesToBstr = objstream.ReadText
set objstream = nothing
End Function

Sub SaveToFile(strBody,ByVal Filen,Chrset)
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
Response.Write "<div align='center'>不支持ADODB.Stream,不能使用本程序</div>"
Err.Clear
Response.End
End If
CrtUrlFdr left(Filen,instrRev(Filen ,"/"))
With objStream
.Type = 2
.Open
.Charset = Chrset
.Position = objStream.Size
.WriteText = strBody
.SaveToFile Server.MapPath(Filen),2
.Close
End With
Set objStream = Nothing
End Sub

sub NewsDetail
Sql="Select * From Article where IsPass=true and atypeid=2"
Set Rs=Conn.Execute(Sql)
If Not Rs.Eof Then
do while not Rs.Eof
ID=Rs("ID")
ATypeID=Rs("ATypeID")
call SaveToFile(getHTTPPage(url&"news_detail.asp?id="&ID&"&dir=1","utf-8"),"../allnews/"&cstr(ATypeID)&ID&".html","utf-8")
Rs.movenext
loop
End If
Rs.Close
Set Rs=Nothing
End Sub

Private Function IsFolder(byref Folder)
dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(server.MapPath(Folder)) Then
IsFolder = True
Else
IsFolder = False
End If
set fso=nothing
End Function

Private Function Createfolder(byref fldr)
Dim f
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = FSO.CreateFolder(Server.MapPath(fldr))
CreateFolder = f.Path
Set f=nothing
set fso=nothing
End Function

Sub CrtFdr(fldr)
dim fso
set fso = CreateObject("Scripting.FileSystemObject")
if IsFolder(fldr)=false then
Createfolder fldr
end if

set fso=nothing
End Sub

Sub CrtUrlFdr(path)
dim arr,i,arrtmp
arr=split(path,"/")
'for i=0 to ubound(arr)-1
' response.Write arr(0)
'response.Write arr(0)
' response.End()
' next
' response.End()and arr(0)<>".."
if not isnull(arr) _
and ubound(arr)>0 then
' response.Write arr(0)
' response.End()
arrtmp =arr(0)
CrtFdr arrtmp
for i=1 to ubound(arr)
arrtmp=arrtmp&"/"&arr(i)
CrtFdr arrtmp
next
else

end if
End Sub


Function urlfilter(str)
urlfilter=strfilter(str)
urlfilter=replace(str," ","_")
urlfilter=replace(urlfilter,"__","_")
End Function

Function urlfilter1(str)
urlfilter1=strfilter1(str)
urlfilter1=replace(urlfilter1," ","-")
urlfilter1=replace(urlfilter1,"--","-")
End Function

Function strfilter1(str)
dim ascvlu
dim i
str=trim(str)
for i=1 to len(str)
ascvlu=asc(mid(str,i,1))
if not (ascvlu>64 and ascvlu<91) and _
not (ascvlu>96 and ascvlu<123) and not (ascvlu>47 and _
ascvlu<58)and ascvlu<>45 and ascvlu<>95 and ascvlu<> 32then
str=replace(str,mid(str,i,1)," ")
end if
next
strfilter1=str
End Function

Function strfilter(str)
dim ascvlu
dim i
str=trim(str)
for i=1 to len(str)
ascvlu=asc(mid(str,i,1))
if not (ascvlu>64 and ascvlu<91) and not _
(ascvlu>96 and ascvlu<123) and not (ascvlu>47 and _
ascvlu<58)and ascvlu<>45 and ascvlu<>95 _
and ascvlu<> 32 and ascvlu<> 41and ascvlu<> _
40 then
str=replace(str,mid(str,i,1),"_")
end if
next
strfilter=str
End Function

%>
责任编辑:宁波网站建设      

上一篇:网页设计师,程序员都能用到的js判断文本,单选,多选,下拉等等。  [2012-12-12] 下一篇:asp生成html静态技术之一  [2012-12-05]

  相关文章
  互诺浅谈行业门户网站该何如规划 [2012-08-01]   不用刷新而随机变更的Banner广告 [2012-09-27]
  人生幸福网方案稿 [2012-09-27]   php伪静态.htaccess 规则写法 [2012-11-14]
  asp生成html静态技术之一 [2012-12-05]   网页设计师,程序员都能用到的js判断文本,单… [2012-12-12]
  宁波某猎头网站策划方案 [2012-12-17]   网站建设中JS单选,多选框,文本框控制 [2012-12-19]
  三乐设计网络公司管理员浅谈服务器.NET伪静… [2013-03-25]   淘宝店铺设计之导航CSS代码使用修改技巧 [2013-08-08]
  网络营销  
  设计当中的OPP卡头袋的设计…
  2014年1月21日大量网站域名…
  2014年1月百度更新新版首页…
  宁波网站建设浅谈微信5.0正…
  微信公众平台开发api消息接…
  360搜索之360百科服务启用…
  雅虎新版主页支持主流各大…
  宁波网站建设  
  程序员考虑的WampServer修…
  微信接口完整代码php版
  手机网站绑定微信接口代码…
  一点手机网站设计的经验之…
  淘宝店铺设计之导航CSS代码…
  三乐设计网络公司管理员浅…
  网站建设中JS单选,多选框…
  网站优化  
  浅谈宁波网站建设中的微信…
  优化网站必须设计404错误页…
  揭秘最新百度更新规律
  SEO排名步骤
  体验SEO内部优化结构的方法…
  揭秘网站天天被收录的3大招…
  企业网站中适合应用h1,h2,…
  宁波网页设计  
  怎么解决手机网站微信内置…
  手机网站建设时如何判断微…
  设计师的福音快速浏览全球…
  宁波某家俬网上商城网站设…
  浙江大学宁波理工学院文明…
  工商银行满意度有奖调查问…
  清洁机器人iRobot网站设计…