conn.asp

来自「一个小型ASP做的工资管理系统,这也是别人做的,我觉得他很地干静.」· ASP 代码 · 共 20 行

<%
set conn = server.CreateObject("adodb.connection")
on error resume next
conn.Open "driver={microsoft access driver (*.mdb)}; dbq=" & server.MapPath("date/#CYuser.mdb")

set rs2=server.createobject("adodb.recordset")
sql2="select * from [config]" 
rs2.open sql2,conn,1,1
webname=rs2("webname")
weburl=rs2("weburl")
webreg=rs2("webreg")
webopen=rs2("webopen")
webreg2=rs2("webreg2")
webreg3=rs2("webreg3")

if webopen<>"yes" then
response.write"网站暂时关闭，有问题请联系管理员。"
response.End
end if
%>