conn.asp

求职建站直通车

<% 
set con = Server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/yatang.asp")
con.open connstr
'-----------下以是网站全站信息-----------
set res=server.CreateObject("adodb.recordset")
sql="select * from basic"
res.open sql,con,1,1
if not res.eof then
dim name,sex,myyear,hight,tel,mtel,household,marry,address,nation,graduate,email,mytime,web,url,zip,z
web=res("web")                             '网站名称
address=res("address")                     '联系地址
url=res("url")                             '网站网址
tel=res("tel")                             '座机电话
sex=res("sex")                             '性别
zip=res("zip")                             '邮编
email=res("email")                         '邮箱
name=res("name")                           '姓名
mtel=res("mtel")                           '移动电话
marry=res("marry")                         '婚姻状态
myyear=res("myyear")                       '出生年月
mytime=res("mytime")                       '毕业时间
hight=res("hight")                         '身高
household=res("household")                 '户籍
nation=res("nation")                       '民族
graduate=res("graduate")                   '毕业学校
z=res("z")                                 '政治面貌
end if
res.close
%>