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

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