📄 maxrecord_2.asp

📁 ASP入门与提高实用教程源文件(上传网站)

💻 ASP

字号:

<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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -