62,268
社区成员
发帖
与我相关
我的任务
分享<script language=vbscript runat=server>
Sub application_onstart
dim dsn
dsn="driver={microsoft access driver(*.mdb)};dbq="&server.mappath("studentinfo.mdb")
application.lock
application("dsn")=dsn
application.unlock
End Sub
</script>
<script language=vbscript runat=server>
sub application_onend
End Sub
</script>
<script language=vbscript runat=server>
SUB Session_OnStart
'session("id")=now()
End Sub
</script>
<script language=vbscript runat=server>
SUB Session_OnEnd
End Sub
</script>
<%@ language=vbscript %>
<%
response.buffer=true
dsn=application("dsn")
dim conn
set conn=server.createobject("adodb.connection")
conn.open dsn //===================这是第7行
dim name,age,address
name=request.form("user")
age=request.Form("age")
address=request.Form("address")
%>