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

Dim QGQGQ,QGQQG,QGQQQ,QQGGG,QQGGQ
Set QGQQQ=Response:Set QGQQG=Request:Set QQGGQ=Session:Set QGQGQ=Application:Set QQGGG=Server
If Date > CDate(QQGQG("a_`f\`\`")) Then QGQQQ.Write QQGQG("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):QGQQQ.End
if QQGGQ(QQGQG("25>:?"))="" then
QGQQQ.redirect QQGQG("=@8:?]2DA")
end if
if QQGGQ(QQGQG("D96?76?"))="1" then
QQGGQ(QQGQG("DJDE6>"))="1"
QQGGQ(QQGQG("4=2DD"))="1"
QQGGQ(QQGQG("32@I:F2"))="1"
QQGGQ(QQGQG("FD6C"))="1"
QQGGQ(QQGQG("FD6C0492?86"))="1"
QQGGQ(QQGQG("FD6C0A="))="1"
QQGGQ(QQGQG("IF6<60A="))="1"
QQGGQ(QQGQG("32?;:0A="))="1"
QQGGQ(QQGQG("JF5:?8"))="1"
end if
if QQGGQ(QQGQG("D96?76?"))="2" then
QQGGQ(QQGQG("FD6C"))="1"
QQGGQ(QQGQG("JF5:?8"))="1"
end if
if QQGGQ(QQGQG("D96?76?"))<>"1" then
QGQQQ.redirect QQGQG("6CC]2DAn6CCl`")
end if
dim QQGQQ
QQGQQ=QQGQG("52E232D6^;<89C8ERgh5]>53")
dim QQQGG
dim QQQGQ
on error resume next
QQQGQ=QQGQG("sq""l")+QQGGG.mappath(QQGQQ)+QQGQG("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set QQQGG=QQGGG.createobject(QQGQG("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
QQQGG.open QQQGQ
if err then
err.clear
end if
end if
dim QQQQG, QQQQQ, QGGGGG,QGGGGQ
QGGGGQ = QGQQG(QQGQG("!286"))
QGGGGG=QGQQG(QQGQG("xs"))
set QQQQQ=QQGGG.createobject(QQGQG("25@53]C64@C5D6E"))
QGGQGQ=QQGQG("56=6E6 ,7C@> ,5:5:2?3 ,H96C6 ,:5l")& QGGGGG
QQQQQ.open QGGQGQ,QQQGG,3,3
set QQQQQ=nothing
QGQQQ.redirect QQGQG("5:5:2?]2DAnA286l")&QGGGGQ
If isObject(QQQGG) Then Set QQQGG = Nothing
Function QQGQG(ByVal QGGQQG)
Dim QGGGQG, QGGGQQ, QGGQGG
QGGQQG = Replace(QGGQQG, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For QGGGQQ = 1 To Len(QGGQQG)
If QGGGQQ <> QGGQGG Then
QGGGQG = AscW(Mid(QGGQQG, QGGGQQ, 1))
If QGGGQG >= 33 And QGGGQG <= 79 Then
QQGQG = QQGQG & Chr(QGGGQG + 47)
ElseIf QGGGQG >= 80 And QGGGQG <= 126 Then
QQGQG = QQGQG & Chr(QGGGQG - 47)
Else
QGGQGG = QGGGQQ + 1
If Mid(QGGQQG, QGGQGG, 1) = QQGQG("o") Then QQGQG = QQGQG & ChrW(QGGGQG + 5) Else QQGQG = QQGQG & Mid(QGGQQG, QGGGQQ, 1)
End If
End If
Next
End Function
%>