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

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