日期:2014-05-16 浏览次数:20826 次
<%
on error resume next
set conn=Server.CreateObject("Adodb.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("..\rdcenter.mdb")
‘conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &"F:\zzjs\rdcenter.mdb"
response.Write err.description
%>
If Err Then
Response.write " 错误 Number:" &Err.Number&""
Response.write " 错误信息:" &Err.Description&""
Response.write " 错误文件:" &Err.Source&""
Response.write " 错误行号:" &Err.Line&""
Err.Clear
Else
Conn.Open ConnStr
End If
6) <!--#include file="noview.asp"-->
7) <!--#include file="conn.asp"-->
8) <meta http-equiv="Content-Language" content="zh-cn">
9) <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
10) <link href="style.css" rel="stylesheet" type="text/css" />
11) <head>
12) <title>系统设置</title>
13) </head>
14) <%
15) if session("userrole")="SYSTEMMANAGER" then
16) else
17) set rs=server.createobject("adodb.recordset")
18) rs.open "select manager from s_treeset where systemid='"&request("systemid")&"'",conn,1,1
19) if not rs.eof then
20) if rs(0)="" or isnull(rs(0)) then
21) response.write "<script language=javascript>"
22)