handling database using asp.asp

来自「Handling database in ASP」· ASP 代码 · 共 39 行

<%@ Language = VBScript %>
<% option explicit %>
<!-- #INCLUDE virtual ="adovbs.inc" -->
<%
	dim objconn
	dim aConnectionString
	aConnectionString = "PROVIDER=Microsoft Access Driver(*.mdb);Data" _
	& "Source = c:\My Documents\student.mdb"
	set objconn = server.CreateObject ("ADODB.connection")
	objconn.Mode = adModeReadWrite
	objconn.ConnectionString = aConnectionString
	objconn.Open 
	
	dim objrs
	set objrs = server.CreateObject ("ADODB.Recordset")
	objrs.Open "student",objconn,,,adcmdtable
	
	do while NOT objrs.EOF 
	Response.Write "<b>" & objrs("lname") & "</b><br>"
	Response.Write "<b>" & objrs("fname") & "</b><br>"
	Response.Write "<b>" & objrs("department") & "</b><br>"
	Response.Write "<b>" & objrs("date") & "</b><br>"
	Response.Write "<b>" & objrs("address") & "</b><br>"
	Response.Write "<b>" & objrs("class") & "</b><br>"
	Response.Write "<b>" & objrs("ads") & "</b><br>"
	Response.Write "<b>" & objrs("ct") & "</b><br>"
	Response.Write "<b>" & objrs("wt") & "</b><br>"
	Response.Write "<b>" & objrs("mcomp") & "</b><br>"
	Response.Write "<b>" & objrs("is") & "</b><br>"
	
	objrs.MoveNext 
	loop
	
	objrs.Close 
	set objrs = Nothing
	objconn.Close 
	set objconn = Nothing
%>