find<%
dim CON,isdebug
set con=server.CreateObject("adodb.connection")
on error resume next
dim sql,rs,i
sql = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("student.mdb")
con.Open sql
set rs=server.createobject("adodb.recordset")
sql="select * from student"
rs.open sql,con,3,1
%>
請選擇姓名:
<%
if myvar=onclick then
%>
個人資料
成績單
查詢
返回
