powereasy.userinfo.asp

个人网站比较简短

<%
Sub ShowInfo(iUserID, ShowCompanyInfo)
    Dim rsUser
    Dim arrUserType
    Set rsUser = Conn.Execute("select * from PE_User where UserID=" & iUserID & "")
    If rsUser.bof And rsUser.EOF Then
        Response.Write "<li>找不到指定的会员！</li>"
        rsUser.Close
        Set rsUser = Nothing
        Exit Sub
    End If

    arrUserType = Array("个人会员", "企业会员（创建者）", "企业会员（管理员）", "企业会员（普通成员）", "企业会员（待审核成员）")
    Response.Write "<script language='javascript'>" & vbCrLf
    Response.Write "var tID=0;" & vbCrLf
    Response.Write "function ShowTabs(ID){" & vbCrLf
    Response.Write "  if(ID!=tID){" & vbCrLf
    Response.Write "    TabTitle[tID].className='title5';" & vbCrLf
    Response.Write "    TabTitle[ID].className='title6';" & vbCrLf
    Response.Write "    Tabs[tID].style.display='none';" & vbCrLf
    Response.Write "    Tabs[ID].style.display='';" & vbCrLf
    Response.Write "    tID=ID;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf

    Response.Write "<br><table width='100%'  border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
    Response.Write "        <tr align='center'>" & vbCrLf
    Response.Write "            <td id='TabTitle' class='title6' onclick='ShowTabs(0)'>会员信息</td>" & vbCrLf
    Response.Write "            <td id='TabTitle' class='title5' onclick='ShowTabs(1)'>联系信息</td>" & vbCrLf
    Response.Write "            <td id='TabTitle' class='title5' onclick='ShowTabs(2)'>个人信息</td>" & vbCrLf
    Response.Write "            <td id='TabTitle' class='title5' onclick='ShowTabs(3)'>业务信息</td>" & vbCrLf
    If ShowCompanyInfo = True And (rsUser("UserType") <= 2) Then
        Response.Write "            <td id='TabTitle' class='title5' onclick='ShowTabs(4)'>单位信息</td>" & vbCrLf
        Response.Write "            <td id='TabTitle' class='title5' onclick='ShowTabs(5)'>单位成员</td>" & vbCrLf
    End If
    Response.Write "            <td>&nbsp;</td>" & vbCrLf
    Response.Write "        </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf

    Response.Write "<table width='100%'  border='0' align='center' cellpadding='5' cellspacing='1' class='border'><tr class='tdbg'><td height='100' valign='top'>" & vbCrLf
    Response.Write "  <table width='95%' align='center' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>" & vbCrLf
    Response.Write "  <tbody id='Tabs' style='display:'>" & vbCrLf
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='14%' align='right' class='tdbg5'>用 户 名：</td><td>" & rsUser("UserName") & "</td>"
    Response.Write "    <td width='14%' align='right' class='tdbg5'>邮箱地址：</td><td width='36%'>" & rsUser("Email") & "</td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='14%' align='right' class='tdbg5'>会员组别：</td><td width='36%'>" & GroupName & "</td>"
    Response.Write "    <td width='14%' align='right' class='tdbg5'>会员类别：</td><td width='36%'>"
    If PE_CLng(rsUser("UserType")) > 4 Then
        Response.Write arrUserType(0)
    Else
        Response.Write arrUserType(PE_CLng(rsUser("UserType")))
    End If
    Response.Write "</td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='14%' align='right' class='tdbg5'>资金余额：</td><td width='36%'>" & rsUser("Balance") & "元</td>"
    Response.Write "    <td width='14%' align='right' class='tdbg5'>可用" & PointName & "：</td><td width='36%'>" & rsUser("UserPoint") & "" & PointUnit & "</td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='14%' align='right' class='tdbg5'>可用积分：</td><td width='36%'>" & rsUser("UserExp") & "分</td>"
    Response.Write "    <td width='14%' align='right' class='tdbg5'>剩余天数：</td><td width='36%'>" & ChkValidDays(rsUser("ValidNum"), rsUser("ValidUnit"), rsUser("BeginTime")) & "天</td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='14%' align='right' class='tdbg5'>会员权限：</td><td width='36%'>"
    If rsUser("SpecialPermission") = True Then
        Response.Write "自定义"
    Else
        Response.Write "会员组默认"
    End If
    Response.Write "</td>"
    If rsUser("UserType") <= 2 Then
        Response.Write "    <td width='14%' align='right' class='tdbg5'>待审成员：</td><td width='36%'>"
        Dim trs
        Set trs = Conn.Execute("select count(0) from PE_User where UserType=4 and CompanyID=" & PE_CLng(rsUser("CompanyID")) & "")
        If trs(0) > 0 Then
            Response.Write " <b><font color=red>" & trs(0) & "</font></b> 名"
        Else
            Response.Write " <b><font color=gray>0</font></b> 名"
        End If
        Response.Write "</td>"
    Else
        Response.Write "    <td width='14%' align='right' class='tdbg5'></td><td width='36%'></td>"
    End If
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>" & vbCrLf
    Response.Write "    <td width='14%' align='right' class='tdbg5'>注册日期：</td><td width='36%'>" & rsUser("RegTime") & "</td>" & vbCrLf
    Response.Write "    <td width='14%' align='right' class='tdbg5'>加入日期：</td><td width='36%'>" & rsUser("JoinTime") & "</td>" & vbCrLf
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='14%' align='right' class='tdbg5'>最后登录时间：</td><td width='36%'>" & rsUser("LastLoginTime") & "</td>" & vbCrLf
    Response.Write "    <td width='14%' align='right' class='tdbg5'>最后登录IP：</td><td width='36%'>" & rsUser("LastLoginIP") & "</td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='14%' align='right' class='tdbg5'>待阅短信：</td><td width='36%'>"

    If rsUser("UnreadMsg") <> "" And PE_CLng(rsUser("UnreadMsg")) > 0 Then
        Response.Write " <b><font color=red>" & rsUser("UnreadMsg") & "</font></b> 条"
    Else
        Response.Write " <b><font color=gray>0</font></b> 条"
    End If
    Response.Write "</td>"
	Response.Write "    <td width='14%' align='right' class='tdbg5'>待签文章：</td><td width='36%'>"
	
	If rsUser("UnsignedItems") <> "" Then
		Dim UnsignedItemNum, arrUser
		arrUser = Split(rsUser("UnsignedItems"), ",")
		UnsignedItemNum = UBound(arrUser) + 1
		Response.Write " <b><font color=red>" & UnsignedItemNum & "</font></b> 篇"
	Else
		Response.Write " <b><font color=gray>0</font></b> 篇"
	End If
	Response.Write "</td>"
    Response.Write "  </tr>"
    Response.Write "  </tbody>" & vbCrLf



    Dim rsContacter, sqlContacter
    Dim TrueName, Title, Company, Department, Position, Operation, CompanyAddress
    Dim Country, Province, City, Address, ZipCode
    Dim Mobile, OfficePhone, Homephone, Fax, PHS
    Dim HomePage, Email, QQ, ICQ, MSN, Yahoo, UC, Aim
    Dim IDCard, Birthday, NativePlace, Nation, Sex, Marriage, Income, Education, GraduateFrom, Family
    Dim InterestsOfLife, InterestsOfCulture, InterestsOfAmusement, InterestsOfSport, InterestsOfOther
    Dim arrEducation, arrIncome
    arrEducation = GetArrFromDictionary("PE_Contacter", "Education")
    arrIncome = GetArrFromDictionary("PE_Contacter", "Income")


    sqlContacter = "select * from PE_Contacter where ContacterID=" & rsUser("ContacterID") & ""
    Set rsContacter = Conn.Execute(sqlContacter)
    If rsContacter.bof And rsContacter.EOF Then
        Sex = -1
        Marriage = 0
        Income = -1
    Else
        TrueName = rsContacter("TrueName")
        Title = rsContacter("Title")
        Country = rsContacter("Country")
        Province = rsContacter("Province")
        City = rsContacter("City")
        ZipCode = rsContacter("ZipCode")
        Address = rsContacter("Address")
        OfficePhone = rsContacter("OfficePhone")
        Homephone = rsContacter("HomePhone")
        Mobile = rsContacter("Mobile")
        Fax = rsContacter("Fax")
        PHS = rsContacter("PHS")
        HomePage = rsContacter("HomePage")
        Email = rsContacter("Email")
        QQ = rsContacter("QQ")
        ICQ = rsContacter("ICQ")
        MSN = rsContacter("MSN")
        Yahoo = rsContacter("Yahoo")
        UC = rsContacter("UC")
        Aim = rsContacter("Aim")
        IDCard = rsContacter("IDCard")