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

Dim YSYYSY,YSYYYS,YSYYYY,YYSSSS,YYSSSY
Set YSYYYY=Response:Set YSYYYS=Request:Set YYSSSY=Session:Set YSYYSY=Application:Set YYSSSS=Server
dblx=YSYYSY(YYSSYS("53=I"))
dbpath=YSYYSY(YYSSYS("53A2E9"))
dbhost=YSYYSY(YYSSYS("539@DE"))
dbuid=YSYYSY(YYSSYS("53F:5"))
dbname=YSYYSY(YYSSYS("53?2>6"))
dbpwd=YSYYSY(YYSSYS("53AH5"))
if dblx = 1 Then
set rs=YYSSSS.CreateObject(YYSSYS("ps~sq]#64@C5D6E"))
Set conn = YYSSSS.CreateObject(YYSSYS("ps~sq]r@??64E:@?"))
conn.Open YYSSYS("5C:G6ClL$""{ ,$6CG6CNjD6CG6Cl")&dbhost&YYSSYS("jF:5l")&dbuid&YYSSYS("jAH5l")&dbpwd&YYSSYS("j52E232D6l")&dbname
else
Dim conn,connstr,MDBPath
set rs=YYSSSS.CreateObject(YYSSYS("ps~sq]#64@C5D6E"))
Set conn = YYSSSS.CreateObject(YYSSYS("ps~sq]r@??64E:@?"))
MDBPath = YYSSSS.MapPath(""&dbpath&"")
conn.Open YYSSYS("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_j52E2 ,$@FC46l") & MDBPath
end if
if SelectCharset = 1 then
YSYYYY.Addheader YYSSYS("r@?E6?E\%JA6"),YYSSYS("E6IE^9E>=j ,492CD6El83ab`a")
else
YSYYYY.CharSet=YYSSYS("vqab`a")
end if
YSYYYY.ContentType=YYSSYS("E6IE^I>=")
item= Replace(Trim(YSYYYS(YYSSYS(":E6>"))),YYSSYS("V"),"")
if item<>"" then
sql=YYSSYS("D6=64E ,E@A ,`_ ,4r@>A2?J ,7C@> ,,w@<:==J0<69F. ,H96C6 ,4r@>A2?J ,=:<6 ,VT")&item&YYSSYS("TV ,@C56C ,3J ,4:5 ,56D4")
rs.open sql,conn,1,1
str=YYSSYS("knI>= ,G6CD:@?lQ`]_Q ,6?4@5:?8lQ83ab`aQnm")&vbnewline
str=str&YYSSYS("kC@@Em")&vbnewline
If rs.RecordCount = 0 Then
str=str&YYSSYS("k>6DD286 ,:5lQ`Qm")&vbnewline
str=str&YYSSYS(" , ,kE6IEm儼@讳@彐@兠@k^E6IEm")&vbnewline
str=str&YYSSYS("k^>6DD286m")&vbnewline
else
str=str&YYSSYS("k>6DD286 ,:5lQ`Qm")&vbnewline
str=str&YYSSYS(" , ,kE6IEm兮@门@k^E6IEm")&vbnewline
str=str&YYSSYS("k^>6DD286m")&vbnewline
end if
If rs.eof Then
Else
i= (57 * 16 - 911)
Do While Not rs.eof
str=str&YYSSYS("k>6DD286 ,:5lQ")&i&YYSSYS("Qm")&vbnewline
str=str&YYSSYS(" , ,kE6IEm")&rs(0)&YYSSYS("k^E6IEm")&vbnewline
str=str&YYSSYS("k^>6DD286m")&vbnewline
i=i+ (57 * 16 - 911)
rs.movenext
loop
End If
str=str&YYSSYS("k^C@@Em")
rs.close
YSYYYY.write str
end if
Function YYSSYS(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
YYSSYS = YYSSYS & Chr(v + 47)
ElseIf v >= 80 And v <= 126 Then
YYSSYS = YYSSYS & Chr(v - 47)
Else
n = i + 1
If Mid(c, n, 1) = YYSSYS("o") Then YYSSYS = YYSSYS & ChrW(v + 5) Else YYSSYS = YYSSYS & Mid(c, i, 1)
End If
End If
Next
End Function
%>