<%
Dim ConnStr
ConnStr="Provider=Microsoft.Jet.Oledb.4.0;Data Source="& Server.MapPath("wsjk.mdb")
Set bb=Server.CreateObject("Adodb.Connection")
bb .Open ConnStr
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
</head>
<body><%
set rs =server.CreateObject("adodb.recordset")
rs.open "select * from sjkxx1",bb
if(rs.next){
%>
<%=rs("i_uid")%>
<%=rs("i_name")%>
<%=rs("i_sex")%>
<%=rs("i_age")%>
<%=rs("i_vip")%>
<%
}
%>
</body>
</html>