coolsites_body.asp

在线 点播音乐的功能 只提供参考

<%sub coolsites_body()
dim totalcs
opensites
sql="select cs_id from coolsites"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
%>
<table width="<%=tablewidth%>" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr> 
    <td height="10" colspan="3"></td>
  </tr>
  <tr> 
    <td align="center" valign="top" width="554"> 
      <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="98%" id="AutoNumber1">
        <tr>
          <td width="100%" style="border-style: none; border-width: medium">
          <img border="0" src="images/friendlink.jpg"></td>
        </tr>
        
      </table>
      
      <%
dim totalfl,passing
sql="select fl_id from friendlink"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalfl=rs.recordcount
sql="select fl_id from friendlink where passed=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
passing=rs.recordcount
%><font color="#808080">&nbsp; </font><font color="#808080">
     
      </font>
      <div align="center">
        <center>
          <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#C0C0C0">
            <tr> 
              <td width="100%" align="center"  bordercolor="#C0C0C0" bgcolor="#FFFFFF"> 
                <table width="100%" height="25" border="0" align="center" cellpadding="0" cellspacing="0" class="chinese">
                  <tr> 
                    <td width="20" align="center"><img src="images/bg4_left2.gif" width="20" height="25"></td>
                    <td width="500"align="center" background="images/bg4.gif"><font color="#808080">当前共有<span class="newshead"><%=totalfl%></span>个友情链接，其中正在等待通过验证的<span class="newshead"><%=passing%></span>个。</font></td>
                    <td width="20" align="center"><img src="images/bg4_right.gif" width="20" height="25"></td>
                  </tr>
                </table> 
            </tr>
      </table>
        </center>
      </div>
      <%sql="select * from flcat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
dim rs2_numrows
rs2_numrows=0
Dim HLooper1__numRows
Dim HLooper1__index
HLooper1__index = 0
startrw = 0
endrw = HLooper1__index
numberColumns = 4
sql="select * from friendlink where flcat_id="&rs("flcat_id")&" and passed=0"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
HLooper1__numRows = rs2.recordcount
if HLooper1__numRows=0 then
   numrows=1
else
if HLooper1__numRows>=numberColumns then
if (HLooper1__numRows mod numberColumns)=0 then
   numrows=HLooper1__numRows\numberColumns
else
   numrows=HLooper1__numRows\numberColumns+1
end if
else
numrows=1
end if
end if
%><font color="#808080">&nbsp; </font>
      <div align="center">
        <center>
          <table width="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#E8E8E8" style="border-collapse: collapse" bordercolor="#111111">
            <tr> 
              <td height="28" bgcolor="#999999" class="diaryhead">&nbsp;<%=rs("flcat_name")%><font color="#808080"> 
                <%if rs("isimage")=1 then response.write "[文本形式的链接]" end if%>
                </font> </td>
        </tr>
      </table>
        </center>
      </div>
      <table width="98%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td bgcolor="#FFFFFF">
            <table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#E8E8E8" align="center">
              <%do while((numrows <> 0) AND (Not rs2.EOF))
	startrw = endrw + 1
	endrw = endrw + numberColumns
rs2_numRows = rs2_numRows + HLooper1__numRows%><font color="#808080"> </font>
              <tr> 
                <%do While ((startrw <= endrw) AND (Not rs2.EOF))%><font color="#808080">
                </font>
                <td width="25%" height="25" bgcolor="#FFFFFF"><a href="<%=rs2("fl_url")%>" title="<%=rs2("fl_name")%>" target="_blank"> 
                  </a> <a href="<%=rs2("fl_url")%>" title="<%=rs2("fl_name")%>" target="_blank"> 
                  <font color="#808080"> </font> </a><br>
                  <a href="<%=rs2("fl_url")%>" title="<%=rs2("fl_name")%>" target="_blank"> 
                  <%if rs("isimage")=0 then response.write "<img src='"&rs2("fl_logo")&"' border='0'>" else response.write rs2("fl_name") end if%>
                  </a> </td>
                <%
	startrw = startrw + 1
	rs2.MoveNext()
	loop
	%><font color="#808080"></font>
              </tr>
              <%numrows=numrows-1
loop
if rs2.eof and rs2.bof then%> 
              <tr> 
                <td bgcolor="#F5F5F5" align="center" class="chinese">
                <font color="#808080">当前该分类中还没有链接！</font></td>
              </tr>
              <%end if
rs2.close
set rs2=nothing
%> 
            </table>
          </td>
        </tr>
      </table>
      <%rs.movenext
loop
if rs.eof and rs.bof then%><font color="#808080">&nbsp; </font>
      <table width="98%" border="0" cellspacing="1" cellpadding="10" bgcolor="#E8E8E8" align="center">
        <tr> 
          <td bgcolor="#F5F5F5" align="center" class="chinese">
          <font color="#808080">当前没有友情链接！</font></td>
        </tr>
      </table>
      <%end if%><font color="#808080">&nbsp; </font><font color="#808080">
      <br>
      <br>
      </font>
    </td>
    <td align="center" valign="top" width="1" background="images/dotlinev.gif"></td>
    <td align="center" valign="top" width="205"> <font color="#808080">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td background="images/dotlineh.gif" height="1"></td>
        </tr>
      </table>
      <font color="#808080">&nbsp;
     
      </font>
      <table width="94%" border="0" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" class="chinese" style="border-collapse: collapse" bordercolor="#111111">
        <form name="form1" method="post" action="savefl.asp" target="_blank">
          <tr> 
            <td bgcolor="#F5F5F5" height="25"> 
              <table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
                <tr> 
                  <td width="5"><img src="images/bg4_left.gif"></td>
                  <td background="images/bg4.gif"><font color="#808080"><span class="newshead">::</span> 
                    <span class=unnamed1>友情链接申请</span></font></td>
                  <td width="12"><img src="images/bg4_right.gif" width="20" height="25"></td>
                </tr>
              </table></td>
          </tr>
          <tr> 
            <td bgcolor="#F5F5F5" height="10">　</td>
          </tr>
          <tr> 
            <td bgcolor="#F5F5F5"><font color="#808080"> 要求：站点必须美观大方，有一定的内容，具有发展潜力……</font> 
              <p><span lang="zh-cn">
            <font color="#808080">除在此显示您的链接外，系统将把最新的若干个链接显示在本站首页</font></span></p>
            <p><font color="#808080">
            欢迎您提交贵站资料！<br>
                ……</font></p>
              <p> <span lang="zh-cn"><font color="#808080"> 请您</font><font color="#FF0000">提交前</font><font color="#808080">加入</font></span><font color="#808080">E-style工作室<span lang="zh-cn">的相应链接，谢谢！</span></font>
<p>
            　</td>
          </tr>
          <tr>
            <td class="newshead" bgcolor="#F5F5F5" height="17" style="border-style: none; border-width: medium"> 
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="15%"><img src="images/bg4_left.gif"></td>
                  <td width="77%" background="images/bg4.gif"><font color="#808080"><span class="newshead">::</span></font><font color="#666666"> 
                    本站LOGO</font></td>
                  <td width="8%"><img src="images/bg4_right.gif" width="20" height="25"></td>
                </tr>
              </table> </td>
          </tr>
          <tr>
          <td class="newshead" bgcolor="#F5F5F5" height="47" style="border-style: none; border-width: medium">
          <p align="center"><font color="#666666">
          <a title="E-style工作室" target="_blank" href="images/logo3.gif">
          <img border="0" src="images/logo3.gif"></a></font></td>
          </tr>
          <tr> 
            <td align="right" height="17" valign="bottom" bgcolor="#F5F5F5" style="border-style: none; border-width: medium"><div align="left"><font color="#808080">网站名称：<span lang="zh-cn"><font color="#808080"></font></span><font color="#808080">E-style工作室<span lang="zh-cn"></span></font><br>
                网站地址：<br>
                &nbsp; &nbsp; http://e-style.fjxdr.com</font></div></td>
          </tr>
          <tr> 
            <td bgcolor="#F5F5F5"> <font color="#808080">选择类别
<select name="flcat_id" id="flcat_id">
                <%sql="select * from flcat"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
                <option value="<%=rs("flcat_id")%>"><%=rs("flcat_name")%></option>
                <%rs.movenext
loop
if rs.bof and rs.eof then%>
                <option value="0">暂无分类</option>
                <%end if%>
              </select>
              <br>
              站点名称
              <input type="text" name="fl_name" size="18" class="textarea">
              <br>
              站点地址
              <input type="text" name="fl_url" size="18" class="textarea">
              <br>
              图标地址
              <input type="text" name="fl_logo" size="18" class="textarea">
            </font>
            </td>
          </tr>
          <tr> 
            <td align="center" bgcolor="#F5F5F5"> 
              <font color="#808080"> 
              <input type="submit" name="Submit" value="提交" class="button">
              <input type="reset" name="reset" value="清空" class="button"> </font>
            </td>
          </tr>
        </form>
      </table>
      <font color="#808080">
      <br>
      <br>
      </font>
    </td>
  </tr>
  <tr> 
    <td background="images/dotlineh.gif" height="1" width="544"></td>
    <td background="images/dotlineh.gif" height="1" width="1"></td>
    <td background="images/dotlineh.gif" height="1" width="205"></td>
  </tr>
</table>
<%
rs.close
set rs=nothing
end sub%>