珍珠珠宝网源码生成静态页面，页面形状在哪里定义的阿？ - 编程论坛

#2

dhdhzzw2008-05-14 10:43

这段代码在生成静态页面中起什么作用？

<%
'Content--->用户输入的需要转换的字符串
'Number1--->没转换时切取的字符数量
'Number2--->转换后切取的字符数量
Function HtmlToStr(Content,Number1,Number2)
  dim Str,Html,Num1,Num2,i
  Html=trim(Content)
  Num1=Number1
  Num2=Number2
  if Num1>0 then
     Html=left(Html,Num1)
  else
     Num1=len(Html)
  end if
  Html=replace(Html," ","")
  for i=1 to Num1
    if mid(Html,i,1)="<" then
    while (mid(Html,i,1)<>">") and (i<=Num1)
       i=i+1
    wend
else
   select case mid(Html,i,1)
          case chr(34) : Str=Str
          case chr(13) : Str=Str
          case chr(9)  : Str=Str
          case chr(32) : Str=Str
          case else    : Str=Str+mid(Html,i,1)
      end select
end if
  next
  if Num2>0 then Str=left(Str,Num2)
  HtmlToStr=Str
End Function
%>

#3

madpbpl2008-05-14 11:13

参考一下这个
保存为*.asp 放在和index.asp同一目录,运行,就可以生成静态的index.htm

<%
function getHTTPPage(url)
    dim Http
    set Http=server.createobject("Microsoft.XMLHTTP")
    Http.open "GET",url,false
    Http.send()
    if Http.readystate<>4 then
        exit function
    end if
    getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
    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
        objstream.Close
        set objstream = nothing
End Function

Dim Url,Html
Url="http://" & request.ServerVariables("HTTP_HOST") & "/index.asp  '要生成的页面"
msg = getHTTPPage(Url)

filez=server.mappath(".")&"/index.htm"  '生成的静态文件名
set fs=server.createobject("Scripting.FileSystemObject")
  set ts = fs.createtextfile(filez,true) '写文件
  for z=1 to len(msg)
   write_now=mid(msg,z,1)
   ts.write(write_now)
  next
' ts.writeline(all_msg)
  ts.close
  set ts=nothing    '文件生成
%>

#4

dhdhzzw2008-05-14 13:37

谢谢，我看看

#5

multiple19022008-05-14 21:35

模板文件中