top.asp

动易模板8套

End If
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 MessageID, rsMessage
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
    MessageID = 0
Else
    MessageID = rsMessage(0)
End If
Set rsMessage = Nothing
If MessageID > 0 Then
    Response.Write "<script LANGUAGE='JavaScript'>" & vbCrLf
    Response.Write "var url = 'User_ReadMessage.asp?MessageID=" & MessageID & "';" & 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

Function CheckUser_ChannelInput(iChannelID, arrClassInput)
    Dim rs
    CheckUser_ChannelInput = False
    If FoundInArr(arrClass_Input, ChannelDir & "all", ",") = True Then
        CheckUser_ChannelInput = True
    Else
        Set rs = Conn.Execute("select ClassID from PE_Class where ChannelID=" & iChannelID)
        Do While Not rs.EOF
            If InStr("," & arrClassInput & ",", "," & rs("ClassID") & ",") > 0 Then
                CheckUser_ChannelInput = True
                Exit Do
            End If
            rs.MoveNext
        Loop
        rs.Close
        Set rs = Nothing
    End If
End Function

Function GetChannel()
    If ShowSiteChannel = False Then
        GetChannel = ""
        Exit Function
    End If
    Dim sqlChannel, rsChannel, strChannel, ChannelUrl
    strChannel = "&nbsp;|&nbsp;<a class='Channel' href='" & strInstallDir & "Index" & GetFileExt(FileExt_SiteIndex) & "'>首页</a>&nbsp;|&nbsp;"
    sqlChannel = "select * from PE_Channel order by OrderID"
    Set rsChannel = Conn.Execute(sqlChannel)
    Do While Not rsChannel.EOF
        If rsChannel("Disabled") <> True And (rsChannel("ShowName") <> False Or rsChannel("ChannelType") = 2) Then
            If IsNull(rsChannel("LinkUrl")) Or Trim(rsChannel("LinkUrl")) = "" Then
                ChannelUrl = strInstallDir & rsChannel("ChannelDir")
            Else
                ChannelUrl = rsChannel("LinkUrl")
            End If
            If rsChannel("ChannelID") = ChannelID Then
                strChannel = strChannel & "<a class='Channel2' "
            Else
                strChannel = strChannel & "<a class='Channel' "
            End If
            If rsChannel("ChannelType") <= 1 Then
                If rsChannel("UseCreateHTML") > 0 Then
                    strChannel = strChannel & " href='" & ChannelUrl & "/Index" & GetFileExt(rsChannel("FileExt_Index")) & "'"
                Else
                    strChannel = strChannel & " href='" & ChannelUrl & "/Index.asp'"
                End If
            Else
                strChannel = strChannel & " href='" & rsChannel("LinkUrl") & "'"
            End If
            If rsChannel("OpenType") = 0 Then
                strChannel = strChannel & " target='_self'"
            Else
                strChannel = strChannel & " target='_blank'"
            End If
            If rsChannel("ChannelPicUrl") = "" Or IsNull(rsChannel("ChannelPicUrl")) = True Then
                strChannel = strChannel & ">" & rsChannel("ChannelName") & "</a>&nbsp;|&nbsp;"
            Else
                strChannel = strChannel & "><img src='" & rsChannel("ChannelPicUrl") & "' border=0 alt='" & rsChannel("ChannelName") & "'></a>&nbsp;|&nbsp;"
            End If
        End If
        rsChannel.MoveNext
    Loop
    rsChannel.Close
    Set rsChannel = Nothing
    GetChannel = strChannel
End Function

Function GetFileExt(FileExtType)
    Select Case FileExtType
    Case 0
        GetFileExt = ".html"
    Case 1
        GetFileExt = ".htm"
    Case 2
        GetFileExt = ".shtml"
    Case 3
        GetFileExt = ".shtm"
    Case 4
        GetFileExt = ".asp"
    End Select
End Function
%>