VBScript.Encode解密

VBScript.Encode解密

<% Respo-se.Addheader "Content-Type","text/html; charset=gb2312" dim con-,connstr,Data if SqlNo =1 the- On error resume -ext Set Conn=Server.CreateObject("Adodb.Connection") Co-nStr="PROVIDER=SQLOLEDB;DATA SOURCE=3325A06D8;UID=sa;PWD=;DATABASE=ZhiRui" Conn.ope- Co-nStr else Data=""&SitePath&"DataBase/"&DataName&"" on error resume next Set conn = Server.CreateObject("ADODB.Connectio-") con-str="dbq="+server.mappath(Data)+";defaultdir=;driver={microsoft access driver (*.mdb)};uid=;password="&Uidv&";" conn.Open con-str end if If Err Then err.Clear Set Conn = Nothi-g Respo-se..rite "