我想用如下代码生成静态页，含分页。结果提示指定的协议未知。

[fwy12]

我想用如下代码生成静态页，含分页。结果提示指定的协议未知。
提示错误如下：
msxml3.dll '800c000d'

指定的协议未知。

\Admin\HTMLSAVE.asp, line 25

25行就是 objXmlHttp.send()这行。

请问这是怎么回事啊？

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Const HTML_Article_Path = "html/"
ID=request("id")
Page = Request.QueryString("Page")
If Page = "" Then Page = 1
Call Article_Page_Html(ID,Page)
Private Sub Article_Page_Html(ID,iPage)
	If iPage = 1 Then
		FilePath = "../" & HTML_Article_Path & ID & ".html"
	Else
		FilePath = "../" & HTML_Article_Path & ID & "_" & iPage & ".html"
	End If

		FromURL = sPath & "list.asp?id=" & ID & "&thisPage=" & iPage & "&rnd=" & Now()
	
	Call ToHtml(FromURL,FilePath)	
End Sub

Private Sub ToHtml(FromURL,FilePath)
	Response.Write("<a href=""" & FilePath & """ target=""_blank"">" & FilePath & " --> Ok</a><br>")
	FilePath = Server.MapPath(FilePath)
	Set objXmlHttp=Server.createObject("Microsoft." & "XMLHTTP")
	objXmlHttp.open "GET",FromURL,false
	objXmlHttp.send()
	binFileData=objXmlHttp.responseBody
	Set objXmlHttp = Nothing
	Set objAdoStream=Server.createObject("ADODB." & "Stream")
	objAdoStream.Type=1
	objAdoStream.Open()
	objAdoStream.Write(binFileData)
	objAdoStream.SaveToFile FilePath,2
	objAdoStream.Close()
	Set objAdoStream = Nothing
End Sub
%>

[blacklong]

fromURL应该是http://开头的完整路径。

[fwy12]

fromURL改成http://开头的完整路径，后就可以了生成了，不过生成的是../html/230_.html --> Ok

却无法收成分页是怎么回事啊？我的分页格式是http://localhost/html/List.asp?ID=230&Page=3

[一把编程的菜刀]

Page = Request.QueryString("Page")
可能等于空格
加上
Page = trim(Request.QueryString("Page"))

[疯爷们]

FromURL 的值不对

objXmlHttp.open "GET",FromURL,false
objXmlHttp.send()
打开的地址必须是http://的地址

[ChinaXtHuLang]

看了下。我记得好像是一个新闻的CMS写的。
你的内容分页那个过程没有内容。你怎么分页啊。。

Private Sub Article_Page_Html(ID,iPage)
    '这里把ID传进来了。就要根据ID区你的文章表里面查询出该文章的内容。最后将内容进行分页处理
    If Page = 1 Then
        FilePath = "../" & HTML_Article_Path & ID & ".html"
    Else
        FilePath = "../" & HTML_Article_Path & ID & "_" & Page & ".html"
    End If

        FromURL =  "http://"&request.ServerVariables("Server_NAME")&""&SitePath&"list.asp?id=" & ID & "&Page=" & iPage & "&rnd=" & Now()
    
    Call ToHtml(FromURL,FilePath)    
End Sub

参考下：

'==========================生成新闻文章静态页===================================
Sub ArtHtml(ID)
    Dim ChannelDir
    ChannelDir = "/art/"
    Call oCreateFolder(ChannelDir)
    Sql="Select ID,Content From Art Where 1 = 1 "
    If ID <> "" Then
        Sql=Sql& " And ID = "&ID&""
    End If
    Sql=Sql & " order by ID desc"
    Set oRs = Conn.Execute(Sql)
    If Not oRs.EOF Then
        ID = oRs(0)
        Content = oRs(1)
    End If
    oRs.Close
    Set oRs = Nothing
    If InStr(Content,"[NextPage]") > 0 Then
        Content_Tmp = Split(Content,"[NextPage]")
        Page_Count = Ubound(Content_Tmp)+1
        For iPage=1 To Page_Count
            If iPage = 1 Then
                FilePath = ChannelDir & ID & ".html"
            Else
                FilePath = ChannelDir & ID & "_" & iPage & ".html"
            End If
            FromURL = Html_SysSiteUrl & "View_Art.asp?id=" & ID & "&thisPage=" & iPage & "&rnd=" & Now()
            Call ToHtml(FromURL,FilePath)
        Next
    Else
        FilePath = ChannelDir & ID & ".html"
        FromURL = Html_SysSiteUrl & "View_Art.asp?id=" & ID & "&rnd=" & Now()
        Call ToHtml(FromURL,FilePath)
    End If
End Sub

[一把编程的菜刀]

汗！你都没看清楚他是用objXmlHttp.open来打开内容页获取内容并生成静态页的
又不是通过读取数据库的

[fwy12]

果然是是http://的地址的地址就可以了。
只是如何点击一个连接，转向这一个页面后就自动生成该id对应的静态页面的，并且如果这个文章含有分页的话，分页也自动生成静态页的。

[一把编程的菜刀]

分页要循环生成啊

[fwy12]

我也想分页循环，只是我循环了几次都是错误的，能不能帮我修改一下啊

[fwy12]

根据楼上兄弟提示，我修改成代码，但是，运行的时候提示：
Microsoft VBScript 编译器错误 '800a0400'

缺少语句

\admin\save.asp, line 32

其中32行就是
FromURL = http://"&request.ServerVariables("Server_NAME")&""&SitePath&"list.asp?id=" & ID & "&Page=" & iPage & "&rnd=" & Now()
为什么会缺少语句呢？

<!--#include file="../../Inc/conn.asp"-->
<!--#include file="../../Inc/ubb.asp"-->
<!--#include file="../../Inc/fenye.asp"-->
<!--#include file="../../Inc.asp"-->
<%id=request("id")%>
<%
Sub ArtHtml(ID)
    Dim ChannelDir
    ChannelDir = "../html/"
    Call oCreateFolder(ChannelDir)
    Sql="Select ID,Content From Yao_Article Where Yn = 0 "
    If ID <> "" Then
        Sql=Sql& " And ID = "&ID&""
    End If
    Sql=Sql & " order by ID desc"
    Set oRs = Conn.Execute(Sql)
    If Not oRs.EOF Then
        ID = oRs(0)
        Content = oRs(1)
    End If
    oRs.Close
    Set oRs = Nothing
    If InStr(Content,"[yao_page]") > 0 Then
        Content_Tmp = Split(Content,"[yao_page]")
        Page_Count = Ubound(Content_Tmp)+1
        For iPage=1 To Page_Count
            If iPage = 1 Then
                FilePath = ChannelDir & ID & ".html"
            Else
                FilePath = ChannelDir & ID & "_" & iPage & ".html"
            End If
            FromURL = http://"&request.ServerVariables("Server_NAME")&""&SitePath&"list.asp?id=" & ID & "&Page=" & iPage & "&rnd=" & Now()
            Call ToHtml(FromURL,FilePath)
        Next
    Else
        FilePath = ChannelDir & ID & ".html"
        FromURL = http://"&request.ServerVariables("Server_NAME")&""&SitePath&"list.asp?id=" & ID & "&rnd=" & Now()
        Call ToHtml(FromURL,FilePath)
    End If
End Sub

Private Sub ToHtml(FromURL,FilePath)
	Response.Write("<a href=""" & FilePath & """ target=""_blank"">" & FilePath & " --> Ok</a><br>")
	FilePath = Server.MapPath(FilePath)
	Set objXmlHttp=Server.createObject("Microsoft." & "XMLHTTP")
	objXmlHttp.open "GET",FromURL,false
	objXmlHttp.send()
	binFileData=objXmlHttp.responseBody
	Set objXmlHttp = Nothing
	Set objAdoStream=Server.createObject("ADODB." & "Stream")
	objAdoStream.Type=1
	objAdoStream.Open()
	objAdoStream.Write(binFileData)
	objAdoStream.SaveToFile FilePath,2
	objAdoStream.Close()
	Set objAdoStream = Nothing
End Sub

%>