coolsites_body.asp

一个很COOL的按钮FLASH,满不错的!

<%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="774" 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">
<%
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
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">

<td width="6%" background="images/tablebg.gif"><img src="images/mleft.gif"></td>
<td background="images/tablebg.gif">当前共有<font color=#ff0099>&nbsp;<%=totalfl%>&nbsp;</font>个友情链接，其中正在等待通过验证的<font color=#ff0099>&nbsp;<%=passing%>&nbsp;</font>个。
</td>
<td width="6%" align="right" background="images/tablebg.gif"><img src="images/mright.gif"></td>
</tr>
</table>
<%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
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="3%">&nbsp;</td>
<td width="94%" height="25" align=center><br>:::::::::::::::::::::::::::::::::::: <%=rs("flcat_name")%> ::::::::::::::::::::::::::::::::::::<br><br>
<%if rs("isimage")=1 then response.write "<font color=#cccccc></font>" end if%>
</td>
<td width="3%" align="right">&nbsp;</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
'<tr><td height="1" colspan="2" background="images/dotlineh.gif"></td></tr>
%>
<tr>
<td >
<table width="100%" border="0" cellspacing="2" cellpadding="0" align="center">
<%do while((numrows <> 0) AND (Not rs2.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
rs2_numRows = rs2_numRows + HLooper1__numRows%>
<tr>
<%do While ((startrw <= endrw) AND (Not rs2.EOF))%>
<td width="25%" align="center" ><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' width='88' height='31'>" else response.write rs2("fl_name") end if%>
</a></td>
<%
startrw = startrw + 1
rs2.MoveNext()
loop
%>
</tr>
<%numrows=numrows-1
loop
if rs2.eof and rs2.bof then%>
<tr>
<td bgcolor="#FFFFFF" align="center" class="chinese">当前该分类中还没有链接！</td>
</tr>
<%end if
rs2.close
set rs2=nothing
%>
</tr>
<%
'<tr><td height="1" colspan="2" background="images/dotlineh.gif"></td></tr>
%>
</table>
</td>
</tr>
</table>
<%rs.movenext
loop
if rs.eof and rs.bof then%>
<br><table width="98%" border="0" cellspacing="1" cellpadding="10"  align="center">
<tr>
<td bgcolor="#FFFFFF" align="center" class="chinese">当前没有友情链接！</td>
</tr>
</table>
<%end if%>
<br>
<br>
</td>
<td align="center" valign="top" width="1" background="images/dotlinev.gif"></td>
<td align="center" valign="top" width="205" >
<table width="208" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="40" align="right" background="images/lefttablo_01o.gif"><br>
:::<strong>交换链接</strong>:::&nbsp;&nbsp;&nbsp;</td>
</tr>
</table>
<table width="208" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td height="6" background="images/lefttablo_03.gif"></td>
</tr>
<tr>
<td align="center" height="66" class="chinese" background="images/lefttablo_03.gif"><table width="91%" border="0" cellspacing="1" cellpadding="3" class="chinese">
<form name="form1" method="post" action="savefl.asp" target="_blank">
<tr><td><font color=#ff9900>::链接要求</font></td></tr>
<tr><td>1：站点必须美观大方，内容祥实，无不良内容，未做完栏目不多于两个，且<b>弹出窗口最多一个</b>。<br><br>2：申请之前请先在贵站上加上我们的连接，否则本站不予链接。<br><br>3：连接LOGO要求使用88×31大小的标准！而且必须美观，否则不予链接！<br><br>4：如果Logo地址不填写，我们将会把它作为文本链接来录入数据库!<br><br>5：需要作<font color=#ff0099>首页链接</font>的，如日流量>2000且愿意作首页链接的，请在<a href=guestbook.asp>留言簿</a>留言。<br><br></td></tr>
<tr><td height="1"  background="images/dotlineh.gif"></td></tr>
<tr><td><font color=#ff9900>::本站链接图标</font></td></tr>
<tr><td align=center><img src="<%=linkimage%>" alt="<%=linkimagealt%>" border="0"><br><br></td></tr>
<tr><td height="1"  background="images/dotlineh.gif"></td></tr>
<tr><td><font color=#ff9900>::本站链接代码</font><br><br><TEXTAREA class=testarea1 onmouseover=this.focus() onfocus=this.select() name=textfield3 rows=5 cols="26">&lt;a href="<%=weburl%>" target="_blank "&gt;&lt;img src="<%=weburl%>/<%=linkimage%>" width="88" height="31" border="0" alt="<%=linkimagealt%>"&gt;&lt;/a&gt;</TEXTAREA><br><br></td></tr>
<tr><td height="1"  background="images/dotlineh.gif"></td></tr>
<tr><td>
<font color=#ff9900>::链接申请填写</font><br><br>
</td>
</tr>
<tr>
<td> 选择类别
<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="input">
<br>
站点地址<input type="text" name="fl_url" size="18" class="input">
<br>
图片地址<input type="text" name="fl_logo" size="18" class="input">
</div></td>
</tr>
<tr>
<td align="center" onClick="location.reload()"> <input type="submit" name="Submit" value="提交" class="button">
<input type="reset" name="reset" value="清空" class="button">
</td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td valign="bottom"><img src="images/lefttablo_05.gif"></td>
</tr>
</table>

</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%>