dataconn.asp

成绩管理代码 采取的研究方法：采用网络编程技术

<%
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) & ";User Id=admin;Jet OLEDB:Database Password=[e-mail];"
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
%>