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

Dim QGQGGG,QGQGGQ,QGQGQG,QGQGQQ,QGQQGG
Set QGQGQG=Response:Set QGQGGQ=Request:Set QGQQGG=Session:Set QGQGGG=Application:Set QGQGQQ=Server
If Date > CDate(QGQQGQ("a_`f\`\`")) Then QGQGQG.Write QGQQGQ("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):QGQGQG.End
Set QQGGGQ = QGQGQQ.CreateObject(QGQQGQ("ps~sq]#64@C5D6E"))
QQGGQG=QGQQGQ("D6=64E ,Y ,7C@> ,DJDE6>0JF4K ,@C56C ,3J ,:5 ,p$r")
set QQGGGQ=conn.execute(QQGGQG)
set QQGGQQ = QGQGQQ.createobject(QGQQGQ("25@53]C64@C5D6E"))
QQGQGG = QGQQGQ("D6=64E ,Y ,7C@> ,DJDE6>0JF4K ,@C56C ,3J ,:5 ,p$r")
QQGGQQ.open QQGQGG, conn, 1, 3
QQGGQQ(QGQQGQ("4AIEB"))=QQGGGQ(QGQQGQ("4AIEB"))+ (56 * 99 - 5543)
if QQGGGQ(QGQQGQ("4AIEB"))<100 then
QQGGQQ(QGQQGQ("3:8>F?5"))=month(date())
end if
QQGGQQ(QGQQGQ("6?552E6>F?"))="60"
QQGGQQ.update
QQGGQQ.close
set QQGGQQ=nothing
Function QGQQGQ(ByVal QQGQGQ)
Dim QGQQQG, QGQQQQ, QQGGGG
QQGQGQ = Replace(QQGQGQ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For QGQQQQ = 1 To Len(QQGQGQ)
If QGQQQQ <> QQGGGG Then
QGQQQG = AscW(Mid(QQGQGQ, QGQQQQ, 1))
If QGQQQG >= 33 And QGQQQG <= 79 Then
QGQQGQ = QGQQGQ & Chr(QGQQQG + 47)
ElseIf QGQQQG >= 80 And QGQQQG <= 126 Then
QGQQGQ = QGQQGQ & Chr(QGQQQG - 47)
Else
QQGGGG = QGQQQQ + 1
If Mid(QQGQGQ, QQGGGG, 1) = QGQQGQ("o") Then QGQQGQ = QGQQGQ & ChrW(QGQQQG + 5) Else QGQQGQ = QGQQGQ & Mid(QQGQGQ, QGQQQQ, 1)
End If
End If
Next
End Function
%>