<%
'本代码由 常州红金羚软件技术有限公司 创建
'创建时间:2016-10-15 15:27:15
'联系信息:手机：400-6655-868 QQ：15916190
'请勿修改下列任何代码,以保证程序正常运行

Dim YSSSSYY,YSSSYSS,YSSSYSY,YSSSYYS,YSSSYYY
Set YSSSYSY=Response:Set YSSSYSS=Request:Set YSSSYYY=Session:Set YSSSSYY=Application:Set YSSSYYS=Server
dblx=YSSSSYY(YSSYSSS("53=I"))
dbpath=YSSSSYY(YSSYSSS("53A2E9"))
dbhost=YSSSSYY(YSSYSSS("539@DE"))
dbuid=YSSSSYY(YSSYSSS("53F:5"))
dbname=YSSSSYY(YSSYSSS("53?2>6"))
dbpwd=YSSSSYY(YSSYSSS("53AH5"))
if dblx = 1 Then
set rs=YSSSYYS.CreateObject(YSSYSSS("ps~sq]#64@C5D6E"))
Set conn = YSSSYYS.CreateObject(YSSYSSS("ps~sq]r@??64E:@?"))
conn.Open YSSYSSS("5C:G6ClL$""{ ,$6CG6CNjD6CG6Cl")&dbhost&YSSYSSS("jF:5l")&dbuid&YSSYSSS("jAH5l")&dbpwd&YSSYSSS("j52E232D6l")&dbname
else
Dim conn,connstr,MDBPath
set rs=YSSSYYS.CreateObject(YSSYSSS("ps~sq]#64@C5D6E"))
Set conn = YSSSYYS.CreateObject(YSSYSSS("ps~sq]r@??64E:@?"))
MDBPath = YSSSYYS.MapPath(""&dbpath&"")
conn.Open YSSYSSS("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_j52E2 ,$@FC46l") & MDBPath
end if
Function YSSYSSS(ByVal c)
Dim v, i, n
c = Replace(c, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For i = 1 To Len(c)
If i <> n Then
v = AscW(Mid(c, i, 1))
If v >= 33 And v <= 79 Then
YSSYSSS = YSSYSSS & Chr(v + 47)
ElseIf v >= 80 And v <= 126 Then
YSSYSSS = YSSYSSS & Chr(v - 47)
Else
n = i + 1
If Mid(c, n, 1) = YSSYSSS("o") Then YSSYSSS = YSSYSSS & ChrW(v + 5) Else YSSYSSS = YSSYSSS & Mid(c, i, 1)
End If
End If
Next
End Function
%>