📄 access_asp_data.asp
字号:
<!--#include file="inc/VBScript_conn.asp" -->
<%
' Option Explicit
' Dim cn
Dim cmd
Dim rs
Dim cont
' Set cn = Server.CreateObject("ADODB.Connection")
' cn.ConnectionString = "db1"
' cn.Open
Set cmd = Server.CreateObject("ADODB.Command")
' cmd.ActiveConnection = cn
cmd.ActiveConnection =conn
cmd.CommandType = 1
cmd.CommandText = "SELECT member, descri, memberaddress,picture FROM member"
Set rs = cmd.Execute
cont=0
Do Until rs.EOF
Response.Write "member"&cont&"="& rs("member") & "&" &"descri"&cont&"="& rs("descri") &"&" &"memberaddress"&cont&"="& rs("memberaddress") & "&" &"picture"&cont&"="& rs("picture")& "&"
cont = cont+1
rs.MoveNext
Loop
Response.Write "count="&cont
rs.Close
' cn.Close
conn.Close
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -