📄 index.asp
字号:
<!--#include file="include/ms_setting.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1 Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址： www.maosin.com www.maosin.net
' QQ：57861417
'电子邮箱：maosin@163.com maosin@maosin.com
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
catTitle="首页"
%>
<!--#include file="ms_start.asp"-->
<%Call message(2)
maosin_getads(1)
%>
<!--中间部分开始-->
<table width="100%" align="center" border="0" cellpadding="0" cellspacing="0" class="mainMiddle_tdble"><tr>
<!--左栏开始-->
<td valign="top" class="mainMiddle_td_left">
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">站内公告</span></td><td class="ltr"></td></tr></table>
<div class="lmc"><%Call message(1)%></div>
</div>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">会员登录</span></td><td class="ltr"></td></tr></table>
<div class="lmc"><%Call publiclogonModule()%></div>
</div>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">站内统计</span></td><td class="ltr"></td></tr></table>
<div class="lmc" style="line-height:18px; padding-left:8px;"><%Call ms_statistic()%></div>
</div>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">在线投票</span></td><td class="ltr"></td></tr></table>
<div class="lmc"><%Call voteitem()%></div>
</div>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">友情链接</span></td><td class="ltr"></td></tr></table>
<div class="lmc" style="text-align:center;"><%Call friendLink()%></div>
</div>
</td>
<td class="mainMiddle_td_middle"></td>
<td width="*" valign="top" class="mainMiddle_td_right">
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="index_tl"><script type="text/javascript">ico()</script></td><td class="index_tc"><span class="rtt">新闻动态</span></td><td class="index_tr"><a href="news.asp" id="aMore">More…</a></td></tr></table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="rmc">
<tr><td width="200" align="center" class="index_newsPic"><%Call newsPic()%></td><td width="*" class="index_newsNew"><%Call index_news()%></td></tr>
</table>
</div>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="search">
<form name="ms_search" action="search.asp" method="get">
<tr>
<td height="25" valign="middle" align="right" style="padding:5px;"> <img src="images/search_s.gif" width="15" height="15" align="absmiddle" border="0"> 站内搜索： </td><td width="*" class="td_topT">
<select name="modeSelect">
<option value="suTitle" selected="selected">标题</option>
<option value="suCentent">内容</option>
</select>
<select name="typeSelect">
<option value="sunews" selected="selected">新闻</option>
<option value="suart">文章</option>
<option value="supic">图片</option>
<option value="susofter">软件</option>
<option value="sures">资源</option>
</select>
<input type="text" name="selectkeyword" value="关键字" class="wenbenkang" size="30" onfocus="this.value=''"> <input class="but1" type="submit" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'" name="Submit" value="搜索">
</td>
</tr>
</form>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" width="50%">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="index_tl"><script type="text/javascript">ico()</script></td><td class="index_tc"><span class="rtt">最新文章</span></td><td class="index_tr"><a href="art.asp" id="aMore">More…</a></td></tr></table>
<div class="index_mc"><%Call index_art(0)%></div>
</td>
<td valign="top" width="50%">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="index_tl"><script type="text/javascript">ico()</script></td><td class="index_tc"><span class="rtt">推荐文章</span></td><td class="index_tr"><a href="art.asp" id="aMore">More…</a></td></tr></table>
<div class="index_mc"><%Call index_art(1)%></div>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="index_tl"><script type="text/javascript">ico()</script></td><td class="index_tc"><span class="rtt">最新图片</span></td><td class="index_tr"><a href="pic.asp" id="aMore">More…</a></td></tr></table>
<div class="index_Pmc"><%Call index_pic()%></div>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" width="50%">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="index_tl"><script type="text/javascript">ico()</script></td><td class="index_tc"><span class="rtt">最新下载</span></td><td class="index_tr"><a href="down.asp" id="aMore">More…</a></td></tr></table>
<div class="index_mc"><%Call index_down(0)%></div>
</td>
<td valign="top" width="50%">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="index_tl"><script type="text/javascript">ico()</script></td><td class="index_tc"><span class="rtt">推荐下载</span></td><td class="index_tr"><a href="down.asp" id="aMore">More…</a></td></tr></table>
<div class="index_mc"><%Call index_down(1)%></div>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" width="50%">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="index_tl"><script type="text/javascript">ico()</script></td><td class="index_tc"><span class="rtt">最新免费资源</span></td><td class="index_tr"><a href="res.asp" id="aMore">More…</a></td></tr></table>
<div class="index_mc"><%Call index_res(0)%></div>
</td>
<td valign="top" width="50%">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="index_tl"><script type="text/javascript">ico()</script></td><td class="index_tc"><span class="rtt">推荐免费资源</span></td><td class="index_tr"><a href="res.asp" id="aMore">More…</a></td></tr></table>
<div class="index_mc"><%Call index_res(1)%></div>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" width="50%">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="index_tl"><script type="text/javascript">ico()</script></td><td class="index_tc"><span class="rtt">会员排行</span></td><td class="index_tr"><a href="user_center.asp?action=userlist" id="aMore">More…</a></td></tr></table>
<div class="index_mc"><%Call index_user()%></div>
</td>
<td valign="top" width="50%">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="index_tl"><script type="text/javascript">ico()</script></td><td class="index_tc"><span class="rtt">最新留言</span></td><td class="index_tr"><a href="guestbook.asp" id="aMore">More…</a></td></tr></table>
<div class="index_mc"><%Call index_gb()%></div>
</td>
</tr>
</table>
</td></tr></table>
<%maosin_getads(3)%>
<!--#include file="ms_end.asp"-->
<%
Sub friendLink()
dim rs,sql
Sql="SELECT * FROM ms_Link where pass=true"
set rs=conn.Execute(sql)
If Not rs.Eof and Not rs.Bof Then
%>
<DIV id=oRollV style="MARGIN: 0px; OVERFLOW: hidden; HEIGHT: 180px">
<DIV id=oRollV1>
<TABLE cellPadding=3>
<TBODY></TR>
<%Do While Not rs.Eof
if rs("linkmode")=1 then%>
<TR align=middle><TD>
<a href="link.asp?action=go&id=<%=rs("id")%>" onfocus="this.blur()" target="_blank"><img src="<%=rs("weblogo")%>" width="88" height="31" border="1" style="border-color:#333333"></a>
</TD></TR>
<%
end if
rs.MoveNext
Loop%>
</TBODY></TABLE></DIV>
<DIV id=oRollV2></DIV></DIV>
<script language="javascript">
var Lspeed=20
oRollV2.innerHTML=oRollV1.innerHTML
function LMarquee(){
if(oRollV2.offsetTop-oRollV.scrollTop<=0)
oRollV.scrollTop-=oRollV1.offsetHeight
else{oRollV.scrollTop++}}
var LMyMar=setInterval(LMarquee,Lspeed)
oRollV.onmouseover=function() {clearInterval(LMyMar)}
oRollV.onmouseout=function() {LMyMar=setInterval(LMarquee,Lspeed)}
</script>
<%
rs.MoveFirst
%>
<br/>
<a href="link.asp">申请链接</a> <select name="textlink" onChange="if(this.options[this.selectedIndex].value!=''){window.open(this.options[this.selectedIndex].value,'_blank');}">
<option value="" selected>文字链接</option>
<%Do While Not rs.Eof
if rs("linkmode")=0 then%>
<option value='link.asp?action=go&id=<%=rs("id")%>'><%=rs("webname")%></option>
<%end if
rs.MoveNext
Loop
Else
Response.Write("暂时没有友情链接！")
End if
rs.close
Set rs=Nothing
%>
</select> <a href="link.asp">更多</a>
<%
End Sub
Sub newsPic()
dim sql,rs,pic,links,texts
sql="select top 8 * from ms_news where picnews=1 and pass=true order by news_date desc"
Set rs=conn.Execute(sql)
do while not rs.eof
pic=pic&rs("news_imgurl")&"|"
links=links&"shownews.asp?id="&rs("id")&"|"
texts=texts&cutStr(rs("news_title"),18)&"|"
rs.MoveNext
loop
if pic<>"" or links<>"" or texts<>"" then
pic=left(pic,len(pic)-1)
links=left(links,len(links)-1)
texts=left(texts,len(texts)-1)
rs.close
Set rs=Nothing
end if
%>
<script type="text/javascript">
<!--
var focus_width=200;
var focus_height=150;
var text_height=20;
var swf_height = focus_height+text_height;
var pics='<%=pic%>';
var links='<%=links%>';
var texts='<%=texts%>';
document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="images/pixviewer.swf"><param name="quality" value="high"><param name="bgcolor" value="#f0f0f0">');
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
document.write('<embed src="images/pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#f2f2f2" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
document.write('</object>');
//-->
</script><%
End Sub
Sub index_News()
dim sql,rs
sql="select top "&indexNewsNum&" * from ms_news as n,ms_news_class as c,ms_news_cat as cat where cat.catID=c.catID and n.classID=c.classID and n.pass=true order by n.news_istop=true,n.news_date desc"
Set rs=conn.Execute(sql)
if not rs.eof and not rs.bof then
Do While Not rs.Eof%>
<div class="lineX">
[<a href="news.asp?catID=<%=rs("cat.catID")%>&classID=<%=rs("c.classID")%>" target="_blank"><%=rs("class")%></a>] <a href="shownews.asp?id=<%=rs("id")%>" title="新闻标题：<%=rs("news_title")%> 发布时间：<%=rs("news_date")%> 浏览次数：<%=rs("news_clicks")%>" target="_blank"><font color="<%=rs("titlecolor")%>"><%=cutStr(rs("news_title"),20)%></font></a><%if rs("picnews")=1 then response.Write(" <img src=images/tuwen.gif align=absmiddle border=0 title=""图片新闻"">") end if%>
</div>
<%rs.MoveNext
Loop%>
<%
else
Response.Write("暂无记录！")
end if
rs.close
Set rs=Nothing
End Sub
Sub index_art(showMode)
dim sql,rs
if showMode=1 then
sql="select top "&indexArtNum&" art.*,cla.* from ms_art as art,ms_art_class as cla where art.classID=cla.classID and art.pass=true and art.art_good=true order by art_date desc"
else
sql="select top "&indexArtNum&" art.*,cla.* from ms_art as art,ms_art_class as cla where art.classID=cla.classID and art.pass=true order by art_date desc"
end if
Set rs=conn.Execute(sql)
if not rs.eof and not rs.bof then
Do While Not rs.Eof%>
<div class="lineX"> <a href=showart.asp?id=<%=rs("id")%> target="_blank" title="文章标题：<%=rs("art_title")%> 发表时间：<%=rs("art_date")%> 浏览次数：<%=rs("art_clicks")%>"><font color="<%=rs("titlecolor")%>"><%=cutStr(rs("art_title"),18)%></font></a><%if rs("picart")=1 then response.write(" <img src=images/tuwen.gif border=0 align=absmiddle title=""图片文章"">") end if%> <%if cint(DateDiff("d",rs("art_date"),now))<2 then response.write(" <img src=images/new_1.gif border=0 align=absmiddle>") end if%></div>
<%rs.MoveNext
Loop
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -