conn.asp

web 斗地主 用asp+access+ajax+css+js

<%
dim conn,dbpath
   	set conn=server.createobject("adodb.connection")
    dbpath="DBQ="+server.mappath("ddx.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
	conn.Open  dbpath
  if session("zifu")="" then
	set rs=server.createobject("adodb.recordset")
    sql="select * from zifu order by z_id"
    rs.open sql,conn,1,1
     do while not rs.eof
	  session("zifu"&rs("z_id"))=rs("zifu")
      rs.movenext                                     
     loop                                                                    
   rs.close
  end if
%>