connsql.asp

来自「操作系统教程」· ASP 代码 · 共 40 行

ASP
40 行
字号 
<%@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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>

<%
	Set conn = Server.CreateObject("ADODB.Connection")
	
	conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("sc1.mdb")
	
	conn.open
	
	if conn.state = 1 then Response.Write("数据库打开成功！") end if
	
	Set rs = Server.CreateObject("ADODB.Recordset")
	Set rs.ActiveConnection = conn
	rs.CursorType = 3
	rs.open "select name from users"
	
	i =0
	DO while rs.eof = false
		Response.Write("<div>"&CStr(i+1)&"    " &rs.Fields("name").value&"</div>")
	rs.movenext
	loop
	
	conn.close
	
	if(conn.state = 0) then end if
	
	set conn = nothing
%>

</body>
</html>

connsql.asp - 源码说明

本页面展示了「操作系统教程」中的 connsql.asp 源码文件，采用 ASP 编程语言编写，共 40 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与操作系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?