财管家 首页
当前位置:主页>delphi7/进销存和数据库> 文章内容

如何验证网上ACCESS库里的密码

发布时间:2010-07-10 | QQ免费站
1楼: 在主页空间上有一个ACCESS库,表里有用户名和密码两个字段,在本机上有一个EXE程序,启动后根据用户输入的用户名和密码与表里的进行验证,验证通过程序启动,不通过不启动,如何做,谢谢

2楼: 那不就是输入个用户名及密码是否正确来执行了.

3楼: 如果是WEB页, 要在WEB页中执行EXE 文件, 那可不一般了, 感觉就是在做类似木马的程序了.

4楼: 晕到,你门误会了,我是通过查询远程的字典表,来判断用户是否有权限使用本机程序,就像C/S模式里的权限分配从数据库里查询到,然后EXE程序驱动,只是现在没有数据哭服务器了,而是在主页空间上放一个ACCESS库,我通过网络去做这个事情

5楼: 服务器空间支持asp么?不会是你的程序能够直接访问到远程空间上的Access吧?难道先下载access回来:)[:D]

6楼: 服务器要是支持ASP,写个ASP文件,程序提交查询给ASP,ASP查询ACCESS返回

7楼: 我也有程序是“风铃夜思雨”介绍的这种方式验证的。

8楼: 风铃夜思雨,能详细讲吗,能贴一个DEMO吗如 管家婆辉煌版

9楼: 以下是随手写的,没测试过
var str:string;
user,pass:string;
begin
user:='admin';
pass:='123456';
str:=idhttp1.get('http://www.xxx.com/chk.asp?user=' + user + '&pass=' + pass); 字串1
if str='1' then showmessage('验证通过') else showmessage('验证失败');
end;

ASP
<%
dim user,pass,Conn,Rs
user=request("user")
pass=request("pass")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("test.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "Select * FROM [ChkTable] WHERE User='"& user &"'",conn,1,1
if rs.eof then
response.write "0"
else
if rs("pass")=pass then
response.write "1"
else
response.write "0"
end if
end if
rs.close
set rs=nothing
set conn=nothing
%>

10楼: ok!

11楼: 看不懂!

12楼: 岂不是客户上不了网就不能用你的软件了吗?

13楼: 风铃夜思雨 正解.

14楼: 如果可以直接访问access文件,可读写,完全可以直接访问那个文件

15楼: 你这样的写法?str:=idhttp1.get('http://www.xxx.com/chk.asp?user=' + user + '&pass=' + pass); 所得到的是字符串吧? 而response.write 输入出在页面了吧?