dataconn.asp

来自「成绩管理代码 采取的研究方法：采用网络编程技术」· ASP 代码 · 共 19 行

<%
'dim dbpath,conn,connstr
dbpath="../data/yzbzcj2007.mdb"
set conn=Server.Createobject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Dbpath)
conn.Open connstr

Function CloseDatabase()
  conn.Close
  Set conn=Nothing
End Function

function changechr(str) 
    changechr=replace(replace(replace(replace(str,"<",""),">",""),chr(13),"")," ","") 
    changechr=replace(replace(replace(replace(changechr,"'",""),chr(34),""),"insert",""),"and","") 
    changechr=replace(replace(replace(replace(changechr,"select",""),"update",""),"delete%20from",""),"exec","") 
    changechr=replace(replace(replace(replace(changechr,"mid",""),"truncate",""),"declare",""),"*","")
end function
%>