<%
'dim dbpath,conn,startime,db,rs,rs1,rs2,rs3,rs4,rs5,rs6,rs7,rs8,fw_chushou,fw_city,fw_quyu,fw_dizhi,fw_jiaotong,fw_leixing,fw_jiegou,fw_louceng,fw_mianji,fw_zhuangxiu,fw_jiage,fw_lxdh,fw_OICQ,fw_lxname,fw_fbri,fw_guoqi,fw_qtsm,fw_peitao,pud,pwd,pwd2,uname,xb,sfz,email,tel,tishi,tsda
db="data/dxtyftyh.asp"'这里修改数据库路径或名称
Set dsnstrcount = Server.CreateObject("ADODB.Connection")
dsnstrcount1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
dsnstrcount.Open dsnstrcount1
%>