<%
'软件名称：龙品软件社区问题管理平台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
Sub QQGQGG()
dim QQQGQQ
QQQGQQ=QQGGQQ("52E232D6^;<89C8ERgh5]>53")
dim QQQQGG
dim QQQQGQ
on error resume next
QQQQGQ=QQGGQQ("sq""l")+QQGGGQ.mappath(QQQGQQ)+QQGGQQ("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set QQQQGG=QQGGGQ.createobject(QQGGQQ("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
QQQQGG.open QQQQGQ
if err then
err.clear
end if
end if
Set QGGGGGQ = QQGGGQ.CreateObject(QQGGQQ("ps~sq]#64@C5D6E"))
QGGGGQG=QQGGQQ("D6=64E ,Y ,7C@> ,DJDE6>0JF4K ,@C56C ,3J ,:5 ,p$r")
set QGGGGGQ=QQQQGG.execute(QGGGGQG)
set QGGGGQQ=QQGGGQ.createobject(QQGGQQ("25@53]C64@C5D6E"))
QGGGGQG=QQGGQQ("D6=64E ,Y ,7C@> ,3F>6?2 ,@C56C ,3J ,xs ,")
QGGGGQQ.open QGGGGQG,QQQQGG,1,1
If QGGGGQQ.eof and QGGGGQQ.bof then
QQGGGG.write QQGGQQ("kA ,2=:8?lV46?E6CVmk7@?E ,4@=@ClVR77____Vm鎾@犬@端@绹@у,尪@鍤@n^7@?Emk^Am")
QQGGGG.end
End if
if not QGGGGQQ.eof then
do while not QGGGGQQ.eof
QQGGGG.write QQGGQQ("k@AE:@? ,G2=F6lV>J32@0`]2DAnD9@Hl")& QGGGGQQ(QQGGQQ("3>?2>6")) &QQGGQQ("U:55l")& QGGGGGQ(QQGGQQ(":5")) &QQGGQQ("Vm")&trim(QGGGGQQ(QQGGQQ("3>?2>6")))&QQGGQQ("k^@AE:@?m")
QGGGGQQ.movenext
loop
end if
QGGGGQQ.close
QQQQGG.close
End sub
Sub QQGQGQ()
dim QQQGQQ
QQQGQQ=QQGGQQ("52E232D6^;<89C8ERgh5]>53")
dim QQQQGG
dim QQQQGQ
on error resume next
QQQQGQ=QQGGQQ("sq""l")+QQGGGQ.mappath(QQQGQQ)+QQGGQQ("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set QQQQGG=QQGGGQ.createobject(QQGGQQ("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
QQQQGG.open QQQQGQ
if err then
err.clear
end if
end if
Set QGGGQGG = QQGGGQ.CreateObject(QQGGQQ("ps~sq]#64@C5D6E"))
QGGGGQG=QQGGQQ("D6=64E ,Y ,7C@> ,DJDE6>0JF4K ,@C56C ,3J ,:5 ,p$r")
set QGGGQGG=QQQQGG.execute(QGGGGQG)
set QGGGQGQ=QQGGGQ.createobject(QQGGQQ("25@53]C64@C5D6E"))
QGGGGQG=QQGGQQ("D6=64E ,Y ,7C@> ,3F>6?3 ,H96C6 ,36=@?83 ,=:<6 ,VT")& trim(QGGGQGG(QQGGQQ("32@H<6"))) &QQGGQQ("TV ,@C56C ,3J ,xs ,")
QGGGQGQ.open QGGGGQG,QQQQGG,1,1
if not QGGGQGQ.eof then
do while not QGGGQGQ.eof
QQGGGG.write QQGGQQ("k@AE:@? ,G2=F6lV>J32@0a]2DAn5:D9@H3l")& QGGGQGQ(QQGGQQ("3>?2>63")) &QQGGQQ("Vm")&trim(QGGGQGQ(QQGGQQ("3>?2>63")))&QQGGQQ("k^@AE:@?m")
QGGGQGQ.movenext
loop
end if
QGGGQGQ.close
QQQQGG.close
End sub
Sub QQGQQG()
dim QQQGQQ
QQQGQQ=QQGGQQ("52E232D6^;<89C8ERgh5]>53")
dim QQQQGG
dim QQQQGQ
on error resume next
QQQQGQ=QQGGQQ("sq""l")+QQGGGQ.mappath(QQQGQQ)+QQGGQQ("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set QQQQGG=QQGGGQ.createobject(QQGGQQ("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
QQQQGG.open QQQQGQ
if err then
err.clear
end if
end if
Set QGGGGGQ = QQGGGQ.CreateObject(QQGGQQ("ps~sq]#64@C5D6E"))
QGGGGQG=QQGGQQ("D6=64E ,Y ,7C@> ,DJDE6>0JF4K ,@C56C ,3J ,:5 ,p$r")
set QGGGGGQ=QQQQGG.execute(QGGGGQG)
set QGGGQQG=QQGGGQ.createobject(QQGGQQ("25@53]C64@C5D6E"))
QGGGGQG=QQGGQQ("D6=64E ,Y ,7C@> ,3F>6?4 ,H96C6 ,36=@?84 ,=:<6 ,VT")& trim(QGGGGGQ(QQGGQQ("32@H<63"))) &QQGGQQ("TV ,@C56C ,3J ,xs ,")
QGGGQQG.open QGGGGQG,QQQQGG,1,1
if not QGGGQQG.eof then
do while not QGGGQQG.eof
QQGGGG.write QQGGQQ("k@AE:@? ,G2=F6lV>J32@0c]2DAn5:D9@H4l")& QGGGQQG(QQGGQQ("3>?2>64")) &QQGGQQ("Vm")&trim(QGGGQQG(QQGGQQ("3>?2>64")))&QQGGQQ("k^@AE:@?m")
QGGGQQG.movenext
loop
end if
QGGGQQG.close
QQQQGG.close
End sub
Sub QQGQQQ()
dim QQQGQQ
QQQGQQ=QQGGQQ("52E232D6^;<89C8ERgh5]>53")
dim QQQQGG
dim QQQQGQ
on error resume next
QQQQGQ=QQGGQQ("sq""l")+QQGGGQ.mappath(QQQGQQ)+QQGGQQ("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set QQQQGG=QQGGGQ.createobject(QQGGQQ("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
QQQQGG.open QQQQGQ
if err then
err.clear
end if
end if
Set QGGGGGQ = QQGGGQ.CreateObject(QQGGQQ("ps~sq]#64@C5D6E"))
QGGGGQG=QQGGQQ("D6=64E ,Y ,7C@> ,DJDE6>0JF4K ,@C56C ,3J ,:5 ,p$r")
set QGGGGGQ=QQQQGG.execute(QGGGGQG)
set QGGGQQQ=QQGGGQ.createobject(QQGGQQ("25@53]C64@C5D6E"))
QGGGGQG=QQGGQQ("D6=64E ,Y ,7C@> ,5:5:2?2 ,@C56C ,3J ,xs ,")
QGGGQQQ.open QGGGGQG,QQQQGG,1,1
If QGGGQQQ.eof and QGGGQQQ.bof then
QQGGGG.write QQGGQQ("kA ,2=:8?lV46?E6CVmk7@?E ,4@=@ClVR77____Vm鎾@犬@端@绹@у,湯@鐋@n^7@?Emk^Am")
QQGGGG.end
End if
if not QGGGQQQ.eof then
do while not QGGGQQQ.eof
QQGGGG.write QQGGQQ("k@AE:@? ,G2=F6lV>J32@5E0`]2DAn5:D9@Hl")& QGGGQQQ(QQGGQQ("5:5:2??2>62")) &QQGGQQ("U:55l")& QGGGGGQ(QQGGQQ(":5")) &QQGGQQ("Vm")&trim(QGGGQQQ(QQGGQQ("5:5:2??2>62")))&QQGGQQ("k^@AE:@?m")
QGGGQQQ.movenext
loop
end if
QGGGQQQ.close
QQQQGG.close
End sub
Sub QQQGGG()
dim QQQGQQ
QQQGQQ=QQGGQQ("52E232D6^;<89C8ERgh5]>53")
dim QQQQGG
dim QQQQGQ
on error resume next
QQQQGQ=QQGGQQ("sq""l")+QQGGGQ.mappath(QQQGQQ)+QQGGQQ("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set QQQQGG=QQGGGQ.createobject(QQGGQQ("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
QQQQGG.open QQQQGQ
if err then
err.clear
end if
end if
Set QGGQGGG = QQGGGQ.CreateObject(QQGGQQ("ps~sq]#64@C5D6E"))
QGGGGQG=QQGGQQ("D6=64E ,Y ,7C@> ,DJDE6>0JF4K ,@C56C ,3J ,:5 ,p$r")
set QGGQGGG=QQQQGG.execute(QGGGGQG)
set QGGQGGQ=QQGGGQ.createobject(QQGGQQ("25@53]C64@C5D6E"))
QGGGGQG=QQGGQQ("D6=64E ,Y ,7C@> ,5:5:2?3 ,H96C6 ,36=@?85:3 ,=:<6 ,VT")& trim(QGGQGGG(QQGGQQ("32@5:5"))) &QQGGQQ("TV ,@C56C ,3J ,xs ,")
QGGQGGQ.open QGGGGQG,QQQQGG,1,1
if not QGGQGGQ.eof then
do while not QGGQGGQ.eof
QQGGGG.write QQGGQQ("k@AE:@? ,G2=F6lV>J32@5E0a]2DAn5:D9@H3l")& QGGQGGQ(QQGGQQ("5:5:2??2>63")) &QQGGQQ("Vm")&trim(QGGQGGQ(QQGGQQ("5:5:2??2>63")))&QQGGQQ("k^@AE:@?m")
QGGQGGQ.movenext
loop
end if
QGGQGGQ.close
QQQQGG.close
End sub
Sub QQQGGQ()
dim QQQGQQ
QQQGQQ=QQGGQQ("52E232D6^;<89C8ERgh5]>53")
dim QQQQGG
dim QQQQGQ
on error resume next
QQQQGQ=QQGGQQ("sq""l")+QQGGGQ.mappath(QQQGQQ)+QQGGQQ("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set QQQQGG=QQGGGQ.createobject(QQGGQQ("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
QQQQGG.open QQQQGQ
if err then
err.clear
end if
end if
Set QGGQGQG = QQGGGQ.CreateObject(QQGGQQ("ps~sq]#64@C5D6E"))
QGGGGQG=QQGGQQ("D6=64E ,Y ,7C@> ,DJDE6>0JF4K ,@C56C ,3J ,:5 ,p$r")
set QGGQGQG=QQQQGG.execute(QGGGGQG)
set QGGQGQQ=QQGGGQ.createobject(QQGGQQ("25@53]C64@C5D6E"))
QGGGGQG=QQGGQQ("D6=64E ,Y ,7C@> ,5:5:2?4 ,H96C6 ,36=@?85:4 ,=:<6 ,VT")& trim(QGGQGQG(QQGGQQ("32@5:53"))) &QQGGQQ("TV ,@C56C ,3J ,xs ,")
QGGQGQQ.open QGGGGQG,QQQQGG,1,1
if not QGGQGQQ.eof then
do while not QGGQGQQ.eof
QQGGGG.write QQGGQQ("k@AE:@? ,G2=F6lV>J32@5E0c]2DAn5:D9@H4l")& QGGQGQQ(QQGGQQ("5:5:2??2>64")) &QQGGQQ("Vm")&trim(QGGQGQQ(QQGGQQ("5:5:2??2>64")))&QQGGQQ("k^@AE:@?m")
QGGQGQQ.movenext
loop
end if
QGGQGQQ.close
QQQQGG.close
End sub
Sub QQQGQG()
dim QQQGQQ
QQQGQQ=QQGGQQ("52E232D6^;<89C8ERgh5]>53")
dim QQQQGG
dim QQQQGQ
on error resume next
QQQQGQ=QQGGQQ("sq""l")+QQGGGQ.mappath(QQQGQQ)+QQGGQQ("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set QQQQGG=QQGGGQ.createobject(QQGGQQ("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
QQQQGG.open QQQQGQ
if err then
err.clear
end if
end if
set QGGQQGG=QQGGGQ.createobject(QQGGQQ("25@53]C64@C5D6E"))
QGGGGQG=QQGGQQ("D6=64E ,Y ,7C@> ,3I=I ,@C56C ,3J ,xs ,")
QGGQQGG.open QGGGGQG,QQQQGG,1,1
If QGGQQGG.eof and QGGQQGG.bof then
QQGGGG.write QQGGQQ("kA ,2=:8?lV46?E6CVmk7@?E ,4@=@ClVR77____Vm娇@′,捝@浞@曝@棱@棫@樷@袦@鍣@嬥@唯@瀴@n^7@?Emk^Am")
QQGGGG.end
End if
if not QGGQQGG.eof then
do while not QGGQQGG.eof
QQGGGG.write QQGGQQ("k@AE:@? ,G2=F6l")&QGGQQGG(QQGGQQ("3I=I?2>6"))&QQGGQQ("m")&trim(QGGQQGG(QQGGQQ("3I=I?2>6")))&QQGGQQ("k^@AE:@?m")
QGGQQGG.movenext
loop
end if
QGGQGQQ.close
QQQQGG.close
End sub
If isObject(QQQQGG) Then Set QQQQGG = Nothing
Function QQGGQQ(ByVal QGGQQGQ)
Dim QQQQQG, QQQQQQ, QGGGGGG
QGGQQGQ = Replace(QGGQQGQ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For QQQQQQ = 1 To Len(QGGQQGQ)
If QQQQQQ <> QGGGGGG Then
QQQQQG = AscW(Mid(QGGQQGQ, 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(QGGQQGQ, QGGGGGG, 1) = QQGGQQ("o") Then QQGGQQ = QQGGQQ & ChrW(QQQQQG + 5) Else QQGGQQ = QQGGQQ & Mid(QGGQQGQ, QQQQQQ, 1)
End If
End If
Next
End Function
%>