top.asp

个人网站比较简短

If UserSetting(20) = 1 Then
    Response.Write "stm_aix('p2i0','p0i0',[0,'赠送" & PointName & "','','',-1,-1,0,'User_Exchange.asp?Action=SendPoint','_self','User_Exchange.asp?Action=SendPoint','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
End If
Response.Write "stm_aix('p2i0','p0i0',[0,'在线支付查询','','',-1,-1,0,'User_Payment.asp','_self','User_Payment.asp','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
Response.Write "stm_aix('p2i0','p0i0',[0,'资金明细查询','','',-1,-1,0,'User_Bankroll.asp','_self','User_Bankroll.asp','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
Response.Write "stm_aix('p2i0','p0i0',[0,'" & PointName & "明细查询','','',-1,-1,0,'User_ConsumeLog.asp','_self','User_ConsumeLog.asp','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
Response.Write "stm_aix('p2i0','p0i0',[0,'有效期明细查询','','',-1,-1,0,'User_RechargeLog.asp','_self','User_RechargeLog.asp','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
Response.Write "stm_ep();" & vbCrLf

If UserSetting(25) = 1 Then
    Response.Write "stm_aix('p0i2','p0i0',[0,'|','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
    Response.Write "stm_aix('p0i8','p0i0',[0,'我的聚合','','',-1,-1,0,'User_Space.asp?Action=Manage','_self','User_Space.asp?Action=Manage','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
    Response.Write "stm_bpx('p2','p0',[1,4,0,6,2,3,6,7,100,'filter:Glow(Color=#000000, Strength=3)',4,'',23,50,2,4,'#999999','#0089F7','',3,1,1,'#ACA899']);" & vbCrLf
    Dim rsspace, rsitem
    Set rsspace = Conn.Execute("select top 1 Passed from PE_Space where Type=1 and UserID=" & UserID)
    If rsspace.bof And rsspace.EOF Then
        Response.Write "stm_aix('p2i0','p0i0',[0,'申请聚合空间','','',-1,-1,0,'User_Space.asp?Action=Add','_self','User_Space.asp?Action=Add','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
    Else
        If rsspace("Passed") = True Then
            Response.Write "stm_aix('p2i0','p0i0',[0,'增加新栏目','','',-1,-1,0,'User_Space.asp?Action=Add','_self','User_Space.asp?Action=Add','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
            Set rsitem = Conn.Execute("select ID,Name,Type from PE_Space where (Type>=3 and Type<=7) and Passed=" & PE_True & " and UserID=" & UserID & " order by Type desc")
            Do While Not rsitem.EOF
                Select Case rsitem("Type")
                Case 3
                    Response.Write "stm_aix('p0i0','p0i0',[0,'" & rsitem("Name") & "','','',-1,-1,0,'','_self','','','','',6,0,0,'" & InstallDir & "images/arrow_r.gif','" & strInstallDir & "images/arrow_w.gif',7,7,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
                    Response.Write "stm_bpx('p2','p0',[1,2,-2,-3,2,3,0,7,100,'filter:Glow(Color=#000000, Strength=3)',4,'',23,50,2,4,'#999999','#0089F7','',3,1,1,'#ACA899']);" & vbCrLf
                    Response.Write "stm_aix('p2i0','p0i0',[0,'写日志','','',-1,-1,0,'User_SpaceDiary.asp?Action=Add&ID=" & rsitem("ID") & "','_self','User_SpaceDiary.asp?Action=Add&ID=" & rsitem("ID") & "','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
                    Response.Write "stm_aix('p2i0','p0i0',[0,'我的日志管理','','',-1,-1,0,'User_SpaceDiary.asp?ID=" & rsitem("ID") & "','_self','User_SpaceDiary.asp?ID=" & rsitem("ID") & "','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
                    Response.Write "stm_ep();" & vbCrLf
                Case 4
                    Response.Write "stm_aix('p0i0','p0i0',[0,'" & rsitem("Name") & "','','',-1,-1,0,'','_self','','','','',6,0,0,'" & InstallDir & "images/arrow_r.gif','" & strInstallDir & "images/arrow_w.gif',7,7,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
                    Response.Write "stm_bpx('p2','p0',[1,2,-2,-3,2,3,0,7,100,'filter:Glow(Color=#000000, Strength=3)',4,'',23,50,2,4,'#999999','#0089F7','',3,1,1,'#ACA899']);" & vbCrLf
                    Response.Write "stm_aix('p2i0','p0i0',[0,'添加音乐','','',-1,-1,0,'User_SpaceMusic.asp?Action=Add&ID=" & rsitem("ID") & "','_self','User_SpaceMusic.asp?Action=Add&ID=" & rsitem("ID") & "','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
                    Response.Write "stm_aix('p2i0','p0i0',[0,'我的音乐管理','','',-1,-1,0,'User_SpaceMusic.asp?ID=" & rsitem("ID") & "','_self','User_SpaceMusic.asp?ID=" & rsitem("ID") & "','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
                    Response.Write "stm_ep();" & vbCrLf
                Case 5
                    Response.Write "stm_aix('p0i0','p0i0',[0,'" & rsitem("Name") & "','','',-1,-1,0,'','_self','','','','',6,0,0,'" & InstallDir & "images/arrow_r.gif','" & strInstallDir & "images/arrow_w.gif',7,7,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
                    Response.Write "stm_bpx('p2','p0',[1,2,-2,-3,2,3,0,7,100,'filter:Glow(Color=#000000, Strength=3)',4,'',23,50,2,4,'#999999','#0089F7','',3,1,1,'#ACA899']);" & vbCrLf
                    Response.Write "stm_aix('p2i0','p0i0',[0,'添加新书','','',-1,-1,0,'User_SpaceBook.asp?Action=Add&ID=" & rsitem("ID") & "','_self','User_SpaceBook.asp?Action=Add&ID=" & rsitem("ID") & "','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
                    Response.Write "stm_aix('p2i0','p0i0',[0,'我的图书管理','','',-1,-1,0,'User_SpaceBook.asp?ID=" & rsitem("ID") & "','_self','User_SpaceBook.asp?ID=" & rsitem("ID") & "','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
                    Response.Write "stm_ep();" & vbCrLf
                Case 6
                    Response.Write "stm_aix('p0i0','p0i0',[0,'" & rsitem("Name") & "','','',-1,-1,0,'','_self','','','','',6,0,0,'" & InstallDir & "images/arrow_r.gif','" & strInstallDir & "images/arrow_w.gif',7,7,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
                    Response.Write "stm_bpx('p2','p0',[1,2,-2,-3,2,3,0,7,100,'filter:Glow(Color=#000000, Strength=3)',4,'',23,50,2,4,'#999999','#0089F7','',3,1,1,'#ACA899']);" & vbCrLf
                    Response.Write "stm_aix('p2i0','p0i0',[0,'添加新图片','','',-1,-1,0,'User_SpacePhoto.asp?Action=Add&ID=" & rsitem("ID") & "','_self','User_SpacePhoto.asp?Action=Add&ID=" & rsitem("ID") & "','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
                    Response.Write "stm_aix('p2i0','p0i0',[0,'我的图片管理','','',-1,-1,0,'User_SpacePhoto.asp?ID=" & rsitem("ID") & "','_self','User_SpacePhoto.asp?ID=" & rsitem("ID") & "','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
                    Response.Write "stm_ep();" & vbCrLf
                Case 7
                    Response.Write "stm_aix('p0i0','p0i0',[0,'" & rsitem("Name") & "','','',-1,-1,0,'','_self','','','','',6,0,0,'" & InstallDir & "images/arrow_r.gif','" & strInstallDir & "images/arrow_w.gif',7,7,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
                    Response.Write "stm_bpx('p2','p0',[1,2,-2,-3,2,3,0,7,100,'filter:Glow(Color=#000000, Strength=3)',4,'',23,50,2,4,'#999999','#0089F7','',3,1,1,'#ACA899']);" & vbCrLf
                    Response.Write "stm_aix('p2i0','p0i0',[0,'添加新连接','','',-1,-1,0,'User_SpaceLink.asp?Action=Add&ID=" & rsitem("ID") & "','_self','User_SpaceLink.asp?Action=Add&ID=" & rsitem("ID") & "','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
                    Response.Write "stm_aix('p2i0','p0i0',[0,'我的连接管理','','',-1,-1,0,'User_SpaceLink.asp?ID=" & rsitem("ID") & "','_self','User_SpaceLink.asp?ID=" & rsitem("ID") & "','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
                    Response.Write "stm_ep();" & vbCrLf
                End Select
                rsitem.MoveNext
            Loop
            Set rsitem = Nothing
            If UserSetting(28) = 1 Then
            Response.Write "stm_aix('p2i0','p0i0',[0,'更换空间版式','','',-1,-1,0,'User_Space.asp?Action=Template','_self','User_Space.asp?Action=Template','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
            End If
            Response.Write "stm_aix('p2i0','p0i0',[0,'查看我的聚合','','',-1,-1,0,'../Space/" & UserName & UserID & "/','_blank','../Space/" & UserName & UserID & "','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
        Else
            Response.Write "stm_aix('p2i0','p0i0',[0,'聚合空间审核中...','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
        End If
    End If
End If


Response.Write "stm_ep();" & vbCrLf
Response.Write "stm_aix('p0i2','p0i0',[0,'|','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
Response.Write "stm_aix('p0i6','p0i0',[0,'用户管理','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
Response.Write "stm_bpx('p2','p0',[1,4,0,6,2,3,6,7,100,'filter:Glow(Color=#000000, Strength=3)',4,'',23,50,2,4,'#999999','#0089F7','',3,1,1,'#ACA899']);" & vbCrLf
Response.Write "stm_aix('p0i0','p0i0',[0,'好友列表','','',-1,-1,0,'','_self','','','','',6,0,0,'" & InstallDir & "images/arrow_r.gif','" & strInstallDir & "images/arrow_w.gif',7,7,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
Response.Write "stm_bpx('p2','p0',[1,2,-2,-3,2,3,0,7,100,'filter:Glow(Color=#000000, Strength=3)',4,'',23,50,2,4,'#999999','#0089F7','',3,1,1,'#ACA899']);" & vbCrLf
Response.Write "stm_aix('p2i0','p0i0',[0,'成员列表','','',-1,-1,0,'User_Friend.asp','_self','User_Friend.asp','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
Response.Write "stm_aix('p2i0','p0i0',[0,'添加成员','','',-1,-1,0,'User_Friend.asp?Action=AddFriend','_self','User_Friend.asp?Action=AddFriend','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
Response.Write "stm_aix('p2i0','p0i0',[0,'创建新组','','',-1,-1,0,'User_Friend.asp?Action=CreateNewGroup','_self','User_Friend.asp?Action=CreateNewGroup','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
Response.Write "stm_aix('p2i0','p0i0',[0,'分组管理','','',-1,-1,0,'User_Friend.asp?Action=ManageGroup','_self','User_Friend.asp?Action=ManageGroup','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
Response.Write "stm_ep();" & vbCrLf
Response.Write "stm_aix('p0i0','p0i0',[0,'修改密码','','',-1,-1,0,'User_Info.asp?Action=ModifyPwd','_self','User_Info.asp?Action=ModifyPwd','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
Response.Write "stm_aix('p0i0','p0i0',[0,'修改信息','','',-1,-1,0,'User_Info.asp?Action=Modify','_self','User_Info.asp?Action=Modify','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
If UserType = 0 Then
    Response.Write "stm_aix('p0i0','p0i0',[0,'注册我的企业','','',-1,-1,0,'User_Info.asp?Action=RegCompany','_self','User_Info.asp?Action=RegCompany','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
End If
Response.Write "stm_aix('p0i0','p0i0',[0,'邮件订阅管理','','',-1,-1,0,'User_mailreg.asp','_self','User_mailreg.asp','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
Response.Write "stm_aix('p0i0','p0i0',[0,'退出登录','','',-1,-1,0,'User_Logout.asp','_self','User_Logout.asp','','','',0,0,0,'','',0,0,0,0,1,'#F1F2EE',1,'#CCCCCC',1,'','',3,3,0,0,'#FFFFF7','#FF0000','#ffffff','#ffff00','9pt 宋体','9pt 宋体']);" & vbCrLf
Response.Write "stm_ep();" & vbCrLf
Response.Write "stm_em();" & vbCrLf
Response.Write "</script>" & vbCrLf
%>

            </td>
          </tr>
          <tr>
            <td height='4'></td>
          </tr>
        </table></td>
        <td width='6'><img src='images/contmenu2.gif' width='6' height='45'></td>
      </tr>
    </table></td>
  </tr>
</table>



<%
Dim tMessageID, rsMessage
If request("Action") <> "ReadInbox" Then
    Set rsMessage = Conn.Execute("select Min(Id) from PE_Message where incept='" & UserName & "'and delR=0 and flag=0 and IsSend=1")
    If IsNull(rsMessage(0)) Then
        tMessageID = 0
    Else
        tMessageID = rsMessage(0)
    End If
    Set rsMessage = Nothing
    If tMessageID > 0 Then
        Response.Write "<script LANGUAGE='JavaScript'>" & vbCrLf
        Response.Write "var url = 'User_ReadMessage.asp?MessageID=" & tMessageID & "';" & vbCrLf
        Response.Write "window.open (url, 'newmessage', 'height=440, width=400, toolbar=no, menubar=no, scrollbars=auto, resizable=no, location=no, status=no')" & vbCrLf
        Response.Write "</script>" & vbCrLf
    End If
End If
%>