1000大洋求够一套源码!!!非常简单的功能,但对我来说是比较难的。谢谢!(50分)

北狼

Unregistered / Unconfirmed
GUEST, unregistred user!
我有一个ASP+ACCESS的空间,软件的功能如下:
功能:1、取得本机IP地址,注意不是内部网的IP,是公网IP。
   2、将该IP发到空间上的ASP页面,该页面将IP写入数据库,数据库格式为:
     日期时间     IP地址
   3、用IE打开另外一个ASP程序,可以浏览数据库里的内容,并可以选择性删除
     和全部删除两种功能。

这套程序一共3个程序:1个为DELPHI写的,用来获得IP和发送IP到ASP页面。
1个ASP程序用来获得IP并写入数据库,另一个ASP程序用来管理数据库。

1000分求够!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
急需!!!!!!在线等待!!!!!!!!!!!!!!!
测试通过另外开帖给分!!!!!!
 
我原来在网上找到过这样文章,但后来硬盘坏了,就什么都没有了[:(]
 
呵呵,看不懂你的结构.
你是不是想把所有访问网页的浏览器所在机器的IP存到数据库里呀?
 
不是的呀,就是说DELPHI写的那个程序在机子上运行后,把这台机子的IP保存到数据库中呀。
 
呵呵,这个容易.
 
这里找到一段小程序,不知能不能获取外网IP,你试一下。
关于第2问,如果你有那个ASP空间管理员权限的话,应该可以直接操作acess数据库的,
不用传到ASP页面上吧?
第3问应该简单,看看一些BBS论坛的源码,有管理数据库的ASP代码,这种源码网上
到处都是,稍微改动一下就行了。

uses winsock;
...
//取本机IP地址
function GetIPAddress: string;
var
phoste:pHostEnt;
Buffer:array[0..100] of char;
WSAData:TWSADATA;
begin
result:='';
if WSASTartup($0101, WSAData) <> 0 then exit;
GetHostName(Buffer,Sizeof(Buffer));
phoste:=GetHostByName(buffer);
if phoste = nil then
begin
result:='127.0.0.1';
end
else
result:=StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
WSACleanup;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=GETIPAddress;
end;
 
ASP空间的权限我当然有啦
 
有权限,但我不知道怎么写呀
 
TO: LeeChange
大哥啊,请帮我解决撒。
 
拿QQ吧,要把需求彻底弄明白了.
 
TO:Lich007
这段代码获得的是内网IP,我刚试了,显示我的内网IP 192.168.1.2
 
拿QQ?我的QQ是:974080
谢谢了
 
你是想动态IP建站吧,我有全套技术,包括服务器端和客户端,可户端环境为:WIN2K+ADSL虚拟拨号,实列见:bs@www.ynpm.com
 
顶部