您的位置--
首页
--
集团管理
--
集团财务管理系统
进入管理系统—>
用户名
密码
财 经 导 读
日期
文 章 名 称
<% Set conn = Server.CreateObject("ADODB.Connection") usePath = Server.MapPath("zjgdbb.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};Pwd=ilovesundy;dbq=" & usePath sql1 = "select * from wjm" Set rs1 = conn.Execute (sql1) while not rs1.eof wjm=rs1.fields(0) wjn=rs1.fields(1) wjy=rs1.fields(2) wjr=rs1.fields(3) wj=wjn & wjy & wjr response.write "
" & wjn & "年" & wjy & "月" & wjr & "日
" response.write "
" & wjm & "
" rs1.movenext wend %>