6-09.asp

来自「包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL」· ASP 代码 · 共 17 行

ASP
17
字号
<HTML> <BODY>
<%
	set conn = Server.CreateObject("ADODB.Connection")
	conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
		Server.MapPath("person.mdb"))
	set cmd = Server.CreateObject("ADODB.Command")
	cmd.ActiveConnection = conn
	sql = "SELECT * FROM grade WHERE 数学 < 200"
	cmd.CommandText = sql
	set rs = cmd.Execute()
	rstotab(rs) 
%> 
<%
Function rstotab(rs)
	Response.write ("<TABLE BORDER=1>")
	Response.write ("<TR>")
	' Part I

⌨️ 快捷键说明

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