我知道这样的问题100分是太少了，十万火急：兄弟们帮帮想想，我感觉是个十分困难的问题，与服务器的连接......

Question

老板让我写一个程序，就是应用程序启动时，动态的与网上的服务器如：现假设应用程序要与域名是XXX123.com.cn的网络进行连接。在网站上wwwroot目录下有一个data数据库目录，其中有一个uerr.mdb数据库，库中有一个user表，表中存存着用户的注册信息。
如果用户启动应用程序而没有得到网上验证就自动退出。我不会呀，等待老板炒菜了！
兄弟们帮我一吧呀

Answer 1

在XXX123.com.cn的wwwroot目录添加一个用户信息验证的asp文件，然后在Delphi中用IdHttp的post或get把需要验证的用户信息传到XXX123.com.cn的web服务器，并取得验证结果

Answer 2

对! 同意楼上,很简单的,Get之后再对照,不相符就退出~! 如果还是不行的话+QQ9315628

Answer 3

大体意思我明白了，验证文件yz.asp,提供后台函数入口，IdHttp的post将用户和密码提交到数据库进行证。我没有做过这方面的工程，有例子能给我发过来吗？马上就可结贴
[email protected]

Answer 4

你看看是不是这个软件中的效果：
http://www.51dbsync.com/Dumper/Dumper1.1.rar
下载安装，选择Simplified Chinese， 然后“新建配置”，“导出，从本地到远程”，然后选择Access，确定；双击文件名，选中已经存在的一个文件，确定；“库表或视图”中出现可用的数据库表，选择一个，确定，自动显示库表中的相关内容？Excel的也可以这样处理啊！其他数据库的就更加没有问题了。

Answer 5

yz.asp
<%
Dim conn, errmsg, connStr
username = Response("username")
password = Reaponse("password")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/data/data.mdb")
set conn=server.createobject("ADODB.connection")
conn.open connStr

if user_login(usernane, password, errmsg) then
Response.Write("ok")
else
Response.Write("err")
end if 

conn.close
Set conn = nothing
'用户登陆
Function user_login(username, password, errmsg)
On Error Resume Next
Dim sqlStr, rs, res, ulevel, login_count
Set rs = Server.CreateObject("ADODB.RecordSet") sqlStr = "select [username], [password] from [userinfo] where [username] = '" _
& username & "' and [password] = '" & password
Set rs = conn.Execute(sqlStr)
Do While Not rs.eof
res = True
rs.close
Exit Do
Loop
If Not res Then errmsg = "用户名不存在或密码错误或被管理员禁用"
If Err.Number <> 0 Then
errmsg = Err.Description
Err.Clear
End If
user_login = res
Set rs = Nothing
End Function
%>Idhttp.Get('http://X123.com.cn/yz.asp?username=' + username + '&password=' + password)';

Answer 6

当然，网站的mdb数据库可能由于打开了而被锁定；
你可以复制到一个临时的文件名下，作为你自己的软件采用的一个复制品啊！
呵呵

Answer 7

十分清楚明了，严重感谢！！postren(小虫)
Idhttp.Get('http://X123.com.cn/yz.asp?username=' + username + '&password=' + password)';
它的返回值是什么？

Answer 8

十分清楚明了，严重感谢！！postren(小虫)
Idhttp.Get('http://X123.com.cn/yz.asp?username=' + username + '&password=' + password)';
它的返回值是什么？
------------------
返回值是ok或err
这儿的字符串
if user_login(usernane, password, errmsg) then
Response.Write("ok")
else
Response.Write("err")
end if