⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 index.asp

📁 现成的企业电子网站源码
💻 ASP
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=false
Response.Expires=0
%>
<!-- #include file="dsnroot.asp" -->
<!-- #include file="links.asp" -->
<%
set cn=Server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.CreateObject("ADODB.Recordset")
menu="21111111"
%>
<!-- #include file="design.asp" -->
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr>

    <td width="490" valign="top"> 

      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><img src="images/17.gif" ></td>
        </tr>
      </table>
        <%sqltext="select top 4 id,pid,name from cdanwei where enable=1 and flag=1 and ppid=2 order by creatdate desc"
          rs.Open sqltext,cn,1,1
          do while not rs.EOF %>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td colspan="2" height="10"></td>
        </tr>
        <tr> 
          <td width="20" class="font3" valign="top"><img
                        src="images/art1.gif"></td>
          <td><a href="<%=linknewsdetail%>?id=<%=rs("id")%>&pid=<%=rs("pid")%>" class="anews"><%=trim(rs("name"))%></a></td>
        </tr>
      </table>
        <%rs.MoveNext 
          loop
          rs.Close %>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td colspan="2">&nbsp;</td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
          <td width="60"><a href="<%=linknews%>" class="more">更多新闻&gt;&gt;</a></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="8"></td>
        </tr>
      </table>
      
    </td>
    <td background="images/line_v.gif" width="1"></td>
    <td valign="top"> 

      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td background="images/line_h.gif" height="1"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td background="images/video_bg.jpg" style="background-repeat: repeat-x; background-position: top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="36">&nbsp;</td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td align="center"><a class="anews" href="Javascript:playrm('tihongvideo.ram')"><img src="images/48.gif" border=0></a></td>
              </tr>
              <tr>
                <td align="center" height="50"><a href="http://jxdp520.126.com" target=_blank><img src="images/49.gif"  border=0></a></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td align="center" height="30"><img src="images/47.gif" width="105" height="22"></td>
              </tr>
              <tr>
                <td align="center"> 
                  <select name="select2" class="input2" onChange="Javascript:load(this)">
                    <option value="">多元设计下属企业</option>
                    <%sqltext="select id,name from danwei where enable=1 and pid=5 order by pl"
                      rs.Open sqltext,cn,1,1
                      do while not rs.EOF %>
							<option value="<%=linkdepartment%>?id=<%=rs("id")%>"  target=_top><%=trim(rs("name"))%></option>
					<%rs.MoveNext 
					  loop
					  rs.Close %>		
                  </select>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
  </td>

  </tr>
</table>
<!--以下是最新产品与创业者-->
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr> 

    <td width="490" valign="top"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td align="left"><img src="images/16.gif" ></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <%sqltext="select top 3 * from cdanwei where enable=1 and ppid=6 and dateenable=1 order by creatdate desc"
            rs.Open sqltext,cn,1,1
            i=0
            do while not rs.EOF %>
          <td width="180"> 
            <table width="160" border="0" cellspacing="0" cellpadding="0" >
              <tr> 
                <td width="160" height="110" align="center" background="images/10.gif"><a href="<%=linkproducstdetail%>?id=<%=rs("id")%>&pid=<%=rs("pid")%>"><img src="./admin/jpg.asp?id=<%=rs("id")%>&tabname=cdanwei" width="120" height="90" border=0></a></td>
    
              </tr>
            </table>
            
            <table width="160" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                
                <td width="158" bgcolor="#CCCCCC" height="13" align="center"><a href="<%=linkproducstdetail%>?id=<%=rs("id")%>&pid=<%=rs("pid")%>" class="anews2"><font color="#FFFFFF"><%=trim(rs("name"))%></font></a></td>
          
              </tr>
            </table>
          </td>
          <%rs.MoveNext 
            i=i+1
            loop
            rs.Close %>
            <%
            x=0
            j=3-i%>
            <%do while x<j%>
					<td width=200>&nbsp;</td>
			<%x=x+1
			 loop %>		

        </tr>
      </table>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr>
          <td height="22">&nbsp;</td>
        </tr>
      </table>
      
    </td>
    <td background="images/line_v.gif" width="1"></td>
    <td valign="top">
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td align="left"><img src="images/19.gif"  height="34"></td>
        </tr>
      </table>
      <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td class="font2">
          <%sqltext="select top 1 body from danwei where enable=1 and pid=3 order by pl desc"
            rs.Open sqltext,cn,1,1
            if not rs.EOF then
                Response.Write (checktitle(trim(rs("body")),160))
            end if   
            rs.Close  
            %>
          </td>
        </tr>
      </table>
      <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td colspan="2">&nbsp;</td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
          <td width="70"><a href="<%=linkmagazine%>" class="more" target="_blank">详情内容&gt;&gt;</a></td>
        </tr>
      </table>

    </td>

  </tr>
</table><!--以下是招商合作与人才招聘-->
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr> 

    <td width="490" valign="top"  style="background-repeat: repeat-x; background-position: bottom"> 

      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><img src="images/15.gif"  height="34"></td>
        </tr>
      </table>
      <%sqltext="select top 6 id,name from danwei where enable=1 and pid=8 order by pl desc"
        rs.Open sqltext,cn,1,1
        do while not rs.EOF %>  <!--招商合作列表-->
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td colspan="2" height="10"></td>
        </tr>
        <tr> 
          <td width="20" class="font3" valign="top"><img
                        src="images/dian.gif"></td>
          <td><a href="<%=linksaledetail%>?id=<%=rs("id")%>" class="anews"><%=trim(rs("name"))%></a></td>
        </tr>
      </table>
      <%rs.MoveNext 
        loop
        rs.Close  %>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td colspan="2">&nbsp;</td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
          <td width="80"><a href="<%=linksalebusiness%>" class="more">更多内容&gt;&gt;</a></td>
        </tr>
      </table>

    </td>
    <td background="images/line_v.gif" width="1"></td>
    <td valign="top"  style="background-repeat: repeat-x; background-position: bottom"> 
 

      <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td><img src="images/18.gif"  height="34"></td>
        </tr>
      </table>
      <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td class="font1" height="30"><font color="#005500">因企业发展需要,现诚聘以下人员:</font></td>
        </tr>
      </table>
      <%sqltext="select top 4 * from engage where state=1 order by sortnum"
        rs.Open sqltext,cn,1,1
        do while not rs.EOF %>
      <table width="88%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td colspan="2" height="10"></td>
        </tr>
        <tr> 
          <td width="20" class="font3" valign="top"><img
                        src="images/dian.gif"></td>
          <td><a href="<%=linkcareers%>?keyno=<%=rs("keyno")%>&detail=1" class="anews"><%=trim(rs("title"))%></a></td>
        </tr>
      </table>
      <%rs.MoveNext 
        loop
        rs.Close %>
      <table width="88%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td colspan="2">&nbsp;</td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
          <td width="60"><a href="<%=linkcareers%>" class="more">更多内容&gt;&gt;</a></td>
        </tr>
      </table>    
    <table width="88%" border="0" cellspacing="0" cellpadding="0" align="center">
      <tr><td>&nbsp;</td></tr>
    </table>
    </td>

  </tr>
</table>
<!-- #include file="end.asp" -->
<script language=Javascript>
	function load(sel) {
		var url = sel.options[sel.selectedIndex].value;
		if (url != ""){
			if (typeof(sel.options[sel.selectedIndex].target)!="undefined"){
				open(url, sel.options[sel.selectedIndex].target);
			}else{
				eval(sel.options[sel.selectedIndex].value)
			}
			sel.selectedIndex=0
		}
		else{
					
		}				
		return false;
	}
	
	function playrm(code)
	{
	window.open('playrm.asp?code='+code,'','toolbar=no,location=no,status=no,menubar=no,width=350,height=330,left=120,top=100')
	}
</script>
<%
if session("gg")="" then session("gg")=0
if session("gg")=0 then
sqltext="select * from danwei where pid=4 and enable=1 order by pl"
rs.Open sqltext,cn,1,1
top1=70
left1=120
do while not rs.EOF
yhj=rs("yhj")
thj=rs("thj")
%>
<script language=Javascript>	
	window.open("./popwin2.asp?id=<%=rs("id")%>","","width=<%=yhj%>,height=<%=thj%>,scrollbars=no,left=<%=left1%>,top=<%=top1%>")
</script>
<%
rs.MoveNext
top1=top1+30
left1=left1+50
loop 
rs.Close 
session("gg")=1
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -