简单的向网页中加一字符串,并在另一程序中将其提取.(150分)

R

ranxg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #1

涉及动态网页技术,可能用asp
简单的向网页中加一字符串,并在另一程序中将其提取.
如:
(1)有一动态网页 Http://www.abcee.com/delphi/xx.asp
(2)编一程序cx1.exe,上有编辑框edit1,将其内容传入网页,一句就行。
(3)编一程序cx2.exe,上有编辑框edit2,将网页内容传入编辑框。
这三步如何实现？？

 

表

表酱子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #2

是8是 cx1.exe程序 向某网页提交指定内容，

然后由远程 cx2.exe 从指定页面提取出来？

 

Y

yeskert1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #3

如果你是想修改原始网页，那么你必须攻克那个网站。
如果cx1.exe和cx2.exe是在同一个机器上……这样做有什么意义？
如果你用TWebbrowser打开网页，那么你可以通过其document属性随意修改其中的内容，但这样也没有什么意义，因为别的程序访问该网页时，又从那个网站下载了，依然是原始的页面。
用IE打开的一个页面，其内容也是可以通过程序读写的。
你是不是做作弊程序？

 

M

myveremy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-14

• #4

這個問題老是有人提,但就是沒答案,幫你頂了.

 

Y

yahoo123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-14

• #5

你想做什么呀!密码截取

 

Z

zhaokaien

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-14

• #6

socket+http+xml

 

5

54weige

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-16

• #7

<%
num=request(&quot;num&quot
set fs=server.CreateObject(&quot;Scripting.FileSystemObject&quot
set file=fs.CreateTextFile(server.MapPath(&quot;sdf.txt&quot)
file.Writeline num
file.close
set file=nothing
set fs=nothing
response.write &quot;Send OK!&quot;
%>

idhttp.post('http://www.xx.com/xx.asp',Logininfo,Response);....
代码自己找．
idhttp1.get('http://www.xxx.com/sdf.txt');

给分

 

R

ranxg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-20

• #8

才上网，让我试一下！

 

R

ranxg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #9

54weige,先给你100分，我再开帖子加100分
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3540168
我对Logininfo,Response这两个参数不会设定，请指点！！
我找的以下代码，编译通过，也能反馈信息“Send OK!”但就是sdf.txt写不上反而被清空
procedure TForm1.Button1Click(Sender: TObject);
Var
Fpost : Tstrings;
sReturn : TStringList;
res : TstringStream;
begin
res := TstringStream.Create('');
sReturn:=TstringList.create;
sReturn.Add(edit1.Text);
Label1.Caption:=sReturn.CommaText;
idHttp.Post('http://www.d-ok.cn/gb/xx.asp', sReturn, Res);
Memo1.Text:=Res.DataString;
res.Free;
end;
不知道是delphi程序问题还是xx.asp的问题？

 

M

Mike1234567890

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #10

我来领分了

 

R

ranxg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #11

多人接受答案了。