如何统计软件的使用次数(30分)

软件启动后，发一消息到我的网页，我的网页上要写些什么代码呢？

谁来指点指点吧：（

你的网页必须是动态网页（可用delphi编写一个CGI程序）。

谢谢，能否给个简单的代码例子，我第一次做这个，实在摸不着头脑，那服务器究竟是如何统计的
它记录下的数据是存放在哪里呢？

你要这样的话,还不如直接在你的网页上加个计数器,再在程序中加上个隐藏的WebBrowser.并
把地址指向那个放计数器的网页 -_-

有没有更好的方法，免得以后又要修改，不如一次做好它

对不起，我没做过。

用SQL Server吧

能否说的明白些

别人使用软件的时候没有在网络中怎么办？既然要记数，就要尽量的准确。不如在让程序写一个ini或者dat文件，记录软件使用次数，放一timer，定时检测网络情况，如果网络是通的，就把保存在dat文件中的次数发到邮箱里（怎么说着说着，就和那个盗qq密码的share qq差不多了？）

软件自然是要上网才好用拉，我的主要目的是希望能了解到有多少用户上网了
用信箱，好象不是很合理吧！哎，真这么难吗？

提前

你的软件里用HTTP控件（INDY也可以），启动并在线时，POST数据（可以是该软件的序列号，
只要是唯一的值就可以）。网页可以使用ASP做，收到数据后进行处理，比如在数据库的里的
使用字段加个一。

我把你的问题解决了，给分吧

文件名 serial.asp
asp文件如下：
<%
dim serial

serial =request.querystring("serial")

if serial="" then serial="-" end if

Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath("./data.mdb")
DBpassword=""
set con=Server.createObject("Adodb.connection")
Set rs=Server.createObject("Adodb.Recordset")

con.open Provider&dbpath&";Jet OLEDBatabase Password=" & DBPassword

sql="select * from thetable where serial="+"'"+serial+"'"
rs.open sql,con,3,2
if not rs.eof then
response.write "序列号："
response.write rs("serial")
rs("usedtimes")=rs("usedtimes")+1
response.write " 已使用："
response.write +rs("usedtimes")

Rs.update
else
response.write "没有这个序列号"
end if
rs.close
con.close
set rs=Nothing
set con=Nothing
%>
ACCESS数据库文件
文件名:data.mdb
表名: thetable
字段一
Serial 文本
字段二
Usedtimes 数字
建好表后添条记录,字段一内容设为 "1234-QWER",字段二设为零。
好了，把asp文件与ACCESS文件放到你的主页上，不要告诉我你的主页不支持asp啊。


delphi6

建立工程，放置 Tedit,TidHttp,Tmemo,Tbutton在窗体上

在 edit中输入序列号，点button,看memo

procedure TForm1.Button1Click(Sender: TObject);
var urlstr:string;
begin
urlstr:='http://localhost/test/serial.asp?serial='+ edit1.Text ;
MEMO1.Lines.Add (idhttp1.Get(urlstr));
end;

以上代码在我的机器上没问题。

完毕

Door2000:
非常感谢你的帮助，我试了一下，系统告诉我"404 object not found"
我的空间确实支持asp，但不知道是不是支持access等数据库，
是不是一定要就记录的数据存到access，有没有可能存到一个文件中。

还是这个问题，不过，可能是我的空间问题，多谢Door2000给我详细的帮助，谢谢！