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

📄 dxtg_list.asp

📁 小灵通短信网站源程序
💻 ASP
字号:
<% Response.Buffer=True %>
<!--#include file="adivoces.asp"-->
<% set rs=server.createobject("adodb.recordset")
sql="select * from tougao order by id desc" 
rs.open sql,conn,1,1 
if not isempty(request("page")) then   
pagecount=cint(request("page"))   
else   
pagecount=1   
end if
rs.pagesize=15
rs.AbsolutePage=pagecount%>
<html>
<head>
<title>更多网友发表的精彩短句</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!-- Style definitions:
.big: biggest font (used on the home page for the date)
.cur: the current channel
.chn: the rest of the channels
.dir: search directories
.sub: search subdirectories
.hdr: headers for sections in outer columns
.itm: items for sections in outer columns
.eng: English text
-->
.big {font-family: Arial, Helvetica, 宋体; font-size: 13pt; font-weight: bold}
.cur {font-family: 宋体; font-size: 9pt; color: #ff0000}
.chn {font-family: 宋体; font-size: 9pt}
.dir {font-family: 宋体; font-size: 11pt; font-weight: bold}
.sub {font-family: 宋体; font-size: 9pt}
.hdr {font-family: 宋体; font-size: 11pt; font-weight: bold}
.itm {font-family: 宋体; font-size: 9pt}
.eng {font-family: Arial, Helvetica, 宋体; font-size: 9pt}
a.hover {color: red}
</style>
</head>
<body bgcolor="#ffffff" link="#000099" alink="#cc0000" vlink="#000099" topmargin="8">
<center>
  <div align="center"> 
    <table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
      <tr bgcolor="#FEF0D1"> 
        <center>
          <td width="235" height="65"> 
            <p align="center"><img src="../image/logo_sltm.gif" width="250" height="75"> 
          </td>
        </center>
        <td bgcolor="#FEF0D1"> 
          <div align="center"> 
            <script language=javascript src=../guanggao/ads.asp?place=0></script>
          </div>
        </td>
      </tr>
    </table>
  </div>
  <div align="center"> 
    <table border="0" cellpadding="0" cellspacing="0" width="100%" align="center" class="itm">
      <center>
        <tr> 
          <td height="2" valign="top" bgcolor="#00006A"> </td>
        </tr>
      </center>
      <tr> 
        <center>
          <td width="100%" height="16" bgcolor="#FFF9F0" valign="bottom"> &nbsp; 
            ◇<a href="../asp/addnew.asp"> 注册</a> ◇<a href="../"> 沙龙首页 </a>◇ <a href="salon.asp?classid=6">短句中心 
            </a>◇ 精彩频道 ◇ <a href="../sl1/sl98">英语沙龙 </a>◇<a href="../wz/wz8"> 
            英语文摘 </a>◇ <a href="../asp/tougao/">网上投稿</a> ◇ <a href="../asp/default.asp">读者俱乐部</a> 
            ◇</td>
        </center>
      </tr>
      <center>
        <tr> 
          <td height="2" valign="top" bgcolor="#00006A"> </td>
        </tr>
      </center>
    </table>
  </div>
  <table width="100%" border="0" align="center">
    <script language=javascript>
function IsDigit(cCheck)
{
	return (('0'<=cCheck) && (cCheck<='9'));
}

function IsAlpha(cCheck)
{
	return ((('a'<=cCheck) && (cCheck<='z')) || (('A'<=cCheck) && (cCheck<='Z')))
}

function checkvalue()
{
 if ( document.house.type.value.length == 0 ) {
	alert( "请选发表短句的类别!");
	document.house.type.focus();
	return false;
	}
 if ( document.house.tittle.value.length == 0 ) {
	alert( "请输入短句标题!");
	document.house.tittle.focus();
	return false;
	}

 if ( document.house.name.value.length == 0 ) {
	alert( "请输入你的网名!");
	document.house.name.focus();
	return false;
	}
 return true;
}
</script>
    <tr> 
      <td valign="top" width="24%" height="241"> 
        <table border=0 cellpadding=1 cellspacing=0 width=100%>
          <tbody> 
          <tr> 
            <td height=6></td>
          </tr>
          <tr> 
            <td class=dq2> 
              <table border=0 cellpadding=0 cellspacing=1 class=itm width="100%">
                <tbody> 
                <tr> 
                  <td height="2" bgcolor="#FEF0D1"> 
                    <div align="center">:::: <a href="dxtg_main.asp">网友自创短句欣赏</a> 
                      ::::</div>
                  </td>
                </tr>
                <tr> 
                  <td bgcolor="#FFFFCC"> 
                    <table border=0 cellpadding=5 cellspacing=0 
            width="100%" class="itm">
                      <tbody> 
                      <tr> 
                        <td><a 
                  href="dxtg_search.asp?txtitle=%D3%A2%CE%C4%C3%FB%D1%D4">中英文名言</a></td>
                        <td><a 
                  href="dxtg_search.asp?txtitle=%CC%E5%D3%FD%D3%A2%D3%EF">体育英语</a></td>
                      </tr>
                      <tr> 
                        <td><a 
                  href="dxtg_search.asp?txtitle=%D1%E8%D3%EF">谚语和小诗</a></td>
                        <td><a href="dxtg_search.asp?txtitle=%C8%D5%B3%A3">日常英语</a></td>
                      </tr>
                      <tr> 
                        <td><a 
                  href="dxtg_search.asp?txtitle=%D3%C4%C4%AC">幽默和笑话</a></td>
                        <td><a href="dxtg_search.asp?txtitle=%CF%B0%D3%EF">英文习语</a></td>
                      </tr>
                      <tr> 
                        <td><a href="dxtg_search.asp?txtitle=%B3%C9%D3%EF">英文成语</a></td>
                        <td><a href="dxtg_search.asp?txtitle=%D9%B5%D3%EF">俚语类</a></td>
                      </tr>
                      <tr> 
                        <td><a href="dxtg_search.asp?txtitle=%CA%D6%BB%FA">手机短信</a></td>
                        <td><a href="dxtg_search.asp?txtitle=%C6%E4%CB%FB">其他短句</a></td>
                      </tr>
                      </tbody> 
                    </table>
                  </td>
                </tr>
                </tbody> 
              </table>
            </td>
          </tr>
          <tr> 
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td class=dq2 valign="top" height="30"> 
              <table border=0 cellpadding=5 cellspacing=0 
            width="100%" bgcolor="#FFFFCC" class="itm">
                <tbody> 
                <tr> 
                  <td bgcolor="#FEF0D1"> 
                    <div align="center"><a href="index.asp?classid=8&Nclassid=24"></a>:::: 
                      英语沙龙短句中心::::</div>
                  </td>
                </tr>
                <tr> 
                  <td><a 
                  href="salon.asp?classid=6">英语短句类别</a> <a href="index.asp?classid=8&Nclassid=22"> 
                    </a><a href="salon.asp?classid=8">中英文名言短句</a> </td>
                </tr>
                <tr> 
                  <td><a href="index.asp?classid=8&Nclassid=22"></a><a href="salon.asp?classid=7">搞笑英语</a> 
                    <a href="salon.asp?classid=9">搞笑短句</a></td>
                </tr>
                </tbody> 
              </table>
            </td>
          </tr>
          <tr> 
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td> 
              <div align="center" class="itm"><a href="dxtg.asp">我想自己写短句</a></div>
            </td>
          </tr>
          <tr> 
            <td height="3">&nbsp; </td>
          </tr>
          <tr> 
            <td>&nbsp; </td>
          </tr>
          <tr> 
            <td>&nbsp; </td>
          </tr>
          </tbody> 
        </table>
      </td>
      <td valign="top" width="76%" height="241"> 
        <p></p>
        <table width="100%" cellpadding="0" cellspacing="0">
          <tr bgcolor="#ebebeb"> 
            <td colspan="5" class=chn height="17"><a href="../"><font 
            color=#000099>首页</font></a>&gt;<font color=#000099><a href="salon.asp?classid=6">短句中心</a>&gt;<a href="dxtg.asp">发表短句</a>&gt;阅读网友发表的短句</font> 
            </td>
          </tr>
          <tr class=chn bgcolor="#FEF0D1"> 
            <td width="60%" height="20" class="itm" bgcolor="#FEF0D1"><b>总共查到<font color="#0000AE"><%=rs.recordcount%></font>条记录, 
              页次:<font color="#0000AE"><%=pagecount%></font>/<%=rs.pagecount%></b>(每页显示15条记录)</td>
            <td width="40%" height="20" class="itm" align="right">&nbsp;</td>
          </tr>
          <tr valign="top"> 
            <td  height="20" colspan="2"> 
              <table border=0 width="100%">
                <tr bgcolor="#FFF9F0"> 
                  <td align=center width="65" class=chn>短句类型</td>
                  <td align=center width="308" class=chn bgcolor="#FFF9F0">短句标题</td>
                  <td align=center width="75" class=chn>作者</td>
                  <td align=center width="105" class=chn>更新时间</td>
                </tr>
                <% do while not rs.eof %>
                <tr bgcolor="#FEF0D1"> 
                  <td align=center width="65" class=chn><a href="send.asp?id=<%=rs("id")%>" title="<%=rs("title")%>" target=_blank> 
                    </a><%=rs("leixing")%></td>
                  <td align=center width="308" class=chn bgcolor="#FEF0D1"><a href="dxtg_send.asp?uid=<%=rs("title")%>" title="<%=rs("title")%>"> 
                    <%if len(rs("title"))>22 then%>
                    <%=left(rs("title"),22)%>... 
                    <%else%>
                    <%=rs("title")%> 
                    <%end if%>
                    </a> </td>
                  <td align=center width="75" class=chn><%=rs("name")%></td>
                  <td align=center width="105" class=chn><%=rs("time")%></td>
                </tr>
                <tr bgcolor="#FFF9F0"> 
                  <td align=center colspan="7" class=chn>&nbsp; </td>
                </tr>
                <% n=n+1                                                                     
           rs.movenext                                                                     
          if n>=rs.pagesize then exit do                                                                     
           loop %>
                <tr> 
                  <td align=right colspan=7 valign=top class="itm" bgcolor="#FEF0D1"> 
                    <%if pagecount=1 and rs.pagecount<>pagecount then%>
                    <a href="dxtg_list.asp?page=<%=cstr(pagecount+1)%>"> <font color="#000000">下一页</font><a> 
                    <% end if %>
                    <% if rs.pagecount>1 and rs.pagecount=pagecount then %>
                    </a></a><a><a href="dxtg_list.asp?page=<%=cstr(pagecount-1)%>"> 
                    <font color="#000000">上一页</font><a> 
                    <%end if%>
                    <%if pagecount<>1 and rs.pagecount<>pagecount then%>
                    </a></a><a><a href="dxtg_list.asp?page=<%=cstr(pagecount-1)%>"> 
                    <font color="#000000">上一页</font><a> </a></a><a><a href="dxtg_list.asp?page=<%=cstr(pagecount+1)%>"> 
                    <font color="#000000">下一页</font><a> 
                    <%end if%>
                    </a></a></a></a></a></td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
        <p align=center class=itm>&nbsp; 
      </td>
    </tr>
  </table>
  <hr align="center">
  <div align="center" class="eng">建议使用800*600的分辨率<br>
    <a href="mailto:webmaster@es123.com">网管信箱</a><br>
    Copyright &copy; 2001 English Salon 版权所有 不得转载 </div>
</center>
</body>
</html>

⌨️ 快捷键说明

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