正在加载图片...
示例程序 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>