如何验证网上ACCESS库里的密码
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 输入出在页面了吧?