adoconn.asp

来自「该系统可对信息系统尽行有效的分类管理」· ASP 代码 · 共 13 行

<%
if Session("iswelcome") <> TRUE then
    Response.Write("管理员登录页面：")
	Response.Write("<form ACTION=admdefault.asp METHOD=POST NAME=formSignUp>")
	Response.Write("<p>用户：<input type=text size=8 name=name>密码：<input type=Password size=8 name=pwd> <input type=submit name=cmdOk value=确定 ONCLICK=javascript:return checksignup()>") 
    Response.Write("</form>")
    Response.End
end if

dim objConn
set objConn=server.createobject("adodb.connection")
objConn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("../data5.mdb")
%>