top1.asp

江西旅行网整站源码下载 希望对大家有用 经过测试 安全可用

            <tr><td width="135" height="60"><img src="<%=strInstallDir%>Skin/sealove/Main_Search.gif" alt="站内搜索"></td>
                <td><table cellSpacing=0 cellPadding=0 border=0>
                    <FORM name=search action=<%=strInstallDir%>search.asp method=post>
                    <tr><td align=middle><Input id=Keyword maxLength=50 value=关键字 name=Keyword></td>
                        <td align="center" width="55"><input name=Submit id=Submit type='image' src='<%=strInstallDir%>Skin/sealove/Icon_Search.gif' style='BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px'></td>
                        <td align=middle><Input type=radio CHECKED value=Article name=ModuleName> 文章
                        <Input type=radio value=Soft name=ModuleName> 下载
                        <Input type=radio value=Photo name=ModuleName> 图片
                        <Input id=Field type=hidden value=Title name=Field></td>
                    </tr>
                    </FORM>
                    </table>
                </td>
                <td width="166" align="right"><img src="<%=strInstallDir%>Skin/sealove/Main_girl01.gif"></td>
            </tr>
        </table>
        <table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr><td valign="top">
                <table width="98%" align="center" border="0" cellpadding="0" cellspacing="0" background="<%=strInstallDir%>Skin/sealove/Path_BG.gif">
                    <tr><td width="9"><img src="<%=strInstallDir%>Skin/sealove/Path_Left.gif"></td>
                        <td width="20"><img src="<%=strInstallDir%>Skin/sealove/icon02.gif"></td>
                        <td>您现在的位置：&nbsp;<a class='LinkPath' href='<%=SiteUrl%>'><%=SiteName%></a>&nbsp;>>&nbsp;会员中心</td>
                        <td width="84"><a href="<%=strInstallDir%>Reg/User_Reg.asp" target="_blank"><img src="<%=strInstallDir%>Skin/sealove/Button_Reg.gif" alt="会员注册" border="0"></a></td>
                        <td width="9"><img src="<%=strInstallDir%>Skin/sealove/Path_Right.gif"></td>
                    </tr>
                </table>
                </td>
                <td width="92" height="48" align="right" valign="top"><img src="<%=strInstallDir%>Skin/sealove/Main_girl02.gif"></td>
            </tr>
        </table>
        <table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr><td height="2" bgcolor="#0099BB"></td></tr>
            <tr><td height="1"></td></tr>
            <tr><td height="1" bgcolor="#0099BB"></td></tr>
            <tr><td height="8"></td></tr>
        </table>
        </td>
        <td width="8" background="<%=strInstallDir%>Skin/sealove/Main_Right.gif"></td>
    </tr>
</table>
<table width="1000" align="center" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
    <tr><td width="8" background="<%=strInstallDir%>Skin/sealove/Main_Left.gif"></td>
        <td>

<table class='top_tdbgall' style='word-break: break-all' cellSpacing='0' cellPadding='0' width='760' align='center' border='0'>
  <tr>
    <td><table width='100%' border='0' cellpadding='0' cellspacing='0' background='images/contmenu_bg.gif'>
      <tr>
        <td width='8'><img src='images/contmenu1.gif' width='8' height='45'></td>
        <td width='160' align='right'><img src='images/contmenu.gif' width='151' height='45'></td>
        <td valign='bottom'><table width='100%' height='29' border='0' cellpadding='0' cellspacing='0'>
          <tr>
            <td>
<%Else%>

<table class='top_tdbgall' style='word-break: break-all' cellSpacing='0' cellPadding='0' width='760' align='center' border='0'>
  <!--顶部空距代码-->
  <tr>
    <td class=top_top></td>
  </tr>
  <!--频道显示代码-->
  <tr>
    <td><table class='top_Channel' cellSpacing='0' cellPadding='0' width='100%' border='0'>
      <tr>
        <td align=right><%=GetChannel()%></td>
      </tr>
    </table></td>
  </tr>
  <!--网站Logo和banner显示代码-->
  <tr>
    <td align=center><a href='#' title='首页' target='_blank'><img src='<%= strInstallDir %>images/logo.gif' width='180' height='60' border='0'></a></td>
  </tr>
  <tr>
    <td><table width='100%' border='0' cellpadding='0' cellspacing='0' background='images/contmenu_bg.gif'>
      <tr>
        <td width='8'><img src='images/contmenu1.gif' width='8' height='45'></td>
        <td width='160' align='right'><img src='images/contmenu.gif' width='151' height='45'></td>
        <td valign='bottom'><table width='100%' height='29' border='0' cellpadding='0' cellspacing='0'>
          <tr>
            <td>
<%End If%>

<%

Response.Write "<script language='JavaScript1.2' type='text/JavaScript'>" & vbCrLf
Response.Write "stm_bm(['uueoehr',400,'','" & strInstallDir & "images/blank.gif',0,'','',0,0,0,0,0,1,0,0]);" & vbCrLf
Response.Write "stm_bp('p0',[0,4,0,0,2,2,0,0,100,'filter:Glow(Color=#000000, Strength=3)',4,'',23,50,0,0,'#000000','transparent','',3,0,0,'#000000']);" & vbCrLf
Response.Write "stm_ai('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 宋体','9pt 宋体','9pt 宋体']);" & vbCrLf
Response.Write "stm_aix('p0i1','p0i0',[0,'会员中心首页','','',-1,-1,0,'Index.asp','_self','Index.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('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('p0i3','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_bp('p1',[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 ChannelID, sqlChannel, rsChannel, ChannelName, ChannelShortName, ModuleName, ChannelDir
Dim rsHouseClass
sqlChannel = "select * from PE_Channel where ChannelType<=1 and ModuleType<>4 and ModuleType<>5 and Disabled=" & PE_False & " order by OrderID"
Set rsChannel = server.CreateObject("adodb.recordset")
rsChannel.open sqlChannel, Conn, 1, 1
Do While Not rsChannel.EOF
    ChannelID = rsChannel("ChannelID")
    ChannelName = Trim(rsChannel("ChannelName"))
    ChannelShortName = Trim(rsChannel("ChannelShortName"))
    ChannelDir = Trim(rsChannel("ChannelDir"))
    Select Case rsChannel("ModuleType")
    Case 1
        ModuleName = "Article"
    Case 2
        ModuleName = "Soft"
    Case 3
        ModuleName = "Photo"
    Case 6
        ModuleName = "Supply"
    Case 7
        ModuleName = "House"
    Case 8
        ModuleName = "Job"
    End Select
    If ChannelID = 998 Then
        Set rsHouseClass = Conn.Execute("select * from PE_HouseConfig")
        Response.Write "stm_aix('p1i0','p0i0',[0,'" & ChannelName & "管理','','',-1,-1,0,'User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "','_self','User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "','','','',6,0,0,'" & strInstallDir & "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','p1',[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
        Do While Not rsHouseClass.EOF
            Response.Write "stm_aix('p2i0','p1i0',[0,'发布" & rsHouseClass("ClassName") & "信息','','',-1,-1,0,'User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&ClassID=" & rsHouseClass("ClassID") & "&Action=Add','_self','User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&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
            Response.Write "stm_aix('p2i0','p1i0',[0,'管理" & rsHouseClass("ClassName") & "信息','','',-1,-1,0,'User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&ClassID=" & rsHouseClass("ClassID") & "&Action=Manage','_self','User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&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
            rsHouseClass.MoveNext
        Loop
        Response.Write "stm_ep();" & vbCrLf
    End If

    If ChannelID = 997 Then
        Response.Write "stm_aix('p1i0','p0i0',[0,'我的简历管理','','',-1,-1,0,'User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Resume','_self','User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Resume','','','',6,0,0,'" & strInstallDir & "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','p1',[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','p1i0',[0,'查询职位信息','','',-1,-1,0,'../Job/Searchresult.asp','_self','../Job/Searchresult.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','p1i0',[0,'维护我的简历','','',-1,-1,0,'User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Resume','_self','User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Resume','','','',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','p1i0',[0,'我申请的职位','','',-1,-1,0,'User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Supply','_self','User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Supply' ,'','','',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 If