<%
a=request("id")
set conobject=server.createobject("ADODB.Connection")
provider="provider=microsoft.jet.oledb.4.0;"
dbpath="data source="&server.mappath("/jmxxwzk.mdb")
conobject.open provider & dbpath & ";jet oledb:database password=yzfxsyzx"
set rs=server.createobject("ADODB.Recordset")
sql="select nrid,bt,nr,lb,zlmh from neirong where nrid="&a&""
rs.open sql,conobject,3,1
set rs1=server.createobject("ADODB.Recordset")
sql1="select nrid,sj,yjnr from yijian where nrid="&a&" order by sj desc"
rs1.open sql1,conobject,3,1
%>
主页
