<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>VBScript 数据库连接练习</title>
<%
Dim strString
Dim rst
Dim rst_numRows
strString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=d:/YouWebDir/database/database.mdb"
strString = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("/YouWebDir/database/database.mdb")
Set rst = Server.CreateObject("ADODB.Recordset")
rst.ActiveConnection = strString
rst.Source = "SELECT * FROM user"
rst.CursorType = 0
rst.CursorLocation = 2
rst.LockType = 1
rst.Open()
rst_numRows = 0
%>
</head>
<body>
<p>本地连接字符串：<br>
"Driver={Microsoft Access Driver (*.mdb)};DBQ=d:/YouWebDir/database/database.mdb"</p>
<p>远程连接字符串：<br>
"Driver={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("/newgn/database/database.mdb")</p>
<p>数据库在服务器上的绝对位置：<br>
<%dim a
a = server.mappath("/YouWebDir/database/database.mdb")
response.write(a)
%>
<table border="1" cellspacing="1">
<tr bordercolor="1">
<th>id</th>
<th>name</th>
<th>pws</th>
<th>email</th>
<th>qq</th>
<th>icq</th>
<th>msn</th>
</tr>
<% While (NOT rst.EOF) %>
<tr bordercolor="1">
<th><%=(rst.Fields.Item("id").Value)%></th>
<th><%=(rst.Fields.Item("name").Value)%></th>
<th><%=(rst.Fields.Item("pws").Value)%></th>
<th><%=(rst.Fields.Item("email").Value)%></th>
<th><%=(rst.Fields.Item("qq").Value)%></th>
<th><%=(rst.Fields.Item("icq").Value)%></th>
<th><%=(rst.Fields.Item("msn").Value)%></th>
</tr>
<%
rst.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
rst.Close()
Set rst = Nothing
%>
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
