VBScript.Encode 암호 해독

lt;

respo-se.addheader "컨텐트 유형", "텍스트/html; Charset=gb2312"

dim con-, connstr, data

if SQL no = 1 the-

conn.ope-co-nstr

else

data SitePathamp；; "데이터베이스/"amp; 데이터 이름 amp; "

on error resume next

set conn = server.createobject ("adodb.connect Defaultdir =; 드라이버 = {Microsoft access driver (*. MDB)}; Uid =; Password="amp；; Uidvamp；; ";"

conn.opencon-str

end if

if err then

Div style =' margi-:100 px; Fo-t-size: 14px; Text-alig-:ce-ter' gt; 데이터베이스 연결에 오류가 있습니다. 데이터베이스 이름과 경로가 올바른지 확인하십시오. Lt; /div gt; "

response.end

end if

funconn

if power > Divalig-= ce-ter gt; Lt; Brgt；; 죄송합니다. 사이트가 유지 보수 중입니다. 잠시만 기다려 주십시오. LT; Brgt；; Lt; /div gt; "

response.end

else

callalert ("페이지가 점프하는 중 ...", "" Pagesamp；; "")

end if

end if

gt;