<%
Dimact, iflogin, loginurl, loginacturl, logindata, fileUrl, filename
act = request.querystring ( "act")
if (act = "do")
iflogin = cint (request.querystring ( "iflogin"))
loginacturl = request.form ( "loginacturl")
logindata = request.form ( "logindata")
fileUrl = request.form ( "fileUrl")
filename = mid (fileUrl, instrev (fileUrl, "/")+1)
extpos = instrev (filename, "?")
if (extpos> 0) 그러면
filename = 왼쪽 (filename, extpos-1)
endif
if (iflogin = 1) 그러면
callposthttppage (loginacturl, logindata)
endif
CalldownloadFile (FileUrl, Filename)
또 다른
%>
<formname = "form1"method = "post"action = "? act = do">
<p> ： ：
<inputname = "iflogin"type = "radio"value = "1">
是
<inputname = "iflogin"type = "radio"value = "0"Checked>
</p>
<p> ： ：
<inputName = "loginActUrl"type = "text"size = "50">
</p>
<p>
are ： <inputname = "logindata"type = "text"size = "50">
</p>
<p>
要保存的远程文件 URL ：
<inputname = "fileUrl"type = "text"size = "50">
</p>
<p>
<inputtype = "제출"이름 = "제출"value = "提交">
<inputtype = "Reset"name = "upply2"value = "重写">
</p>
</form>
<%
endif
functionByTestObstr (Body, Code)
Dimobjstream
setobjstream = server.createobject ( "adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.writebody
objstream.position = 0
objstream.type = 2
objstream.charset = 코드
bytestobstr = objstream.readtext
objstream.close
setobjstream = 아무것도