📄 test.asp

📁 asp+Access开发的客户资源管理系统,用户名:admin,密码:

💻 ASP

字号:

<%
	set conn=server.createobject("adodb.connection")
		conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=webcool_2000;dbq=" & Server.MapPath("../database/customer.mdb")

	Set rs = Server.CreateObject("ADODB.Recordset")
	sql="select * from quanxian"
	rs.Open sql,conn,3

	if not Rs.eof and not Rs.bof then
	msgarr=Rs.getrows()
	end if
' response.write strsql
	Rs.close
	set Rs=nothing	
%>
<%
	if not isempty(msgarr) then
	for i=0 to ubound(msgarr,2)
	%>
<html>
	<%=msgarr(0,i)%><br>
	<%=msgarr(1,i)%><br>
	<%=msgarr(2,i)%><br>
	<%
	next
	end if
	%>
<script language="JavaScript">                                                                  </script></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -