HTML code:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Untitled Page</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
</head>
<body>
<form id="form1" runat="server">
<div>
<% Dim myConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data source="&server.MapPath("dete/date.mdb") )
Dim mySelectQuery As String = "select [name] from user1"
Dim mycommand As New OleDbCommand(mySelectQuery, myConnection)
myConnection.Open()
Dim myReader As OleDbDataReader
myReader = mycommand.ExecuteReader()
myReader.Read()
Label1.Text = CStr(myReader.GetInt32(0)) + "," + myReader.GetString(1)
myReader.Close()
myConnection.Close()
%>
<input id=&qu
