<
%@Import
Namespace
=
System.Data.OleDb%
>
<
%@Import
Namespace
=
System.Data%
>
<
%@PageLanguage
=
"
VB
"
ContentType
=
"
text/html
"
ResponseEncoding
=
"
gb2312
"
%
>
<
!DOCTYPEhtml
PUBLIC
"
-//W3C//DTDXHTML1.0Transitional//EN
"
"
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd
"
>
<
htmlxmlns
=
"
http://www.w3.org/1999/xhtml
"
>
<
head
>
<
metahttp
-
equiv
=
"
Content-Type
"
content
=
"
text/html;charset=gb2312
"
/>
<
title
>
無標題文檔
</
title
>
<
scriptlanguage
=
"
vb
"
runat
=
"
server
"
>
Dim
conn
As
OleDb.OleDbConnection
Dim
comm
As
OleDbCommand
Dim
rs
As
OleDb.OleDbdatareader
sub
page_load(sender
as
Object
,e
as
EventArgs)
conn
=
New
OleDb.OleDbConnection(
"
Provider=Microsoft.Jet.OLEDB.4.0;DataSource=e: etdbcs.mdb
"
)
'
conn=NewOleDb.OleDbConnection("Provider=Microsoft.ACE.oledb.12.0;Datasource=e: etdbcs.accdb")
conn.open()
comm
=
New
OleDbCommand(
"
select*fromuserlist
"
,conn)
rs
=
comm.Executereader()
dim
showcont
as
string
do
while
rs.read()
showcont
+=
rs(
"
username
"
)
&
"
----
"
&
rs(
"
tpnum
"
)
&
"
<br/>
"
loop
show.innerHTML
=
showcont
rs.close()
rs
=
nothing
comm
=
nothing
conn.close()
conn
=
nothing
endsub
</
script
>
</
head
>
<
body
>
<
spanid
=
"
show
"
runat
=
"
server
"
/>
</
body
>
</
html
>
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
