www.pudn.com > QQ.zip > Config.asp, change:2009-07-11,size:443b


 
<% 
dim connq,dbq 
dim connstrq 
dbq="../../database/#qyky.mdb" '数据库文件位置 
on error resume next 
connstrq="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 
set connq=server.createobject("ADODB.CONNECTION") 
if err then 
err.clear 
else 
connq.open connstrq 
end if 
Set rs = Server.CreateObject("ADODB.Recordset") 
sqlq="Select * from Bs_SysData where code='5062942'" 
rs.Open sqlq,connq,1,1 
%>