|
#2
ysf01812014-02-28 16:41
|
<title>无标题文档</title>
</head>
<body>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("bzsjk.mdb")
下面是数据输出
Response.Write("<table width='100%' border='0' cellpadding='0' cellspacing='0'>") & vbCrLf
Response.Write(" <tr>") & vbCrLf
Response.Write(" <td>yhzh1</td>") & vbCrLf
Response.Write(" <td>yhmm2</td>") & vbCrLf
Response.Write(" <td>yhxm3</td>") & vbCrLf
Response.Write(" <td>yhjb4</td>") & vbCrLf
if conn.eof then
Response.Write("查无数据！")
Else
Do While Not conn.EOF
Response.Write(" <td>" & conn("yhzh") & "</td>") & vbCrLf
Response.Write(" <td>" & conn("yhmm") & "</td>") & vbCrLf
Response.Write(" <td>" & conn("yhjb") & "</td>") & vbCrLf
Response.Write(" <td>" & conn("yhxm") & "</td>") & vbCrLf
Response.Write(" </tr>") & vbCrLf
conn.MoveNext
Loop
End If
Response.Write("very good") & vbCrLf
'关闭数据库
conn.Close
Set conn = Nothing
%>