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

asp批量从某个ID开始到某个ID结束生成

 

<form action="publishsitesave.asp?type=schoolpage&save=y" method="post">
<div id="fabu" align="center">
从ID:<input name="ID1" type="text" id="ID1">到ID:<input name="ID2" type="text" id="ID2">
<input type=Submit value="确认发布" IsShowProcessBar="True" class="button">
</div>
</form>

功能文件:

<%
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 all_school(ID1,ID2)
for b=ID1 to ID2
sql="Select * from school where IsPass=true and id="&b
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open Sql,Conn,1,3
  If Not Rs.Eof Then
    ID=Rs("ID")
    schooltype=Rs("schooltype")
          szsheng=Rs("szsheng")
          szshi=Rs("szshi")
    call SaveToFile(getHTTPPage(url&"school-show.asp?id="&ID&"&dir=1","utf-8"),"../school/"&cstr(schooltype)&cstr(szsheng)&cstr(szshi)&ID&".html","utf-8")
  End If
  Rs.Close
  Set Rs=Nothing

next
end sub

%>

 

责任编辑:宁波网站建设      

上一篇:asp生成静态html技术之二  [2012-12-06] 下一篇:php伪静态.htaccess 规则写法  [2012-11-14]

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