ASP Webサイトの静的コードHTML、特定の機能をテストできます。
関数htmll(Mulu、htmlmulu、filename、filefrom、htmla、htmlb、htmlc、htmld)
mulu = then mulu =/
htmlmulu =の場合、htmlmulu =/
mulu =置換(sysrootdir&mulu、//、 /)
htmlmulu =置換(sysrootdir&htmlmulu、//、 /)
filepath = server.mappath(mulu)&/&&&filename
do_url = http://
do_url = do_url&request.servervariables(server_name)&htmlmulu&filefrom
do_url = do_url&&htmla&htmlb && d htmlc&htmld
strurl = do_url
objxmlhttp = server.createobject(microsoft.xmlhttp)を設定します
objxmlhttp.open get、strur、false
objxmlhttp.send()
binfiledata = objxmlhttp.responsebody
objxmlhttp =何も設定しません
objadostream = server.createobject(adodb。&stream)を設定します
objadostream.type = 1
objadostream.open()
objadostream.write(binfiledata)
objadostream.savetofile filepath、2
objadostream.close()
objadostream = Nothingを設定します
エンド関数