userconn.inc

来自「在线订单系统」· INC 代码 · 共 11 行

<%
'session("admin")="admin"
'if session("admin")<>"admin" then 
'response.write "Sorry,您在非法登陆！"
'response.end
'else
Set Conn=Server.CreateObject("ADODB.Connection") 
Connstr="DBQ="+server.mappath("database.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}" 
Conn.Open connstr 
'end if
%>