如果客户端不允许交互,就没有办法了,
我是用的FSO读的地址,
这是一个自动提交广告的页面,用FSO读客户端的临时文件夹,
<script language="vbscript">
dim urll
dim thefolder
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
if fso.folderExists("C:\Documents and settings\Administrator\Local Settings\Temporary Internet Files\Content.IE5") then
thefolder = "C:\Documents and settings\Administrator\Local Settings\Temporary Internet Files\Content.IE5"
elseif fso.folderExists("C:\Documents and Settings\xq\Local Settings\Temporary Internet Files\Content.IE5") then
thefolder = "C:\Documents and Settings\xq\Local Settings\Temporary Internet Files\Content.IE5"
end if
Set myfolder = fso.GetFolder(thefolder)
for n = 1 to 5
Set sf = myfolder.SubFolders
For Each obj In sf
If (fso.FileExists(obj & "\ads[" & n & "].htm")) Then
urll = obj & "\ads[" & n & "].htm"
Set txtStream = fso.OpenTextFile(urll, 1, False, -2)
file = txtStream.ReadAll
A = InStr(file, "http://search.union.3721.com/ads_c/index.htm?&")
file = Right(file, Len(file) - A + 1)
file = Left(file, InStr(file, "\"))
If InStr(file, "&ads=1&") > 0 and InStr(file, "&id=3721&") > 0 Then
file = Replace(file, "?&", "?fb=ads&")
file = Replace(file, "25", "")
file = Replace(file, "\", "&action=1")
a = 13
exit for
End If
txtStream.Close
End If
Next
if a = 13 then
exit for
end if
next
document.write file
document.write "<form name=""formadvc"" method=""post"" action=" & file & "></form>"
</script>
<script language=javascript>
setTimeout("document.formadvc.submit()",1000)
</script>
我是用的FSO读的地址,
这是一个自动提交广告的页面,用FSO读客户端的临时文件夹,
<script language="vbscript">
dim urll
dim thefolder
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
if fso.folderExists("C:\Documents and settings\Administrator\Local Settings\Temporary Internet Files\Content.IE5") then
thefolder = "C:\Documents and settings\Administrator\Local Settings\Temporary Internet Files\Content.IE5"
elseif fso.folderExists("C:\Documents and Settings\xq\Local Settings\Temporary Internet Files\Content.IE5") then
thefolder = "C:\Documents and Settings\xq\Local Settings\Temporary Internet Files\Content.IE5"
end if
Set myfolder = fso.GetFolder(thefolder)
for n = 1 to 5
Set sf = myfolder.SubFolders
For Each obj In sf
If (fso.FileExists(obj & "\ads[" & n & "].htm")) Then
urll = obj & "\ads[" & n & "].htm"
Set txtStream = fso.OpenTextFile(urll, 1, False, -2)
file = txtStream.ReadAll
A = InStr(file, "http://search.union.3721.com/ads_c/index.htm?&")
file = Right(file, Len(file) - A + 1)
file = Left(file, InStr(file, "\"))
If InStr(file, "&ads=1&") > 0 and InStr(file, "&id=3721&") > 0 Then
file = Replace(file, "?&", "?fb=ads&")
file = Replace(file, "25", "")
file = Replace(file, "\", "&action=1")
a = 13
exit for
End If
txtStream.Close
End If
Next
if a = 13 then
exit for
end if
next
document.write file
document.write "<form name=""formadvc"" method=""post"" action=" & file & "></form>"
</script>
<script language=javascript>
setTimeout("document.formadvc.submit()",1000)
</script>
第一个,读参数文件的页面,里面用<iframe src="c:\\parm.htm"></frame>
第二个,参数文件(parm.htm)假设保存在c:\
技巧就在这个文件:
parm.htm如下:
<form name=form1 action="third.asp" methon=post>
<input type="hidden" value="parm1,parm2,parm3" name="parm">
</form>
<script>
form1.submit()
</script>
其中,parm1,parm2,parm3是您要保存的参数,同过这个文件将参数提交到服务器,服务器获得.
第三个,当然是third.asp
parm=request("parm")
参数得到了,不过这个方法很不漂亮,但是,勉强可以用