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

📄 index_main.asp

📁 这是一个非常好的留言版程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<HEAD><TITLE><%=SiteName%>-设计网摘,平面网摘,CG网摘,网络书签,收藏夹-设计联盟|广告|传媒|建筑|艺术|平面设计|环艺设计|三维·CG|网页网络|设计院校|绘画书法|设计资源|人才求职|公司招聘</TITLE>
<META content="D摘,设计网摘,平面网摘,CG网摘,网络书签,收藏夹,design,web design,dreamweaver design,firework,flash,forum,3D,photoshop,网站制作,网页设计,设计论坛,flash制作,资源,设计资源,酷站,韩国网站,模版,适量,素材,图片,字体,特效,程序,摄影,网站设计, 网站包装, 站点设计, WEB DESIGN,平面设计, 图形设计, 企业建站,css,视觉传达,平面设计,广告,设计,数字设计,创意设计,广告创意,网页设计,互动媒体,多媒体,CG动画,影像视频,数码影像,数码媒体,工业设计,产品设计,卡通动漫,漫画,动画,绘画艺术,建筑设计,数字艺术,设计,设计资源, 设计服务, 设计论坛" name=keywords>
<META content="D摘,设计网摘,平面网摘,CG网摘,网络书签,收藏夹,design,web design,dreamweaver design,firework,flash,forum,3D,photoshop,网站制作,网页设计,设计论坛,flash制作,资源,设计资源,酷站,韩国网站,模版,适量,素材,图片,字体,特效,程序,摄影,网站设计, 网站包装, 站点设计, WEB DESIGN,平面设计, 图形设计, 企业建站,css,视觉传达,平面设计,广告,设计,数字设计,创意设计,广告创意,网页设计,互动媒体,多媒体,CG动画,影像视频,数码影像,数码媒体,工业设计,产品设计,卡通动漫,漫画,动画,绘画艺术,建筑设计,数字艺术,设计,设计资源, 设计服务, 设计论坛" name=description>
<link rel="alternate" type="application/rss+xml" href="rss2feed.asp" title="<%=SiteName%>" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<META content=all name=robots>
<META content=cao1984@126.com,尤来尤去 name=author>
<META content=www.dzhai.com,版权所有,未经授权禁止复制或建立镜像 name=Copyright>
<META content=TRUE name=MSSmartTagsPreventParsing>
<link href="css/css.css" rel="stylesheet" type="text/css" />
		  <%
function cutstr(tempstr,tempwid)         '声明标题字数变量
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<script language="JavaScript">
function submitForm(obj)
{
	var Title=obj.Title.value;
	var Sort=obj.Sort.value;	
	obj.action="list.asp?sort="+Sort+"&title="+Title;
	return true;
}
</script>
<body leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0" bgcolor="#585858">
<div align="center">
<div style="width:916px; text-align:center; background-color:#FFFFFF" align="center">
<table width="900" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="8" colspan="2"></td>
    </tr>
  <tr>
    <td width="283" height="28" bgcolor="#9E9EAD">&nbsp;</td>
    <td bgcolor="#9E9EAD"><iframe src="index_head.asp" height="28" width="617" scrolling="no" name="inside" frameborder="NO" border="0" framespacing="0"></iframe></td>
  </tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="10" colspan="2"  bgcolor="#ffffff"></td>
  </tr>
  <tr>
    <td height="33" colspan="2" align="center" bgcolor="#B3BDC4">&nbsp;<a href="index.html" class=nav>首 页</a>&nbsp;&nbsp;<a href="img.asp" 
      title="下载中心" target="_blank" class=nav>图片版</a>
    <%
       row=1       
       sql="select b.SortID,b.SortName,count(a.ID) as Num from zhai a right join sort b on a.Sort=b.SortID group by b.SortID,b.SortName order by b.SortID"
       set rs=server.createobject("ADODB.recordset")
       rs.open sql,conn,3
       if not rs.Eof then


         while not rs.Eof
           Response.Write("&nbsp;<a href='list.asp?sort="&rs("SortID")&"' class=nav>"&rs("SortName")&"</a>&nbsp")
           rs.MoveNext
           row=row+1 
           wend          
         
       end if
       rs.close
       %>&nbsp;<a href="rank.asp" title="收藏排行" target="_blank">收藏排行</a>&nbsp;&nbsp;<a href="union.asp" title="流量联盟" target="_blank">流量联盟</a>&nbsp;<a href="down/ezhai.reg" target="_blank">下载插件</a></td>
  </tr>
</table><table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="449" height="35" align="center" bgcolor="#E3E8EA"><table width="85%" border="0" cellPadding="2" cellSpacing="0"><form method="POST" action="so.asp" target="_blank">
						<tr>
							<td height="45" align="center">
							<input id="tag" maxLength="50" size="18" name="tag"></td>
							<td align="center">
							<input class="button" id="submit1" type="submit" value=" 搜 索 " name="submit1"></td>
						    <td align="center">	<input id="sc" type="radio" value="all" name="tj" checked />
						   </td>
						    <td align="center">所有收藏</td>
						    <td align="center">
						      <input id="hy" type="radio" value="user" name="tj" />
						    </td>
						    <td align="center">用户</td>
						    <td align="center">
						      <input id="all" type="radio" value="bq" name="tj" />
						    </td>
						    <td align="center"><font color="#ff6600">标签</font></td>
						</tr>
					</form></table>
    </td>
    <td width="1" bgcolor="#b7b7c2"></td>
    <td width="1" bgcolor="#FFFFFF"></td>
    <td width="449" align="center" bgcolor="#E3E8EA" style="font-size:14px;"><font color="#FF3300">热门标签:</font>
      <%
          		set rs=conn.execute("select top 5 id,sort,XSort from XSort order by hits desc")
          		i=1 
          		do while i<=5 and not rs.eof 
          		%>
          		<A href="tag.asp?xsort=<%=rs(2)%>" target="_blank"><%=rs(2)%></A>
          		<%
          		rs.movenext
          		i=i+1
          		loop
          		rs.close%>
	<a style="padding:0px; COLOR: #ff6600; text-decoration:underline" target="_blank" href="tagmore.asp">更多&gt;&gt;</a> </td>
  </tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="10" colspan="7" bgcolor="#FFFFFF"></td>
  </tr>
  <tr>
    <td width="221" height="55" bgcolor="#D4D0C8"><a href="http://www.dzhai.com" target="_blank"><font class="title">设计D摘网  设计D摘网</font><br />
      一种方便快捷的美味书签</a></td>
    <td width="5" bgcolor="#FFFFFF"></td>
    <td width="221" bgcolor="#D4D0C8"><a href="down/dzhai.reg"><font class="title">下载安装网摘插件</font><br />
      免费注册并建立你的网摘</a></td>
    <td width="5" bgcolor="#FFFFFF"></td>
    <td width="221" bgcolor="#D4D0C8"><a onclick="window.open(this.href,'收藏文章','width=505,height=465,top=80,left=20,toolbar=no,scrollbars=no,menubar=no,location=no,status=no,resizable=yes');return false;" href="bookmark.asp" target="_blank"><font class="title">发现和保存精彩世界</font><br />
      鼠标一点就能保存任意页面</a></td>
    <td width="5" bgcolor="#FFFFFF"></td>
    <td bgcolor="#D4D0C8"><a href="reg.asp" target="_blank"><font class="title">让我们分享互联网</font><br />
      一切是如此的快乐和美妙</a></td>
  </tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td height="10" colspan="2" align="left"></td>
  </tr>
  <tr>
    <td width="235" align="left" valign="top"><table width="225" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="145" height="28" bgcolor="#d4d0c8" class="title" align="left">精彩导读</td>
        </tr>
      <tr>
        <td align="center" bgcolor="#F4EFE5"><!--焦点推荐图片开始-->
<span id="ad_100">正在加载数据...</span>
<SPAN ID=span_ad_100 CLASS="spanclass"><script src="include/jingcai_dd.js"></script></SPAN> 
<SCRIPT>ad_100.innerHTML=span_ad_100.innerHTML;span_ad_100.innerHTML="";</SCRIPT> 
	
<!--焦点推荐图片结束--></td>
      </tr>
    </table>
      <table width="225" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10"></td>
        </tr>
        <tr>
          <td height="28" bgcolor="#D4D0C8" class="title">本站公告</td>
        </tr>
      </table>
      <table width="225" border="0" cellpadding="0" cellspacing="0">
        <%
               
                ae=1
                set rs=server.createobject("adodb.recordset")
                sql = "select * from notice order by id desc"
                rs.open sql,conn,3,3
                do while not rs.eof
                %>
        <tr>
          <td width="83%" height="25" align="left" bgcolor="#F4EFE5" class="list">·<a href="javascript:win=open('notice.ASP?id=<%=rs("id")%>','offer','width=450,height=250,status=no,menubar=no,scrollbars=yes,top=0,left=0'); win.focus()"><%=cutstr(rs("biaoti"),14)%></a></td>
          <td width="17%" align="center" bgcolor="#F4EFE5"><font color="#666666"><%= month(rs("data"))&"/"&day(rs("data"))&""&"" %></font></td>
        </tr>
        <%
                ae=ae+1
                if ae>=5 then exit do
                rs.movenext
                loop
                rs.close
                set rs=nothing
                %>
      </table></td>
    <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="350" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ccccd4">
          <tr>
            <td height="28" align="left" class="title">今日精辟</td>
            <td align="right"><a href="rss2feed.asp" target="_blank"><img src="image/icon-rss.gif" alt="RSS格式输出" width="26" height="14" border="0" align="absmiddle" /></a>&nbsp;<a target="_blank" href="jsfeed.asp"><img src="image/icon-js.gif" alt="JS格式输出" width="26" height="14" border="0" align="absmiddle"></a>&nbsp;<a href="newzhai.asp" target="_blank">更多&gt;&gt;&gt;</a> </td>
          </tr>
        </table>
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td align="left" bgcolor="#f2f3f7"><span id="newwz">正在加载数据...</span><!--最新网摘JS开始--><SPAN ID=span_newwz CLASS="spanclass"><script src="include/newwz.js"></script></SPAN> 
<SCRIPT>newwz.innerHTML=span_newwz.innerHTML;span_newwz.innerHTML="";</SCRIPT><!--最新网摘JS结束--></td>
            </tr>
          </table></td>
        <td width="10"></td>
        <td width="305" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#becde6">
          <tr>
            <td height="28" align="left" class="title">48小时精彩收藏&nbsp;</td>
            <td align="right"><a target="_blank" href="jsfeed.asp?p=Reads"><img src="image/icon-js.gif" alt="JS格式输出" width="26" height="14" border="0" align="absmiddle" /></a> <a target="_blank" href="rss2feed.asp?p=Reads"> <img src="image/icon-rss.gif" alt="RSS格式输出" width="26" height="14" border="0" align="absmiddle" /></a>&nbsp;更多&gt;&gt;&gt; </td>
          </tr>
        </table>
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td align="left" bgcolor="#e6f2f9" class="list" background="image/bgline.gif"><%
		row=0
		set rszhai=conn.execute("select top 8 ID,IIf(Len(Title)<15,Title,Left(Title,15)+'..') as Title,UserID,PostTime,FromURL,HtmUrl,filepath,a.Sort,b.SortName,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro,c.ZhaiID,c.Visits from zhai a,sort b,(select ZhaiID,count(*) as Visits from visit where int(now-VisitTime)<=2 group by ZhaiID order by count(*) desc) c where a.Sort=b.SortID and ID=c.ZhaiID and isPub=true order by Visits desc")
		do while not rszhai.Eof	
			if isgd=1 then
				linkadd="article/"&rszhai("filepath")&"/"&rszhai("HtmUrl")
			else
				linkadd="goto.asp?id="&rszhai("id")
			end if			
			a=split(rszhai("PostTime"),"-")	
			Response.Write("[<a href='list.asp?sort="&rszhai("Sort")&"' target=_blank>"&rszhai("SortName")&"</a>] <a href="&linkadd&" target='_blank' >"&HTMLEncode(rszhai("Title"))&"</a><br>")
			rszhai.movenext
			row=row+1
			if row=8 then
				Exit do
			end if
		loop
		rszhai.close
	   %></td>
            </tr>
          </table></td>
      </tr>
    </table>
      <table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" bgcolor="#E3E6EE">	   
	    <%
pageno=request("pageno")
if pageno="" then pageno=1

set rs=server.createobject("adodb.recordset")
sql="select * from zhai where img<>'' order by id desc "
rs.open sql,conn,1,1

if not rs.bof and not rs.eof then
   		rs.pagesize=1                        
		rs.absolutepage=pageno 
    	
    zjls=rs.pagesize
        
    if zjls mod 1 =0 then
	   hs=zjls/1
	else
	   hs=round(zjls/4+0.6)
	end if

for i=1 to hs
if rs.eof then exit for

			if isgd=1 then
				linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
			else
				linkadd="goto.asp?id="&rs("id")
			end if
%>
        <tr>
          <td height="10" colspan="4" bgcolor="#FFFFFF"></td>
        </tr>
        <tr>
          <td height="172" align="center" valign="middle"><a target="_blank" href="<%=linkadd%>"><img border="1" src="<%=rs("img")%>" width="135" height="120" class="picborder" /></a><br />
          <a href="<%=linkadd%>" target="_blank" title="<%=rs("title")%>" class="pic"><%=cutstr(rs("title"),10)%></a></td>
          <%rs.movenext
		if rs.eof then exit for
			if isgd=1 then
				linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
			else
				linkadd="goto.asp?id="&rs("id")
			end if		
		%>
          <td valign="middle" align="center"><a target="_blank" href="<%=linkadd%>"><img border="1" src="<%=rs("img")%>" width="135" height="120" class="picborder" /></a><br />
          <a href="<%=linkadd%>" target="_blank" title="<%=rs("title")%>" class="pic"><%=cutstr(rs("title"),10)%></a></td>
          <%rs.movenext
		if rs.eof then exit for
			if isgd=1 then
				linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
			else
				linkadd="goto.asp?id="&rs("id")
			end if		
		%>
          <td valign="middle" align="center"><a target="_blank" href="<%=linkadd%>"><img border="1" src="<%=rs("img")%>" width="135" height="120" class="picborder" /></a><br />
          <a href="<%=linkadd%>" target="_blank" title="<%=rs("title")%>" class="pic"><%=cutstr(rs("title"),10)%></a></td>
          <%rs.movenext
		if rs.eof then exit for
			if isgd=1 then
				linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
			else
				linkadd="goto.asp?id="&rs("id")
			end if		
		%>
          <td valign="middle" align="center"><a target="_blank" href="<%=linkadd%>"><img src="<%=rs("img")%>" width="135" height="120" class="picborder" /></a><br />
          <a href="<%=linkadd%>" target="_blank" title="<%=rs("title")%>" class="pic"><%=cutstr(rs("title"),10)%></a></td>
          <%rs.movenext
		if rs.eof then exit for
		%>
        </tr>
        <%next%>
        <%else%>
暂无内容
        <%end if%>
      </table>    </td>
  </tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="10" colspan="7"></td>
    </tr>
  <tr>
    <td width="225" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>

⌨️ 快捷键说明

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