如何验证网上ACCESS库里的密码 ( 积分: 30 )

  • 主题发起人 主题发起人 冬月
  • 开始时间 开始时间
冬

冬月

Unregistered / Unconfirmed
GUEST, unregistred user!
在主页空间上有一个ACCESS库,表里有用户名和密码两个字段,在本机上有一个EXE程序,启动后根据用户输入的用户名和密码与表里的进行验证,验证通过程序启动,不通过不启动,如何做,谢谢
 
在主页空间上有一个ACCESS库,表里有用户名和密码两个字段,在本机上有一个EXE程序,启动后根据用户输入的用户名和密码与表里的进行验证,验证通过程序启动,不通过不启动,如何做,谢谢
 
那不就是输入个用户名及密码是否正确来执行了.
 
如果是WEB页, 要在WEB页中执行EXE 文件, 那可不一般了, 感觉就是在做类似木马的程序了.
 
晕到,你门误会了,我是通过查询远程的字典表,来判断用户是否有权限使用本机程序,就像C/S模式里的权限分配从数据库里查询到,然后EXE程序驱动,只是现在没有数据哭服务器了,而是在主页空间上放一个ACCESS库,我通过网络去做这个事情
 
服务器空间支持asp么？不会是你的程序能够直接访问到远程空间上的Access吧？难道先下载access回来：）[:D]
 
服务器要是支持ASP，写个ASP文件，程序提交查询给ASP，ASP查询ACCESS返回
 
我也有程序是“风铃夜思雨”介绍的这种方式验证的。
 
风铃夜思雨,能详细讲吗，能贴一个DEMO吗
 
以下是随手写的，没测试过
var str:string;
user,pass:string;
begin
user:='admin';
pass:='123456';
str:=idhttp1.get('http://www.xxx.com/chk.asp?user=' + user + '&pass=' + pass);
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
%>
 
看不懂!
 
岂不是客户上不了网就不能用你的软件了吗？
 
风铃夜思雨 正解.
 
如果可以直接访问access文件，可读写，完全可以直接访问那个文件
 
你这样的写法？str:=idhttp1.get('http://www.xxx.com/chk.asp?user=' + user + '&pass=' + pass); 所得到的是字符串吧？ 而response.write 输入出在页面了吧？
 
您必须登录或注册才可回复。

Similar threads

X
使用kbmmw 实现图形验证码 - xalion
回复
0
查看
653
xalion
X
不
Delphi实现类似Android锁屏的密码锁控件 - 不得闲
回复
0
查看
983
不得闲
不
不
B编码以及BT种子文件分析 - 不得闲
回复
0
查看
1K
不得闲
不
X
使用kbmmw 实现图形验证码 - xalion
回复
0
查看
783
xalion
X
X
kbmmw 做REST 服务签名认证的一种方式 - xalion
回复
0
查看
749
xalion
X
后退
顶部