const.asp

努力在学在线考试系统

<%

dim db '设置缓存时间0
db="data\stud.mdb"

sub executenonquery(sql)
dim conn
dim connstr
set conn=server.CreateObject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source=" &_ server.MapPath(db)
conn.open connstr
conn.execute sql ,,adcmdtext
conn.close
set conn=nothing
end sub

function executequery(sql)  '执行sql，返回recordset对象。不能更新
dim conn
dim connstr
dim rs
set conn=server.CreateObject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source=" &_ server.MapPath(db)
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
rs.open sql ,conn,1,1
set executequery=rs
end function

function executequery1(sql)  '执行sql，返回recordset对象。可以更新
dim conn
dim connstr
dim rs
set conn=server.CreateObject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source=" &_ server.MapPath(db)
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,2,3
set executequery1=rs
end function

sub alert(msg)  '弹出对话框
response.Write("<script>window.alert("& msg &")</script>")
end sub

sub goback()  '还回上一页，判断信息提交是否完全
response.Write("<script>window.history.go(-1)</script>")
response.Write("<script>window.location.refresh()</script>")
end sub

su go(url)
response.Write("<script>window.location.href('"& url _ &"')</script>")
end sub
%>