📄 index.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> "
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> <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> <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--> </td>
<td height="21" valign="top"><!--DWLayoutEmptyCell--> </td>
<td height="21" valign="top"><!--DWLayoutEmptyCell--> </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> <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 + -