asp 动态页面显示
在网上看到这样一个网页它的页面内容是在一张图片中显示的它的源代码是这样的<html><body><script>window.onload=function(){wind...
在网上看到这样一个网页 它的页面内容是在一张图片中显示的 它的源代码是这样的
<html>
<body>
<script>
window.onload = function() {
window.print();
window.close();
}
</script>
<p style="text-align:center">
<img src="/download.php?code=61585912">
</p>
</body>
</html>
我就是想知道那个动态生成一个图片页面的 是怎么写的？ 他们采用的是什么方法
分不是问题 只要能解决问题 展开
<html>
<body>
<script>
window.onload = function() {
window.print();
window.close();
}
</script>
<p style="text-align:center">
<img src="/download.php?code=61585912">
</p>
</body>
</html>
我就是想知道那个动态生成一个图片页面的 是怎么写的？ 他们采用的是什么方法
分不是问题 只要能解决问题 展开
展开全部
首先说，这不是ASP，而是PHP
我把注释给写到语句中了，你看一下
<html>
<body>
<script>
window.onload = function() {//JS语言，意思为页面载入后的自定函数
window.print();//打印，意思是打印此页面
window.close();//关闭当前窗口
}
</script>
<p style="text-align:center">
<img src="/download.php?code=61585912">
这上面就是图片了，当然它不是真正的图片，而是一个php页面，在这个页面中会动态生成一个图片，应该就是你问题中的图片了，它的代码应该就是61585912
</p>
</body>
</html>
我把注释给写到语句中了，你看一下
<html>
<body>
<script>
window.onload = function() {//JS语言，意思为页面载入后的自定函数
window.print();//打印，意思是打印此页面
window.close();//关闭当前窗口
}
</script>
<p style="text-align:center">
<img src="/download.php?code=61585912">
这上面就是图片了，当然它不是真正的图片，而是一个php页面，在这个页面中会动态生成一个图片，应该就是你问题中的图片了，它的代码应该就是61585912
</p>
</body>
</html>
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
嗯,这是自然的,其占用空间相当小,不用担心
我被你搞懵了
所谓的生成静态页面，就是通过FSO把生成的静态文件写到服务器上
如果用FSO,XMLHTTP的话
首先XMLHTTP提交到模板页，你把返回的信息全部接收(其实就是在IE中查看源文件的内容了)，然后通过FSO把接收到的内容写成一个文件，保存在服务器上就ok了
下面是原件：
<%
Dim FileName,UrlPath
FileName="/1.html" '要生成的文件路径及地址
UrlPath ="" '这是你要进行转静态的页面
Call SaveToFile(FileName,GetTheHTMLCode(UrlPath))
Response.write UrlPath&" ==> "&FileName&" <br>。。快去看看"
'用XMLHTTP得到源码
Function GetTheHTMLCode(Url)
Dim Http
Set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",Url ,false
Http.send()
If Http.readystate<>4 then
Exit Function
End if
GetTheHTMLCode = BytesToBSTR(Http.responseBody,"GB2312")
Set Http=nothing
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
'保存文件
Sub SaveToFile(FilePath,FileContent)
Dim Fso ,File
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set File = Fso.createTextFile(Server.Mappath(FilePath))
File.Write (FileContent)
File.Close
Set File=Nothing
Set Fso=Nothing
End Sub
%>
我被你搞懵了
所谓的生成静态页面，就是通过FSO把生成的静态文件写到服务器上
如果用FSO,XMLHTTP的话
首先XMLHTTP提交到模板页，你把返回的信息全部接收(其实就是在IE中查看源文件的内容了)，然后通过FSO把接收到的内容写成一个文件，保存在服务器上就ok了
下面是原件：
<%
Dim FileName,UrlPath
FileName="/1.html" '要生成的文件路径及地址
UrlPath ="" '这是你要进行转静态的页面
Call SaveToFile(FileName,GetTheHTMLCode(UrlPath))
Response.write UrlPath&" ==> "&FileName&" <br>。。快去看看"
'用XMLHTTP得到源码
Function GetTheHTMLCode(Url)
Dim Http
Set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",Url ,false
Http.send()
If Http.readystate<>4 then
Exit Function
End if
GetTheHTMLCode = BytesToBSTR(Http.responseBody,"GB2312")
Set Http=nothing
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
'保存文件
Sub SaveToFile(FilePath,FileContent)
Dim Fso ,File
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set File = Fso.createTextFile(Server.Mappath(FilePath))
File.Write (FileContent)
File.Close
Set File=Nothing
Set Fso=Nothing
End Sub
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
