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

📄 index.asp

📁 管理登录system 管理员:admin 密码:admin888 数据库链接文件: conn.asp 内容数据库前台链接文件 systemconn.asp 内容数据库后台链接文件 sy
💻 ASP
字号:
<!--#include file="SiteInfo.asp"-->
<%
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
'★                                                                  ★
'☆                万博中小企业网站管理系统(NWEB)                    ☆
'★                                                                  ★
'☆  版权所有 Nweb.cn                                                ☆
'★                                                                  ★
'☆  程序制作 万博工作室                                             ☆
'★           Add:四川省彭州市西大街228号/611930                     ★
'☆           Tel:028-88079088  Fax:83708850                         ☆
'★           E-m:duolaimi-123@163.com                               ★
'☆           Q Q:59309100                                           ☆
'★                                                                  ★
'☆  相关网址 [产品介绍]http://www.Nweb.cn                           ☆
'★           [支持论坛]http://www.Nweb.cn/bbs                       ★
'☆                                                                  ☆
'★  演示网址 http://www.Nweb.cn                                     ★
'☆                                                                  ☆
'★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
%>
<HTML>
<HEAD>
<TITLE>首页|<%=SiteName%></TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME="copyright" CONTENT="Copyright 2004-2005 - NWEB.CN-STUDIO-多来米">
<META NAME="Author" CONTENT="万博网络技术工作室,www.Nweb.cn">
<META NAME="Robots" CONTENT="all">
<META NAME="Keywords" CONTENT="<%=Keywords%>">
<META NAME="Description" CONTENT="<%=Description%>">
<link href="Images/CSS.css" type=text/css rel=stylesheet>
</HEAD>
<script language="JavaScript"> 
 
var flag=false; 
function DrawImage(ImgD){ 
 var image=new Image(); 
 image.src=ImgD.src; 
 if(image.width>0 && image.height>0){ 
  flag=true; 
  if(image.width/image.height>= 140/140){ 
   if(image.width>140){
    ImgD.width=140; 
    ImgD.height=(image.height*140)/image.width; 
   }else{ 
    ImgD.width=image.width;
    ImgD.height=image.height; 
   } 
   ImgD.alt= "点击查看详细信息..."; 
  } 
  else{ 
   if(image.height>140){
    ImgD.height=140; 
    ImgD.width=(image.width*140)/image.height; 
   }else{ 
    ImgD.width=image.width;
    ImgD.height=image.height; 
   } 
   ImgD.alt="点击查看详细信息..."; 
  } 
 }
}
//--> 

</script>
<BODY>
<!--#include file="Top.asp" -->
<table width="868" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="190" height="96" valign="top" bgcolor="#F2F2F2" >
	<!--#include file="LeftNav.asp" -->
    <!--#include file="IndexLeft.asp" -->	</td>
    <td width="5"></td>
    <td width="673" valign="top" bgcolor="#FFFFFF" class="Index-Center"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <!--DWLayoutTable-->
      <tr>
        <td height="180" colspan="2" bgcolor="#FFFFFF"><img src="Images/Banner_01.jpg" alt="万博中小企业网站系统" width="499" height="180"></td>
        <td width="172" align="right" bgcolor="#FFFFFF"><img src="Images/Banner_02.jpg" alt="万博中小企业网站系统" width="171" height="180"></td>
      </tr>
      <tr>
        <td width="65" height="5" bgcolor="#FFFFFF"></td>
        <td width="436" bgcolor="#FFFFFF"></td>
        <td bgcolor="#FFFFFF"></td>
      </tr>
      <tr>
        <td height="30" align="right" bgcolor="#F2F2F2">
		<strong><font color="#1c529b"><img src="Images/Arrow-Affiche.gif" width="14" height="12" align="absmiddle"> 公告:</font></strong></td>
        <td colspan="2" align="center" bgcolor="#F2F2F2" class="Affiche">
		<MARQUEE align="left" width="560" scrollAmount="1" scrollDelay="4"  onmouseover="this.stop()" onMouseOut="this.start()">
<%
set Rs = server.createobject("adodb.recordset") 
Rs.source = "select * from News where Putout=true and TreeID='1' order by id desc "
Rs.open Rs.source,conn,1,1
if Rs.BOF then
   response.write "暂无新闻公告信息!"
end if
for i=1 to 4

    if Rs.EOF or Rs.BOF then exit for
	   Newtitle=rs("Newtitle")
	   if len(Newtitle)>20 then Newtitle=left(Newtitle,20)&"…" 
       response.write "·<a href=NewsView.asp?id="&Rs("ID")&">"&Newtitle&"</a>&nbsp;&nbsp;"
    Rs.movenext
next
Rs.close
set Rs=nothing
%>
		</MARQUEE>		</td>
      </tr>
      <tr>
        <td height="5" align="center" bgcolor="#FFFFFF"></td>
        <td colspan="2" align="center" bgcolor="#FFFFFF"></td>
      </tr>
      
    </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0" >
        <tr>
          <td width="276" height="30"><img src="Images/Index_Center_TopNewsTitle.gif" alt="最新动态" width="85" height="21"></td>
          <td width="56"><a href="NewsList.asp"><img src="Images/More.gif" alt="更多内容…" width="40" height="11" border="0"></a></td>
          <td width="8"></td>
          <td width="276"><img src="Images/Index_Center_TopFeedbackTitle.gif" alt="最新反馈" width="85" height="21"></td>
          <td><a href="FeedbackList.asp"><img src="Images/More.gif" alt="更多内容…" width="40" height="11" border="0"></a></td>
        </tr>
        <tr>
          <td height="13" colspan="2"><%
Set Rs = server.createobject("adodb.recordset") 
Rs.source = "select * from News where Putout=true order by id desc "
Rs.open Rs.source,conn,1,1
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='0'class='Index-Center3'>"
if Rs.BOF then
   response.write "<tr><td align='center'>暂无新闻资讯!</td></tr>"
else
   for i=1 to 6
       if Rs.EOF or Rs.BOF then exit for
       Newtitle=Rs("Newtitle")
	   if len(Newtitle)>19 then Newtitle=left(Newtitle,19)&"…" 
       Response.Write"<tr ><td width=11></td><td height=22><img src=Images/Arrow-Title.gif  align=absmiddle>&nbsp;<a href='NewsView.asp?id="&Rs("id")&"' target='_blank'>"&Newtitle&"</a></td><td width=60 class=Index-Center2>"&Rs("AddTime")&"</td></tr>"
       Rs.movenext
   next
end if
Response.Write"</table>"
Rs.Close
set Rs=nothing
%>          </td>
          <td></td>
          <td colspan="2"><%
Set Rs = server.createobject("adodb.recordset") 
Rs.source = "select * from Feedback where Outpub=true order by id desc "
Rs.open Rs.source,conn,1,1
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='0'class='Index-Center3'>"
if Rs.BOF then
   response.write "<tr><td align='center'>暂无新闻资讯!</td></tr>"
else
   for i=1 to 6
       if Rs.EOF or Rs.BOF then exit for
       Title=Rs("Title")
	   if len(Title)>19 then Title=left(Title,19)&"…" 
       Response.Write"<tr ><td width=11></td><td height=22><img src=Images/Arrow-Title.gif  align=absmiddle>&nbsp;<a href='FeedbackList.asp?Page=1' target='_blank'>"&Title&"</a></td><td width=60 class=Index-Center2>"&Rs("AddTime")&"</td></tr>"
       Rs.movenext
   next
end if
Response.Write"</table>"
Rs.Close
set Rs=nothing
%>          </td>
        </tr>
        <tr>
          <td height="40"><img src="Images/Index_Center_TopProTitle.gif" alt="最新产品" width="85" height="21"></td>
          <td height="21" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
          <td height="21" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
          <td height="21" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
          <td height="21"><a href="ProductsList.asp"><img src="Images/More.gif" alt="更多内容…" width="40" height="11" border="0"></a></td>
        </tr>
        <tr>
          <td colspan="5" align="center">
<%
Set Rs = server.createobject("adodb.recordset") 
Rs.source = "SELECT * FROM Products where LPutout=true ORDER BY id DESC"
Rs.open Rs.source,conn,1,1
Response.Write"<table width='99%' border='0' cellspacing='0' cellpadding='0' class='Index-Center4'>"
if Rs.BOF then
   response.write "<tr><td align='center'>暂无产品信息!</tr></td>"
else
   Response.Write"<tr>"
   for i=1 to 4
       if Rs.EOF or Rs.BOF then exit for
       Response.Write"<td width='25%'>"
         '=========
         set RsTrue = server.createobject("adodb.recordset")
         RsTrue.open "select GroupLevel from Nweb_UGroup where GroupID='"&Rs("GroupID")&"'",conn,1,1
         GroupLevel=RsTrue("GroupLevel")
         RsTrue.Close
         set RsTrue=nothing
         if Session("GroupLevel")="" then Session("GroupLevel")=0
         LPattern=Rs("LPattern")
         Select Case Rs("Exclusive")
            Case "<"
               if Session("GroupLevel") < GroupLevel then
                  LPattern="Images/NoRight.gif"
               end if
            Case "="
               if Session("GroupLevel") <> GroupLevel then
                  LPattern="Images/NoRight.gif"
               end if
         End Select
         '=========
	   LName=Rs("LName")
	   if len(LName)>10 then LName=left(LName,10)&"…" 
       Response.Write"<table align=center  border='0' cellpadding='0' cellspacing='0' ><tr><td  align='center'  width='142' height='142' style='text-decoration: underline;	border: 1px solid #CCCCCC;'><a href='ProductsView.asp?id="&Rs("id")&"' target='_blank'><img src="&LPattern&" border=0 width=140 height=140 onload=javascript:DrawImage(this);></a></td></tr><tr><td height=28><img src=Images/Arrow-Index-Products.gif width=14 height=12 align=absmiddle>&nbsp;<a href='Products.asp?id="&Rs("id")&"' target='_blank'>"&LName&"</a></td></tr></table>"
       Rs.movenext
   next
end if
Response.Write"</tr>"
Response.Write"</table>"
Rs.Close
set Rs=nothing
%>
          </td>
        </tr>
        <tr>
          <td height="8" colspan="5" align="center"></td>
        </tr>
        <tr>
          <td height="1"></td>
          <td></td>
          <td></td>
          <td></td>
          <td width="56"></td>
        </tr>
      </table></td>
  </tr>
</table>
<%
Set Rs = server.createobject("adodb.recordset") 
Rs.source = "SELECT * FROM Nweb_FLink where Putout=true ORDER BY id DESC"
Rs.open Rs.source,conn,1,1
if not (Rs.BOF or Rs.EOF) then
   Response.Write"<hr width=868 size=1 color=#ff4d00><table border='0' cellspacing='0' cellpadding='0'><tr>"
   for i=1 to 7
       if Rs.EOF or Rs.BOF then exit for
       Response.Write"<td width='124' align=center>"
	   if Rs("LinkType")="T" then 
	      SiteView=Rs("SiteView")
	      if len(SiteView)>8 then SiteView=left(SiteView,8)
	   else
   	      SiteView="<img src="&Rs("SiteView")&" width=110 height=34  border=0 >"
	   end if
	
       Response.Write"<table  border='0' cellpadding='0' cellspacing='0'  class='Index-Center5'><tr><td align=center  width=110 height=34><a target='_blank' href='"&Rs("SiteHttp")&"' target='_blank' title="&Rs("SiteName")&">"&SiteView&"</a></td></tr></table>"
       Rs.movenext
   next
   Response.Write"</tr></table>"
end if
Rs.Close
set Rs=nothing
%>
<!--#include file="Bot.asp" -->
<!--#include file="FocusLoad.asp" -->
</BODY>
</html>
<script src="system/mystat.asp"></script>

⌨️ 快捷键说明

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