各版本万象密码的查询脚本
各版本万象密码的查询脚本:
1.查询万象2003脚本内容:
do
sid=inputbox("请输入卡号:","查询万象密码")
if sid="" then
wscript.quit
elseif IsNumeric(sid)<>0 then
exit do
else
wscript.echo "您输入的卡号格式不正确"
end if
loop until(1<>1)
Set conn = wscript.CreateObject("ADODB.Connection")
abc=" DBQ="+"Oct2003.mdb"+"; pwd=" +"chrdwhdhxt"+"; DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open abc
Set RS = Conn.Execute( "SELECT sname,spassword,scardid,sidcard from tusers where scardid='"&sid&"'")
while not RS.EOF
ssname= RS( 0 ).value
sspassword= RS( 1 ).value
sscardid=RS( 2 ).value
ssidcard=RS( 3).value
rs.movenext
wend
if ssname="" then
wscript.echo "没有此卡号"
else
wscript.echo "姓名:" & ssname & ",密码:"& sspassword & ",卡号:" &sscardid & ",身份证:" & ssidcard
end if
wscript.quit
2.查询万象2004 ACCESS版本的密码脚本内容:
do
sid=inputbox("请输入卡号:","查询万象密码")
if sid="" then
wscript.quit
elseif IsNumeric(sid)<>0 then
exit do
else
wscript.echo "您输入的卡号格式不正确"
end if
loop until(1<>1)
Set conn = wscript.CreateObject("ADODB.Connection")
abc="Provider=Microsoft.Jet.OLEDB.4.0;Password=万象网管是一个发展了5年的成熟的产品;User ID=datamaintain;Data Source=2004mem.mdb;Persist Security Info=True;Jet OLEDB:System database=SICENT.MDW;Jet OLEDB:Database Password=zhrmghg1949jgqz"
conn.open abc
Set RS = Conn.Execute( "SELECT sname,spassword,scardid,sidcard from tusers where scardid='"&sid&"'")
while not RS.EOF
ssname= RS( 0 ).value
sspassword= RS( 1 ).value
sscardid=RS( 2 ).value
ssidcard=RS( 3).value
rs.movenext
wend
if ssname="" then
wscript.echo "没有此卡号"
else
wscript.echo "姓名:" & ssname & ",密码:"& sspassword & ",卡号:" &sscardid & ",身份证:" & ssidcard
end if
wscript.quit
3.查询万象2004 SQL版本的密码脚本内容:
do
sid=inputbox("请输入卡号:","查询万象密码")
if sid="" then
wscript.quit
elseif IsNumeric(sid)<>0 then
exit do
else
wscript.echo "您输入的卡号格式不正确"
end if
loop until(1<>1)
Set conn = wscript.CreateObject("ADODB.Connection")
abc="driver={sql server};server=192.168.0.233;uid=sa;pwd=123456;"&"database=wx2004;"
conn.open abc
Set RS = Conn.Execute( "SELECT sname,spassword,scardid,sidcard from tusers where scardid="&sid)
while not RS.EOF
ssname= RS( 0 ).value
sspassword= RS( 1 ).value
sscardid=RS( 2 ).value
ssidcard=RS( 3).value
rs.movenext
wend
if ssname="" then
wscript.echo "没有此卡号"
else
wscript.echo "姓名:" & ssname & ",密码:"& sspassword & ",卡号:" &sscardid & ",身份证:" & ssidcard
end if
wscript.quit
其实各版本只是连接数据库的方式不同，还是数据库的路径或IP，及sicent.mdw路径自行更改. |
