正在加载图片...
网站精确查询系统程序-andp I--tinclude file=rstotab. asp--> % DB="Sample. mdb name= Request(name") sQL=" Select*From成绩单 where姓名="&name&" response. write sql Set conn= Server CreateObject("ADODB Connection") conn Open"driver= Microsoft Access Driver ( mdb)]: dbg=& Server. MapPath(db) Set rs= conn Execute( sql) % HTML <BODY bgcolor=beige> <% If Not(rs Is Nothing) Then % < rstotable rs <%Else%> <HR>< FonT Color=Red> Select指令错误!</FONT <%End If%> </BODY> </HTML> 东学取业学院网站精确查询系统程序二handle.asp <!--#include file=rstotab.asp --> <% DB = "Sample.mdb" name = Request("name") SQL = "Select * From 成绩单 where 姓名='"&name&"'" response.write sql 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> <% If Not (rs Is Nothing) Then %> <% rstotable rs%> <%Else%> <HR><FONT Color=Red>Select 指令错误!</FONT> <%End If%> </BODY> </HTML>