conn.asp

来自「一个基于ＡＳＰ的学生管理系统」· ASP 代码 · 共 28 行

<%@ LANGUAGE="VBSCRIPT"%>
<%
  Response.Buffer = True  
  Response.ExpiresAbsolute = Now() - 1  
  Response.Expires = 0  
  Response.CacheControl = "no-cache" 
  session.Timeout=50
	dim startime
	dim conn
	dim connstr
	dim db
	dim strig
	startime=timer()
	'更改数据库名字
	db="data/studb.mdb"
sub openDB
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	conn.Open connstr
	Set Rs=Server.CreateObject("ADODB.Recordset")
end Sub
function CloseDB
	Conn.close
	Set conn = Nothing
End Function
%>