% If IsObject(Conn) = false Then On Error Resume Next conndata="PROVIDER=SQLOLEDB;server=127.0.0.1;uid=suruitechodBC6893K!#%&(;pwd=HJKLMv7436%476Edf#*^@;DATABASE=newmft" conttstr="SQL" set conn = Server.CreateObject("ADODB.Connection") conn.Open conndata If Err.Number <> 0 Then Response.write "系统日常维护中!" Response.End() end if end if %>
![]() |
![]() |
![]() |
|