没有问题的,你用数据连接就是啦
<%
Set con = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("../db/data.mdb")
con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath & ";DriverId=25;FIL=MSAccess"
Set rs1 = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT num FROM userdata where num=" & num
rs1.Open SQL,Con,1,3
if rs1.bof and rs1.eof then
response.write ""
response.end
end if
rs1.close
set rs1=nothing