link_body.asp

实现对图片的基本处理：打开、增加、删除等。

<%sub link_body()
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 bgcolor="#ffffff" align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>

<TR>
<td height="24" align="right">&nbsp;&nbsp;
</TD>
</TR>
<TR>
<TD width="760" background="img/menu_bg2.gif" height="4"></TD>
</TR>

</TABLE>
<TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>

<TR>
<td width=553 align=left vAlign=top bgcolor="#ffffff"><%call br%>
<table width='530' height="25" border='0' align="center" cellspacing='0' background="img/mainbg.gif" cellpadding="2">
              <tr> 
                <td>&nbsp;&nbsp;<img src="img/biao.gif" align="absmiddle">&nbsp;当前共有<span><%=totalfl%></span>个友情链接，其中正在等待通过验证的<span><%=passing%></span>个。</td>
              </tr>
            </table>
<table width="530" border="0" align="center" cellspacing="0" cellpadding="1" bgcolor="#F5F5F5" style="border-collapse: collapse" bordercolor="#111111">
<tr><td>
      <%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 = 5
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="530" border="0" align="center" cellspacing="0" cellpadding="1" bgcolor="#F5F5F5" style="border-collapse: collapse" bordercolor="#111111">
<tr><td height='25'>&nbsp;<img src=img/none.gif border=0><img src=img/link2.gif border='0'>&nbsp;<%=rs("flcat_name")%>
</td></tr><tr><td><table border="0" width="530" cellpadding="0" cellspacing="0" height='100%'><tr><td><table border="0" width="530" cellpadding="5" cellspacing="0" bgcolor="#ffffff">
<%do while((numrows <> 0) AND (Not rs2.EOF))
	startrw = endrw + 1
	endrw = endrw + numberColumns
rs2_numRows = rs2_numRows + HLooper1__numRows%>
<tr bgcolor="#ffffff"> 
<%do While ((startrw <= endrw) AND (Not rs2.EOF))%>
<td width="106" align="center"><a href="<%=rs2("fl_url")%>" target="_blank"><%if rs("isimage")=0 then response.write "<img src='"&rs2("fl_logo")&"' width='88' height='31' border='0' title='"&rs2("fl_name")&"' style='text-decoration: none'>" 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 align="center">当前该分类中还没有链接！</td></tr>
<%end if
rs2.close
set rs2=nothing
%></table>
</TD>
</TR></TABLE>
</TD>
</TR>
</TABLE>
      <%rs.movenext
loop
if rs.eof and rs.bof then%><font color="#808080">&nbsp; </font>
      <table width="530" border="0" cellspacing="1" cellpadding="10" bgcolor="#E8E8E8" align="center">
        <tr> 
          <td bgcolor="#F5F5F5" align="center">当前没有友情链接！</td>
        </tr>
      </table>
      <%end if%>
</TD>
</TR>
</TABLE>
<%call br%></TD>
<td width=1 height="190" background="img/xu.gif"></TD>
<td width=204 align=left vAlign=top background=img/left_bg2.gif>
<TABLE width=100% border=0 align=center cellPadding=0 cellSpacing=0>

<TR><td width=204><img src=img/left_top2.gif usemap="#Map" border="0"><map name="Map"><area shape="rect" coords="61,11,87,24" href="book.asp" title="留言本"><area shape="rect" coords="134,11,160,24" title="帮助信息未设"></map></td></tr>
</table>
<TABLE width=196 border=0 align=right cellPadding=0 cellSpacing=0>

<TR>
<td align=center height="34" background="img/left01.gif"><strong>链 接 说 明</strong></td>
</tr>
<TR><td><%call br%>·站点必须美观大方，有一定的内<%call br%>&nbsp;&nbsp;容，具有发展潜力……<%call br%>·LOGO连接应确保LOGO能够正常打<%call br%>&nbsp;&nbsp;开,如果不,将删除。<%call br%>·请您<font color="#FF0000">提交前</font>先加入xw127.org的相<%call br%>&nbsp;&nbsp;应链接，<%call br%></td>
          </tr>
<TR>
<td align=center height="24" background="img/title.jpg"><strong>本 站 LOGO</strong></td> 
</tr>
<tr><td align="center"><%call br%><%call br%><img border="0" src="<%=logo%>" width="88" height="31"><%call br%></td></tr>
<tr><td><%call br%>&nbsp;&nbsp;名称：<%=webname%><%call br%>&nbsp;&nbsp;LOGO：http://www.xw127.org/logo.gif<br>地址：<%=homeurl%><%call br%></td></tr>
<TR>
<td align=center height="24" background="img/title.jpg"><strong>提 交 信 息</strong></td>
</tr>
<form name="form1" method="post" action="relink.asp" target="link" onsubmit="return link()">
<tr> 
<td><%call br%>&nbsp;类别:<select name="flcat_id" id="flcat_id" class="lanyu"><%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>
<%call br%>&nbsp;名称:<input type="text" name="fl_name" size="18" class="lanyu"> 
<%call br%>&nbsp;地址:<input type="text" name="fl_url" size="18" class="lanyu"> 
<%call br%>&nbsp;图标:<input type="text" name="fl_logo" size="18" class="lanyu"> 
</td>
</tr>
<tr> 
<td align="center"><%call br%><input type="submit" name="Submit" value="提交" class="button">&nbsp;<input type="reset" name="reset" value="清空" class="button"><%call br%>
</td>
</tr>
</form>
</table>
</TD>
</TR>

</TABLE>
<%
rs.close
set rs=nothing
end sub%>