piccon.asp

来自「学校智能办公系统 1、系统包含成绩学籍管理、公文管理、电子备课、教职工管理、」· ASP 代码 · 共 20 行

<%
dim piccon
dim picconstr
on error resume next
'picconstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("/picc/db/cqdjcxxxnophoto.mdb")
picconstr="DBQ="+server.mappath("/picc/db/cqdzphotodata.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set piccon=server.createobject("ADODB.CONNECTION")
piccon.open picconstr
sub rsclose
   rs.close
   set rs=nothing
end sub
sub picconclose
   piccon.close
   set piccon=nothing
end sub
%>