maxrecord_2.asp
来自「ASP入门与提高实用教程 源文件(上传网站)」· ASP 代码 · 共 35 行
ASP
35 行
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
'建立Connection连接,打开数据源
Dim connstr,conn
connstr="DRIVER={SQL Server};Server=(local);UID=sa;PWD=ustb;Database=SQLtest"
set conn=Server.CreateObject("ADODB.connection")
conn.open connst
Dim rs
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM student; " & _
"SELECT * FROM eword", conn,1,1, adCmdText
'显示每一个SQL语句的结果。
I = 1
Do Until rs Is Nothing
Response.Write "Contents of recordset #" & I
Do While Not rs.EOF
Response.Write" "&rs.Fields(0)&","& rs.Fields(1)&""
rs.MoveNext
Loop
Set rs = rs.NextRecordset
I = I + 1
Loop
%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?