<%
Dimact, Iflogin, Loginurl, Loginacturl, Logindata, FileUrl, Dateiname
Act = Request.queryString ("Act")
if (act = "do") dann
ifLogin = cint (Request.queryString ("ifLogin"))
loginacturl = request.form ("loginacturl")
logindata = request.form ("logindata")
fileUrl = request.form ("fileurl")
Dateiname = Mid (FileUrl, Instrrev (FileUrl, "/")+1)
extpos = Instrrev (Dateiname, "?")
if (extpos> 0) dann
Dateiname = links (Dateiname, extpos-1)
Endif
if (ifLogin = 1) dann
callpostttppage (loginacturl, logindata)
Endif
CalldownloadFile (FileUrl, Dateiname)
anders
%>
<formname = "form1" methode = "post" action = "? Act = do">
<p> 是否登录 ：
<inputName = "ifLogin" type = "radio" value = "1">
是
<inputName = "ifLogin" type = "radio" value = "0" überprüft>
否 </p>
<p> 登录提交地址 ：
<inputName = "loginacturl" type = "text" size = "50">
</p>
<p>
登录数据 ： ： ： inputName = "logindata" type = "text" size = "50">
</p>
<p>
要保存的远程文件 URL:
<inputName = "fileUrl" type = "text" size = "50">
</p>
<p>
<inputType = "surug" name = "surug" value = "提交">
<inputType = "reset" name = "subl2" value = "重写">
</p>
</form>
<%
Endif
FunktionByTestObstr (Körper, 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 = code
ByTestObstr = objstream.readText
objstream.close
setObjstream = nichts