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

  • 主题发起人 主题发起人 北狼
  • 开始时间 开始时间
北

北狼

Unregistered / Unconfirmed
GUEST, unregistred user!
我有一个ＡＳＰ＋ＡＣＣＥＳＳ的空间，软件的功能如下：
功能：１、取得本机ＩＰ地址，注意不是内部网的ＩＰ，是公网ＩＰ。
　　　２、将该ＩＰ发到空间上的ＡＳＰ页面，该页面将ＩＰ写入数据库，数据库格式为：
　　　　　日期时间　　　　　ＩＰ地址
　　　３、用ＩＥ打开另外一个ＡＳＰ程序，可以浏览数据库里的内容，并可以选择性删除
　　　　　和全部删除两种功能。

这套程序一共３个程序：１个为ＤＥＬＰＨＩ写的，用来获得ＩＰ和发送ＩＰ到ＡＳＰ页面。
１个ＡＳＰ程序用来获得ＩＰ并写入数据库，另一个ＡＳＰ程序用来管理数据库。

１０００分求够！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
急需！！！！！！在线等待！！！！！！！！！！！！！！！
测试通过另外开帖给分！！！！！！
 
我原来在网上找到过这样文章，但后来硬盘坏了，就什么都没有了[:(]
 
呵呵，看不懂你的结构.
你是不是想把所有访问网页的浏览器所在机器的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
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
程
重大难题请求救命--关于IP封包的重装回原来的用户数据问题。 (200分)
2 3 4 5
回复
84
查看
902
zhujunfeng
Z
L
求购数据库服务器、中间服务器、客户端程序代码 (50分)
回复
1
查看
164
lingru
L
J
高分求功能比较完善的ftp源码。(100分)
回复
5
查看
95
qiujsh
Q
X
25分 特简单对高手来说！！ (25分)
回复
10
查看
83
xiaolaoda
X
后退
顶部