<% dim CJJCCJ,CJJCCC(0):CJJCCJ=Request.QueryString(CJCCCC("F")):if not isinteger(CJJCCJ) then CJJCCJ=memType if not isinteger(CJJCCJ) then CJJCCJ=2 dim CJCJJJ:set CJCJJJ=new jtree:CJCJJJ.table=CJCCCC(">6>36C0EJA6"):CJJCCC(0)=CJCJJJ.GetCurName(CJJCCJ):dim CJCJJC:set CJCCJC=con.execute(CJCCCC("D6=64E ,E@A ,` ,:5 ,7C@> ,2CE:4=60EJA6 ,H96C6 ,>6>36CEJA6l") & CJJCCJ):if CJCCJC.eof then Call RedirectMessage(CJCCCC("寴@丈@赲@，,彎@剈@罌@竔@尕@朥@讹@罩@栊@盩@！,")) CJCJJC=CJCCJC(0):Response.Write(vbCrLf) Function CJCCCC(ByVal CJCCCJ) Dim CJCJCJ, CJCJCC, CJCCJJ CJCCCJ = Replace(CJCCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCJCC = 1 To Len(CJCCCJ) If CJCJCC <> CJCCJJ Then CJCJCJ = AscW(Mid(CJCCCJ, CJCJCC, 1)) If CJCJCJ >= 33 And CJCJCJ <= 79 Then CJCCCC = CJCCCC & Chr(CJCJCJ + 47) ElseIf CJCJCJ >= 80 And CJCJCJ <= 126 Then CJCCCC = CJCCCC & Chr(CJCJCJ - 47) Else CJCCJJ = CJCJCC + 1 If Mid(CJCCCJ, CJCCJJ, 1) = Chr(64) Then CJCCCC = CJCCCC & ChrW(CJCJCJ + 5) Else CJCCCC = CJCCCC & Mid(CJCCCJ, CJCJCC, 1) End If End If Next End Function %>