<
%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>lovehui</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
dim conn,sql,rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("lovehui.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * From lovehui"
rs.Open sql,conn,1,1
do while not rs.EOF
response.Write"<br>"
for i=0 to rs.Fields.count-1
Response.Write rs.Fields(i).value
next
response.Write"<br>"
rs.MoveNext
loop
rs.Clone
set rs=nothing
conn.Close
set conn=nothing
%>
</html>
