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

📄 more_sms_it801.asp

📁 小灵通短信网站源程序
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<%
	dim rs,sql
	dim classid
	dim classname
   	if request("classid")<>"" then
		classid=request("classid")
   	else
		classid=1
   	end if
  	set rs = server.createobject("adodb.recordset")
 	set rs1=server.createobject("adodb.recordset")
  	sql="select * from Aclass where classID="&cstr(classid)
 	rs.open sql,conn,1,1
 	if not rs.eof then
		classname=rs("class")
 	end if
	rs.close
%>
<html>
<head>
<title>it801工作室之短信服务</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>BODY {
	COLOR: #304618; FONT-SIZE: 12px
}
TD {
	COLOR: #304618; FONT-SIZE: 12px
}
TH {
	COLOR: #304618; FONT-SIZE: 12px
}
.p1 {
	COLOR: #304618; FONT-SIZE: 12px
}
.p2 {
	FONT-SIZE: 12px; LINE-HEIGHT: 140%
}
.p3 {
	FONT-SIZE: 14px
}
.p4 {
	FONT-SIZE: 14px; LINE-HEIGHT: 130%
}
.p5 {
	FONT-SIZE: 7px
}
.p6 {
	COLOR: #d0571f
}
.p7 {
	COLOR: #6c8a14
}
.dm1 {
	BACKGROUND-COLOR: #ffcc00
}
.dm2 {
	BACKGROUND-COLOR: #ffeda6
}
.dm3 {
	BACKGROUND-COLOR: #6c8a14
}
.dm4 {
	BACKGROUND-COLOR: #d5ea95
}
.dm5 {
	BACKGROUND-COLOR: #e6f1c5
}
.ds1 {
	BACKGROUND-COLOR: #6c8a14
}
.ds2 {
	BACKGROUND-COLOR: #a3d11a
}
.ds3 {
	BACKGROUND-COLOR: #d5ea95
}
.dq1 {
	BACKGROUND-COLOR: #e5b700
}
.dq2 {
	BACKGROUND-COLOR: #ffcc00
}
.dq3 {
	BACKGROUND-COLOR: #ffeda6
}
.dyy {
	BACKGROUND-COLOR: #e6f1c5
}
.dw {
	BACKGROUND-COLOR: #ffffff
}
.dgy {
	BACKGROUND-COLOR: #d9d9d9
}
.dt1 {
	BACKGROUND-COLOR: #e6e6e6; COLOR: #6c8a14
}
.dt2 {
	BACKGROUND-COLOR: #f9fcef; COLOR: #6c8a14
}
A {
	FONT-SIZE: 12px
}
A:link {
	COLOR: #304618
}
A:visited {
	COLOR: #3e5d1b
}
A:hover {
	COLOR: #6c8a14
}
.wt {
	COLOR: #ffffff; TEXT-DECORATION: none
}
A.wt:link {
	COLOR: #ffffff; TEXT-DECORATION: none
}
A.wt:visited {
	COLOR: #ffffff; TEXT-DECORATION: none
}
A.wt:hover {
	COLOR: #d5ea95
}
.bk {
	COLOR: #000000; TEXT-DECORATION: none
}
A.bk:link {
	COLOR: #000000; TEXT-DECORATION: none
}
A.bk:visited {
	COLOR: #000000; TEXT-DECORATION: none
}
A.bk:hover {
	COLOR: #000000; TEXT-DECORATION: underline
}
A.bk1:link {
	COLOR: #000000; TEXT-DECORATION: none
}
A.bk1:visited {
	COLOR: #000000; TEXT-DECORATION: none
}
A.bk1:hover {
	COLOR: #000000
}
A.more:link {
	COLOR: #d0571f; FONT-FAMILY: verdana; FONT-SIZE: 10px; FONT-STYLE: italic; FONT-WEIGHT: bold; TEXT-DECORATION: underline
}
A.more:visited {
	COLOR: #d0571f; FONT-FAMILY: verdana; FONT-SIZE: 10px; FONT-STYLE: italic; FONT-WEIGHT: bold; TEXT-DECORATION: underline
}
A.more:hover {
	COLOR: #ff0000; TEXT-DECORATION: underline
}
.t2 {
	BACKGROUND: #c1ce9a; COLOR: #304618; FONT-SIZE: 12px
}
.111 {
	BACKGROUND: #fff99d; BORDER-BOTTOM: #304618 1px solid; BORDER-LEFT: #d5ea95 1px solid; BORDER-RIGHT: #8f8f8f 1px solid; BORDER-TOP: #d5ea95 1px solid; COLOR: #304618; FONT-FAMILY: arial; FONT-SIZE: 12px
}
.222 {
	BACKGROUND: #fff99d; BORDER-BOTTOM: #d5ea95 1px solid; BORDER-LEFT: #8f8f8f 1px solid; BORDER-RIGHT: #d5ea95 1px solid; BORDER-TOP: #304618 1px solid; COLOR: #304618; FONT-FAMILY: arial; FONT-SIZE: 12px
}
.send {
	BACKGROUND-COLOR: #e6f1c5; BORDER-BOTTOM: #e6f1c5 1px solid; BORDER-LEFT: #e6f1c5 1px solid; BORDER-RIGHT: #e6f1c5 1px solid; BORDER-TOP: #e6f1c5 1px solid; FONT-SIZE: 12px
}
</STYLE>
</head>
<body bgcolor="#FFFFFF" text="#000000" topMargin=0>
<div align="center"> 
  <table border=0 cellpadding=0 cellspacing=0 class=menu1 width=750 align="center" bgcolor="#eeeeee">
    <tbody> 
    <tr> 
      <td height=68 width=150><a href="http://www.it801.com" target="_blank"><img src="../images/bazhu.gif" width="150" height="78" border="0"></a></td>
      <td height=68 width=491> 
        <div align="center"><a href="http://www.it801.com" target="_blank"><img src="../images/banner.gif" width="480" height="60" border="0"></a></div>
      </td>
      <td width="109"> 
        <div align=center><font color=#000000><br>
          <a href="801news/2002621125933.htm" target="_blank">成立宗旨</a><br>
          <a 
      class=bz 
      href="javascript:window.external.addFavorite('http://www.it801.com/','801工作室')">加入书签</a><br>
          精品广告<br>
          </font></div>
      </td>
    </tr>
    </tbody> 
  </table>
</div>
<div align="center"> 
  <table border="0" cellpadding="0" cellspacing="0" width="750" align="center">
    <center>
      <tr> 
        <td height="2" valign="top" bgcolor="#00006A"> </td>
      </tr>
    </center>
    <tr> 
      <center>
        <td width="405" height="16" bgcolor="#E1E1E1" valign="bottom"> &nbsp; 
          ◇<a href="http://bbs.it801.com/reg.asp">注册</a> ◇<a href="http://www.it801.com">it801首页</a>◇<a href="http://download.it801.com">下载基地</a>◇<a href="http://bbs.it801.com">论坛</a>◇<a href="index.asp">手机短信首页</a></td>
      </center>
    </tr>
    <center>
      <tr> 
        <td height="2" valign="top" bgcolor="#00006A"> </td>
      </tr>
    </center>
  </table>
</div>
<table width="750" border="0" align="center">
  <tr> 
    <td valign="top" width="21%" height="199" bgcolor="#0099cc"> <br>
    </td>
    <td valign="top" width="58%" height="199"> 
      <table border=0 cellpadding=0 cellspacing=0 width=100%>
        <tbody> 
        <tr> 
          <td width=205></td>
          <td width=10></td>
          <td width=205></td>
        <tr> 
          <td class=p7 
      colspan=3>::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::<br>
            --- <b><%=classname%>最新10条手机短信息</b>----------&gt; <a 
      href="dxtg.asp">我想自己写几个短句</a> &lt;---<br>
            ----------------------------------------------------------------------</td>
        </tr>
        <tr> 
          <td colspan=3 height="86"> 
            <p><font style=line-height:150%> 
              <% 
	sql="select top 10 " 
	sql=sql&"articles.articleid,articles.title,articles.dateandtime,articles.hits,articles.classid,articles.Nclassid,ANclass.Nclass " 
	sql=sql&" from articles,ANclass where articles.Nclassid=ANclass.Nclassid and articles.classid="&classid&" " 
	sql=sql&" order by articles.articleid desc" 
	rs.open sql,conn,1,1 
	if rs.eof and rs.bof then 
%>
              没有更新任何短句 
              <%else%>
              <%do while not rs.eof%>
              </font></p>
            <table width="100%" border="0">
              <tr> 
                <td width="21%">[<a href='it801.asp?classid=<%=rs("classid")%>&Nclassid=<%=rs("Nclassid")%>'><%=rs("Nclass")%></a>]</td>
                <td width="71%"><a href="send.asp?id=<%=rs("articleid")%>" title="<%=rs("title")%>" target=_blank> 
                  <%if len(rs("title"))>22 then%>
                  <%=left(rs("title"),22)%>... 
                  <%else%>
                  <%=rs("title")%> 
                  <%end if%>
                  </a><br>
                </td>
                <td width="8%"><font color=green><%=rs("hits")%></font></td>
              </tr>
              <% 
	rs.movenext 
	loop 
	end if 
	rs.close 
%>
            </table>
            <font style=line-height:150%> </font></td>
        </tr>
        <tr> 
          <td class=p7 
      colspan=3><br>
            ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::<br>
            --- <font class=p6><b>每周短信TOP 10 排行榜</b></font> ----------------------------------------<br>
            ----------------------------------------------------------------------</td>
        </tr>
        <tr> 
          <td colspan=3><font style=line-height:150%> </font> 
            <% 
			sql=sql&"articles.articleid,articles.title,articles.dateandtime,articles.hits,articles.classid,articles.Nclassid,ANclass.Nclass " 
	sql="SELECT top 10 * FROM articles,ANclass where articles.Nclassid=ANclass.Nclassid and articles.classid="&classid&" and year(dateandtime)=year(date()) and month(dateandtime)=month(date()) and day(dateandtime)>=day(date()-6) order by hits desc" 
	rs.open sql,conn,1,1 
	if rs.bof and rs.eof then 
		response.write "本周无更新短句" 
	else 
	do while not rs.eof     
%>
            <table width="100%" border="0">
              <tr> 
                <td width="19%">[<%=rs("Nclass")%>]</td>
                <td width="72%"><a href="send.asp?id=<%=rs("articleid")%>" title="<%=rs("title")%>" target=_blank> 
                  <%if len(rs("title"))>22 then%>
                  <%=left(rs("title"),22)%>... 
                  <%else%>
                  <%=rs("title")%> 
                  <%end if%>
                  </a><br>
                </td>
                <td width="9%"><font color=green><%=rs("hits")%></font></td>
              </tr>
            </table>
            <%    
	rs.movenext     
	loop 
	end if  
	rs.close   
%>
          </td>
        </tr>
        <tr> 
          <td class=p7 
      colspan=3><br>
          </td>
        </tr>
        <tr> 
          <td colspan=3> </td>
        </tr>
        </tbody> 
      </table>
    </td>
    <td valign="top" width="21%" height="199" bgcolor="#0099cc"> 
      <p><font style=line-height:150%> 
        <% 
	sql="select class,classid from Aclass" 
	rs.open sql,conn,1,1 
	if rs.bof and rs.eof then 
		response.write "没有任何分类" 
	else 
	do while not rs.eof 
%>
        <a href="more_sms_it801.asp?classid=<%=rs("classid")%>"><%=rs("class")%></a><br>
        <% 
	sql1="select Nclass,Nclassid,classid from ANclass where classid="&rs("classid") 
	rs1.open sql1,conn,1,1 
	do while not rs1.eof 
%>
        <a href="it801.asp?classid=<%=rs1("classid")%>&Nclassid=<%=rs1("Nclassid")%>"><%=rs1("Nclass")%></a>&nbsp; 
        <% 
	rs1.movenext 
	loop 
	rs1.close 
%>
        <br>
        <br>
        <% 
	rs.movenext 
	loop 
	end if 
	rs.close 
	conn.close
	set conn=nothing
%>
        </font></p>
      <p></p>
    </td>
  </tr>
</table>
<div align="center">
  <table align=center border=0 cellpadding=0 
cellspacing=0 width=750 class="unnamed2">
    <tbody> 
    <tr> 
      <td height=65 width="712"> 
        <div align="center"> 
          <hr align="center" size="1">
          | <a href="../tech/2002624162639.htm" target="_blank">检索帮助</a> | <a href="../Operation/2002624161957.htm">联系我们</a> 
          | <a href="../801bbs/reg.asp">我要注册</a> | <a href="http://bbs.it801.com">论坛</a> 
          | <a href="http://download.it801.com">下载基地</a> | <a href="http://www.it801.com/sms">手机短信</a> 
          |<br>
          <br>
          it801工作室 倾情奉献</div>
      </td>
    </tr>
    </tbody> 
  </table>
  
</div>
</body>
</html>

⌨️ 快捷键说明

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