seec基本句型三 Select字段串列from数据表 order by字段串列 如: Select from成绩单 order by gre Select*fom成绩单 order by gre,toef Select* from成绩单 order by tse desc Select top5*fom成绩单 东学取业学院
Select基本句型三 • Select 字段串列 from 数据表 order by 字段串列 • 如： – Select * from 成绩单 order by gre – Select * from 成绩单 order by gre,toefl – Select * from 成绩单 order by tse desc – Select top 5 * from 成绩单
示例程序 5-11.asp <l-#include file=rstotab. asp--> DB =Request(DB") If DB= Empty Then DB ="Sample. mdb SQL =R SQL fSQL= Empty Then SQL=" Select*From成绩单 Set conn Server CreateObject("ADODB Connection") conn Open driver= Microsoft Access Driver(mdb) dbq="& Server MapPath(db) rS <HTML> <BODY bgcolor=be eg <FORM Action=5-11.asp"Method=POST 数据库:< INPUT Type= Text Name= DB Value="<%DB%"><BR> Ha<: <INPUT Type=Text Name=SQL Size =60 Value="<%=SQL%>"><P> < NPUT Type= Submit Value="执行"> </FORM> < if Not(rs is Nothing)Then % < rstotable rs%> :%Else <HR>< FONT Color=Red> Select指令错误!</FONT> <%End If%> </BODY> </HIML> 东学取业学院
示例程序5-11.asp <!--#include file=rstotab.asp --> <% DB = Request("DB") If DB = Empty Then DB = "Sample.mdb" SQL = Request("SQL") If SQL = Empty Then SQL = "Select * From 成绩单" Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db) Set rs = conn.Execute( sql ) %> <HTML> <BODY bgcolor=beige> <FORM Action="5-11.asp" Method=POST> 数据库：<INPUT Type=Text Name=DB Value="<%=DB%>"><BR> 指令：<INPUT Type=Text Name=SQL Size = 60 Value="<%=SQL%>"><P> <INPUT Type=Submit Value=" 执行"> </FORM> <% If Not (rs Is Nothing) Then %> <% rstotable rs%> <%Else%> <HR><FONT Color=Red>Select 指令错误!</FONT> <%End If%> </BODY> </HTML>