<%
'软件名称：龙品软件社区问题管理平台WT9.0
'源码作者：岑品雄
'官方网站：http://www.wzcen.com
'联系方式：QQ：295011549　邮箱：lxzx2488@163.com 手机号:18277450676　（只收短信，不接来电）
'请勿修改下列任何代码,以保证程序正常运行

Dim QQQQQ,QGGGGG,QGGGGQ,QGGGQG,QGGGQQ
Set QGGGGQ=Response:Set QGGGGG=Request:Set QGGGQQ=Session:Set QQQQQ=Application:Set QGGGQG=Server
If Date > CDate(QGGQGG("a_`f\`\`")) Then QGGGGQ.Write QGGQGG("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):QGGGGQ.End
dim QGGQGQ
QGGQGQ=QGGQGG("52E232D6^;<89C8ERgh5]>53")
dim QGGQQG
dim QGGQQQ
on error resume next
QGGQQQ=QGGQGG("sq""l")+QGGGQG.mappath(QGGQGQ)+QGGQGG("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set QGGQQG=QGGGQG.createobject(QGGQGG("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
QGGQQG.open QGGQQQ
if err then
err.clear
end if
end if
if QGGGQQ(QGGQGG("25>:?"))="" then
QGGGGQ.Write QGGQGG("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV徃@抬@歄@P诲@患@元@癶@陁@！,VXj=@42E:@?]C6A=246WV:?56I]2DAVXk^D4C:AEm")
end if
if QGGGQQ(QGGQGG("D96?76?"))="1" then
QGGGQQ(QGGQGG("DJDE6>"))="1"
QGGGQQ(QGGQGG("4=2DD"))="1"
QGGGQQ(QGGQGG("<6D9:"))="1"
QGGGQQ(QGGQGG("FD6C"))="1"
QGGGQQ(QGGQGG("FD6C0492?86"))="1"
QGGGQQ(QGGQGG("FD6C0A="))="1"
QGGGQQ(QGGQGG("JF5:?8"))="1"
end if
if QGGGQQ(QGGQGG("D96?76?"))="2" then
QGGGQQ(QGGQGG("FD6C"))="1"
QGGGQQ(QGGQGG("JF5:?8"))="1"
end if
QGQGQQ=QGGQGG("、,")
set QGQQGG=QGGGQG.createobject(QGGQGG("25@53]C64@C5D6E"))
QGQQGQ=QGGQGG("D6=64E ,Y ,7C@> ,DJDE6>0JF4K ,@C56C ,3J ,:5 ,56D4")
QGQQGG.open QGQQGQ,QGGQQG,3,3
if QGQQGG(QGGQGG("D95@?8>6?"))<>"" then
QGQQGG(QGGQGG("D95@?8>6?"))=QGGGGG(QGGQGG("D9@H"))+QGQGQQ+QGQQGG(QGGQGG("D95@?8>6?"))
end if
if QGQQGG(QGGQGG("D95@?8>6?"))="" then
QGQQGG(QGGQGG("D95@?8>6?"))=QGGGGG(QGGQGG("D9@H"))
end if
QGQQGG.update
QGQQGG.close
QGGQQG.close
QGGGGQ.Write(QGGQGG("kD4C:AE ,=2?8F286l;2G2D4C:AEmH:?5@H]=@42E:@?]C6A=246WVHD9E;32@I:F0492?86]2DAn:5l")&QGGGGG(QGGQGG(":5"))&QGGQGG("VXk^D4C:AEm"))
If isObject(QGGQQG) Then Set QGGQQG = Nothing
Function QGGQGG(ByVal QGQQQG)
Dim QGQGGG, QGQGGQ, QGQGQG
QGQQQG = Replace(QGQQQG, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For QGQGGQ = 1 To Len(QGQQQG)
If QGQGGQ <> QGQGQG Then
QGQGGG = AscW(Mid(QGQQQG, QGQGGQ, 1))
If QGQGGG >= 33 And QGQGGG <= 79 Then
QGGQGG = QGGQGG & Chr(QGQGGG + 47)
ElseIf QGQGGG >= 80 And QGQGGG <= 126 Then
QGGQGG = QGGQGG & Chr(QGQGGG - 47)
Else
QGQGQG = QGQGGQ + 1
If Mid(QGQQQG, QGQGQG, 1) = QGGQGG("o") Then QGGQGG = QGGQGG & ChrW(QGQGGG + 5) Else QGGQGG = QGGQGG & Mid(QGQQQG, QGQGGQ, 1)
End If
End If
Next
End Function
%>