conn.asp

来自「用vc++编的认证系统」· ASP 代码 · 共 20 行

<%
	dim conn
	dim connstr
	dim db
	'更改数据库名字
	db="data\searchdata.asa"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
'如果你的服务器采用较老版本Access驱动，请用下面连接方法<br>
  connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
	conn.Open connstr
	sub closeconn()
      		conn.close
      		set conn=nothing
  	end sub
 sub delid(databasetable,tableid,id)
   conn.execute("delete from " &databasetable& " where "&tableid&"=" & id)
 end sub
%>