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

Dim QGQQQG,QGQQQQ,QQGGGG,QQGGGQ,QQGGQG
Set QQGGGG=Response:Set QGQQQQ=Request:Set QQGGQG=Session:Set QGQQQG=Application:Set QQGGGQ=Server
If Date > CDate(QQGGQQ("a_`f\`\`")) Then QQGGGG.Write QQGGQQ("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):QQGGGG.End
dim QQGQGG
QQGQGG=QQGGQQ("52E232D6^;<89C8ERgh5]>53")
dim QQGQGQ
dim QQGQQG
on error resume next
QQGQQG=QQGGQQ("sq""l")+QQGGGQ.mappath(QQGQGG)+QQGGQQ("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set QQGQGQ=QQGGGQ.createobject(QQGGQQ("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
QQGQGQ.open QQGQQG
if err then
err.clear
end if
end if
if QQGGQG(QQGGQQ("25>:?"))="" then
QQGGGG.Write QQGGQQ("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV徃@抬@歄@P诲@患@元@癶@陁@！,VXj=@42E:@?]C6A=246WV:?56I]2DAVXk^D4C:AEm")
end if
if QQGGQG(QQGGQQ("D96?76?"))="1" then
QQGGQG(QQGGQQ("DJDE6>"))="1"
QQGGQG(QQGGQQ("4=2DD"))="1"
QQGGQG(QQGGQQ("<6D9:"))="1"
QQGGQG(QQGGQQ("FD6C"))="1"
QQGGQG(QQGGQQ("FD6C0492?86"))="1"
QQGGQG(QQGGQQ("FD6C0A="))="1"
QQGGQG(QQGGQQ("JF5:?8"))="1"
end if
if QQGGQG(QQGGQQ("D96?76?"))="2" then
QQGGQG(QQGGQQ("FD6C"))="1"
QQGGQG(QQGGQQ("JF5:?8"))="1"
end if
if QGQQQQ.QueryString(QQGGQQ("DEJ=6"))=QQGGQQ("FA52E6") then
QGGGGGQ=QQGGQQ("__i__i_`")
QGGGGQG=QQGGQQ("abidhidh")
Dim QQGQQQ, QQQGGG, QQQGGQ, QQQGQG, QQQGQQ, QQQQGG, QQQQGQ
Randomize
QQGQQQ = Year(QGQQQQ.Form(QQGGQQ("368:?52E6`")))
QGGGGQQ = Year(QGQQQQ.Form(QQGGQQ("6?552E6`")))
QQQGGG = Month(QGQQQQ.Form(QQGGQQ("368:?52E6`"))): If QQQGGG < 10 Then QQQGGG = "0" & QQQGGG
QGGGQGG = Month(QGQQQQ.Form(QQGGQQ("6?552E6`"))): If QGGGQGG < 10 Then QGGGQGG = "0" & QGGGQGG
QQQGGQ = Day(QGQQQQ.Form(QQGGQQ("368:?52E6`"))): If QQQGGQ < 10 Then QQQGGQ = "0" & QQQGGQ
QGGGQGQ = Day(QGQQQQ.Form(QQGGQQ("6?552E6`"))): If QGGGQGQ < 10 Then QGGGQGQ = "0" & QGGGQGQ
QQQGQG = Hour(QGGGGGQ): If QQQGQG < 10 Then QQQGQG = "0" & QQQGQG
QGGGQQG = Hour(QGGGGQG): If QGGGQQG < 10 Then QGGGQQG = "0" & QGGGQQG
QQQGQQ = Minute(QGGGGGQ): If QQQGQQ < 10 Then QQQGQQ = "0" & QQQGQQ
QGGGQQQ = Minute(QGGGGQG): If QGGGQQQ < 10 Then QGGGQQQ = "0" & QGGGQQQ
QQQQGG = Second(QGGGGGQ): If QQQQGG < 10 Then QQQQGG = "0" & QQQQGG
QGGQGGG = Second(QGGGGQG): If QGGQGGG < 10 Then QGGQGGG = "0" & QGGQGGG
QQQQGQ = (35 * 68 - 2380)
QQQQGQ = CInt(Rnd() * 10000)
If QQQQGQ < 10 Then QQQQGQ = "0000" & QQQQGQ
If QQQQGQ < 1000 And QQQQGQ >= 10 Then QQQQGQ = "0000" & QQQQGQ
QGGQGGQ = QQGQQQ & QQQGGG & QQQGGQ & QQQGQG & QQQGQQ & QQQQGG
QGGQGQG = QGGGGQQ & QGGGQGG & QGGGQGQ & QGGGQQG & QGGGQQQ & QGGQGGG
set QGGQGQQ=QQGGGQ.createobject(QQGGQQ("25@53]C64@C5D6E"))
QGGQQGG=QQGGQQ("D6=64E ,Y ,7C@> ,DJDE6>0JF4K ,H96C6 ,:5l") & QGQQQQ.form(QQGGQQ(":5"))
QGGQGQQ.open QGGQQGG,QQGQGQ,3,3
QGGQGQQ(QQGGQQ("368:?52E6"))=QGGQGGQ
QGGQGQQ(QQGGQQ("6?552E6"))=QGGQGQG
QGGQGQQ.update
QGGQGQQ.close
QQGQGQ.close
QGGQQGQ = QGGQGQQ(QQGGQQ(":5"))
QQGGGG.Write(QQGGQQ("kD4C:AE ,=2?8F286l;2G2D4C:AEmH:?5@H]=@42E:@?]9C67lVFD6C0=6:I:?8E;]2DAn368:?52E6l")&QGGQGGQ&QQGGQQ("U6?552E6l")&QGGQGQG&QQGGQQ("Vjk^D4C:AEm"))
end if
If isObject(QQGQGQ) Then Set QQGQGQ = Nothing
Function QQGGQQ(ByVal QGGQQQG)
Dim QQQQQG, QQQQQQ, QGGGGGG
QGGQQQG = Replace(QGGQQQG, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For QQQQQQ = 1 To Len(QGGQQQG)
If QQQQQQ <> QGGGGGG Then
QQQQQG = AscW(Mid(QGGQQQG, QQQQQQ, 1))
If QQQQQG >= 33 And QQQQQG <= 79 Then
QQGGQQ = QQGGQQ & Chr(QQQQQG + 47)
ElseIf QQQQQG >= 80 And QQQQQG <= 126 Then
QQGGQQ = QQGGQQ & Chr(QQQQQG - 47)
Else
QGGGGGG = QQQQQQ + 1
If Mid(QGGQQQG, QGGGGGG, 1) = QQGGQQ("o") Then QQGGQQ = QQGGQQ & ChrW(QQQQQG + 5) Else QQGGQQ = QQGGQQ & Mid(QGGQQQG, QQQQQQ, 1)
End If
End If
Next
End Function
%>