asp html静态化调用代码html
发布时间：2023-07-28 14:59:44 所属栏目：教程 来源：
导读：asp 网站静态化代码html,具体的功能大家可以测试下。
Function htmll(mulu,htmlmulu,FileName,filefrom,htmla,htmlb,htmlc,htmld)
if mulu="" then mulu="/"
if htmlmulu="" then htmlmulu="/"
mulu
Function htmll(mulu,htmlmulu,FileName,filefrom,htmla,htmlb,htmlc,htmld)
if mulu="" then mulu="/"
if htmlmulu="" then htmlmulu="/"
mulu
|
asp 网站静态化代码html,具体的功能大家可以测试下。 Function htmll(mulu,htmlmulu,FileName,filefrom,htmla,htmlb,htmlc,htmld) if mulu="" then mulu="/" if htmlmulu="" then htmlmulu="/" mulu=replace(SysRootDir&mulu, "//", "/") htmlmulu=replace(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&"&"&htmlc&htmld strUrl=Do_Url set objXmlHttp=Server.createObject("Microsoft.XMLHTTP") objXmlHttp.open "GET",strUrl,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 Function （编辑：聊城站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
站长推荐
