Response
http://www.roc3000.com/zxjc/showArticle.asp?articleid=1658
Connection data:
<% @ Page language = "vb"%>
<% @ Import namespace = "system.data"%>
<% @ Import namespace = "system.data.oledb"%>
SUB Page_Load ()
DIM MyConnection As OledbConnection
DIM MyCommand as Oledbcommand
DIM MyDataReader AS OledbDataReader
MyConnection = New OLEDBCONNECTION ("provider = microsoft.jet.Oledb.4.0; data source =" server.mappath ("Database.mdb")))
MyConnection.Open ()
MyCommand = New OLEDBCommand ("Select * from aa", myconnection)
'mycommand.executeenonquery ()
MyDataReader = MyCommand.executeReader
IF mydataareader.read () THEN
'id.text = convert.toString (MyDataReader ("Art_TITLE"))
Response.write (Convert.TOString (MyDataReader ("Art_TITLE"))))))
END IF
End Sub
script>
hEAD>