strUrl = "http://"&Host&"/makepic.shtm?f="&FileName&"&t="&ConTime&""
strUrl_1 = "http://"&Host&"/getfilesize.shtm?f="&FileName&""
这样的代表什么呀,是不是网站的路径呀. 如果是路径 在哪可以改路径
谁知道呀 谁能告诉我下呀 真心的感谢 或是加QQ 307715825 谢谢了
以下是部分代码
Dim objXmlHttp,strUrl,Result
strUrl = "http://"&Host&"/makepic.shtm?f="&FileName&"&t="&ConTime&""
Set objXmlHttp = Server.CreateObject("MSXML2.XMLHTTP.4.0")
objXmlHttp.Open "Get",strUrl,False
objXmlHttp.Send()
If objXmlHttp.ReadyState = 4 Then
dim objAdoStream
Set objAdoStream = Server.CreateObject("Adodb.Stream")
objAdoStream.type = 1
objAdoStream.mode = 3
objAdoStream.open
objAdoStream.write objXmlHttp.ResponseBody
objAdoStream.position = 0
objAdoStream.type = 2
objAdoStream.charset = "gb2312"
Result = objAdoStream.ReadText
objAdoStream.close
set objAdoStream = nothing
set objXmlHttp = nothing
Else
Result = "未生成缩略图！"
End If
Dim objXmlHttp_1,strUrl_1,FileSize
strUrl_1 = "http://"&Host&"/getfilesize.shtm?f="&FileName&""
Set objXmlHttp_1 = Server.CreateObject("MSXML2.XMLHTTP.4.0")
objXmlHttp_1.Open "Get",strUrl_1,False
objXmlHttp_1.Send()
If objXmlHttp_1.ReadyState = 4 Then
dim objAdoStream_1
Set objAdoStream_1 = Server.CreateObject("Adodb.Stream")
objAdoStream_1.type = 1
objAdoStream_1.mode = 3
objAdoStream_1.open
objAdoStream_1.write objXmlHttp_1.ResponseBody
objAdoStream_1.position = 0
objAdoStream_1.type = 2
objAdoStream_1.charset = "gb2312"
FileSize = objAdoStream_1.ReadText
objAdoStream_1.close
set objAdoStream_1 = nothing
set objXmlHttp_1 = nothing
Else
FileSize = "0"
End If
%>