📄 main.asp
字号:
<!--#include file="Head.asp"-->
<div align="center">
<table width="868" border="0" cellspacing="0" cellpadding="0" class="Outside">
<tr>
<td width="200" height="300" valign="top" bgcolor="#F2F2F2">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="3"><img src="Images/Main_menu_title.gif" width="200" height="40"></td>
</tr>
<tr>
<td colspan="3" bgcolor="#F2F2F2"> </td>
</tr>
<tr>
<td colspan="3" align="center" bgcolor="#F2F2F2">
<table width="146" height="101" border="0" cellpadding="0" cellspacing="0" background="Images/Main_product_bg.jpg">
<tr>
<td width="26" height="25" > </td>
<td width="119" class="MainMenu"><a href="../System/AdminLogin.asp" target=_blank>网站后台管理登录</a></td>
</tr>
<tr>
<td height="25" > </td>
<td width="119" class="MainMenu"><a href="http://demo.suqun.net/web1/weboa/index.asp" target=_blank>企业协同信息管理</a></td>
</tr>
<tr>
<td height="25" > </td>
<td width="119" class="MainMenu"><a href="http://demo.suqun.net/web1/weboa/index.asp" target=_blank>需求供应商登录处</a></td>
</tr>
<tr>
<td height="24" > </td>
<td width="119" class="MainMenu"><a href="http://www.suqun.net/"target=_blank>企业网站管理系统</a></td>
</tr>
</table> </td>
</tr>
<tr>
<td colspan="3" bgcolor="#F2F2F2"> </td>
</tr>
<tr>
<td colspan="3"><img src="Images/Search_title.gif" width="200" height="14"></td>
</tr>
<tr>
<td colspan="3" bgcolor="#F2F2F2"> </td>
</tr>
<tr>
<td colspan="3" align="center" bgcolor="#F2F2F2"><%=SearchForm()%></td>
</tr>
<tr>
<td colspan="3" bgcolor="#F2F2F2"> </td>
</tr>
<tr>
<td width="20" align="center" bgcolor="#F2F2F2"> </td>
<td width="160" align="center" background="Images/AD_host01_bg.jpg" bgcolor="#F2F2F2"><a href="#"><img src="Images/AD_host01.gif" width="160" height="106" border="0"></a></td>
<td width="20" align="center" bgcolor="#F2F2F2"> </td>
</tr>
<tr>
<td colspan="3" align="center" bgcolor="#F2F2F2"> </td>
</tr>
</table> </td>
<td width="4"></td>
<td valign="top" class="AllCenter">
<table width="664" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30" height="32" align="center" bgcolor="#F4F4F4"><img src="Images/Arrow_01.gif" width="14" height="11"></td>
<td width="50" bgcolor="#F4F4F4"><font style="font-weight: bold;"color="#1874CD">公告：</font></td>
<td width="584" align="center" bgcolor="#F4F4F4">
<marquee align="left" width="560" scrollAmount="1" scrollDelay="4" onmouseover="this.stop()" onMouseOut="this.start()">
<%=TopAffiche()%>
</marquee> </td>
</tr>
<tr>
<td height="4" colspan="3" bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="664" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="279" height="28" class="TopNew"><img src="Images/Main_news_top.gif" width="160" height="17"></td>
<td width="47" class="TopNew"><a href="NewsList.asp"><img src="Images/More_01.gif" width="40" height="11" border="0"></a></td>
<td width="12" background="Images/Compart_line_01.gif"></td>
<td width="279" class="TopNew"><img src="Images/Main_feedback_top.gif" width="160" height="17" ></td>
<td width="47" class="TopNew"><a href="MessageList.asp"><img src="Images/More_01.gif" width="40" height="11" border="0"></a></td>
</tr>
<tr>
<td colspan="2" valign="top"><%=TopNews()%></td>
<td background="Images/Compart_line_01.gif"> </td>
<td colspan="2" valign="top"><%=TopMessage()%></td>
</tr>
<tr>
<td height="12" colspan="5"></td>
</tr>
<tr>
<td class="TopNew" height="28" colspan="4"><img src="Images/Main_products_top.gif" width="160" height="17"></td>
<td class="TopNew"><a href="ProductList.asp"><img src="Images/More_01.gif" width="40" height="11" border="0"></a></td>
<table width="661" border="0" cellspacing="0" cellpadding="0" class="Outside">
<td><div id=demo style=overflow:hidden;height:199;width:661;color:#ffffff>
<table align=left cellpadding=0 cellspace=0 border=0><tr><td id=demo1 valign=top>
<%=TopProducts()%></td>
<td id=demo2 valign=top></td></tr></table></div>
<script>
var speed=30
demo2.innerHTML=demo1.innerHTML
demo.scrollLeft=demo.scrollWidth
function Marquee(){
if(demo.scrollLeft<=0)
demo.scrollLeft+=demo2.offsetWidth
else{
demo.scrollLeft--
}
}
var MyMar=setInterval(Marquee,speed)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script></td>
</tr>
</table></td>
<td > </td>
</tr>
</table>
</div>
<%
function TopAffiche()
dim rs,sql,i
set rs = server.createobject("adodb.recordset")
sql="select ID,NewsName"&LangData&",SortID from suqun_News where ViewFlag"&LangData&" and NoticeFlag order by id desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂无相关信息"
end if
for i=1 to 4
if rs.eof then exit for
response.write "<font color='#BFCC2A'>·</font><a href=NewsView.asp?ID="&rs("ID")&"&SortID="&rs("SortID")&">"&rs("NewsName"&LangData)&"</a> "
rs.movenext
next
rs.close
set rs=nothing
end function
function TopNews()
dim rs,sql,i,NewsName,NewFlag
set rs = server.createobject("adodb.recordset")
sql="select ID,NewsName"&LangData&",SortID,AddTime from suqun_News where ViewFlag"&LangData&" and commendFlag order by id desc"
rs.open sql,conn,1,1
response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
response.write "<tr><td height='14'></td></tr>"
if rs.bof and rs.eof then
response.write "<tr><td align='center'>暂无相关信息</td></tr>"
else
for i=1 to 6
if rs.eof then exit for
if StrLen(rs("NewsName"&LangData))<=48 then
NewsName=rs("NewsName"&LangData)
else
NewsName=StrLeft(rs("NewsName"&LangData),46)
end if
if now()-rs("AddTime")<=2 then
NewFlag=" <img src='Images/New_01.gif'>"
else
NewFlag=""
end if
response.write"<tr ><td class='ListTitle'> <FONT style='FONT-SIZE: 12px; COLOR: #333333; FONT-FAMILY: Webdings'>4</FONT> <a href='NewsView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>"&NewsName&"</a>"&NewFlag&"</td></tr>"
rs.movenext
next
end if
response.write "<tr><td height='6'></td></tr>"
response.write"</table>"
rs.close
set rs=nothing
end function
function TopMessage()
dim rs,sql,i,MesName,NewFlag
set rs = server.createobject("adodb.recordset")
sql="select ID,MesName,AddTime from suqun_Message where ViewFlag order by id desc"
rs.open sql,conn,1,1
response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
response.write "<tr><td height='14'></td></tr>"
if rs.bof and rs.eof then
response.write "<tr><td align='center'>暂无相关信息</td></tr>"
else
for i=1 to 6
if rs.eof then exit for
if StrLen(rs("MesName"))<=46 then
MesName=rs("MesName")
else
MesName=StrLeft(rs("MesName"),44)
end if
if now()-rs("AddTime")<=2 then
NewFlag=" <img src='Images/New_01.gif'>"
else
NewFlag=""
end if
response.write"<tr ><td class='ListTitle'> <FONT style='FONT-SIZE: 12px; COLOR: #333333; FONT-FAMILY: Webdings'>4</FONT> <a href='MessageList.asp'>"&MesName&"</a>"&NewFlag&"</td></tr>"
rs.movenext
next
end if
response.write "<tr><td height='6'></td></tr>"
response.write"</table>"
rs.close
set rs=nothing
end function
function TopProducts()
dim rs,sql,i,ProductName,SmallPicPath
set rs = server.createobject("adodb.recordset")
sql="select ID,ProductName"&LangData&",SortID,SmallPic,GroupID,Exclusive from suqun_Products where ViewFlag"&LangData&" and NewFlag order by id desc"
rs.open sql,conn,1,1
response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
response.write "<tr><td height='20'></td></tr>"
if rs.bof and rs.eof then
response.write "<tr><td align='center'>无最新产品相关信息</td></tr>"
else
response.write"<tr>"
for i=1 to 8
if rs.eof then exit for
response.write"<td width='25%'>"
if StrLen(rs("ProductName"&LangData))<=20 then
ProductName=rs("ProductName"&LangData)
else
ProductName=StrLeft(rs("ProductName"&LangData),18)
end if
SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))
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='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>" &_
"<img src='"&SmallPicPath&"' border='0' width='140' height='140' onload='javascript:DrawImage(this,140,140);'></a>" &_
"</td></tr><tr><td height='32'><img src='Images/Arrow_01.gif' width='14' height='11'" &_
" align='absmiddle'> <a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>"&ProductName&"</a></td></tr></table>"
response.write"</td>"
rs.movenext
next
response.write"</tr>"
end if
response.write "</table>"
rs.close
set rs=nothing
end function
function TopFriendSite()
dim rs,sql
dim i,SiteFace
set rs = server.createobject("adodb.recordset")
sql="select * from suqun_FriendSite where ViewFlag"&LangData&" order by id desc"
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
response.write "<table border='0' cellspacing='0' cellpadding='0' >" &_
"</tr>" &_
"<tr height='40'>"
for i=1 to 7
if rs.eof then exit for
response.write "<td width='124' align=center height='40' >"
if rs("LinkType") then
SiteFace="<img src="&rs("SiteFace")&" width=110 height=34 border=0 >"
else
SiteFace=rs("SiteFace")
if len(SiteFace)>8 then SiteFace=left(SiteFace,8)
end if
response.write "<table border='0' cellpadding='0' cellspacing='0' bgcolor='#FFFFFF'>" &_
"<tr><td align='center' width='110' height='34'>" &_
"<a target='_blank' href='"&rs("SiteUrl")&"' target='_blank' title="&rs("SiteName")&">"&SiteFace&"</a>" &_
"</td></tr></table>"
rs.movenext
next
response.write "</td></tr></table>"
end if
rs.Close
set rs=nothing
end function
%>
<!--#include file="Foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -