Question

高收帮忙写一个asp首页调用友情链接的代码！！！

span class="STYLE1">添 加 链 接</span></td>
</tr>
<tr style="display:none;">
<td width="35%" height="28" align="center" valign="middle"><strong>链接状态：</strong></td>
<td width="65%" align="left" valign="middle">
<select name="key" id="key">
<option value="1" selected="selected">正常</option>

<option value="0">不显示</option>
</select>
<span class="STYLE2">*</span></td>
</tr>
<tr>
<td height="28" align="center" valign="middle"><strong>网站名称：</strong></td>
<td align="left" valign="middle"><label>

<input name="title" type="text" id="title" size="30" maxlength="50" />
<span class="STYLE2">*</span></label></td>
</tr>
<tr style="display:none">
<td height="28" align="center" valign="middle"><strong>网站LOGO：</strong></td>
<td align="left" valign="middle"><label>

<input name="pic" type="text" id="pic" size="30" maxlength="50" />
</label> <a href="#2" onclick=" ShowIframe('上传图片','upload.asp?imgurl=pic&upsave=uppic', 300, 100,'格式JPG、GIF，限制195K以内', 0);"><img src="images/sc.gif" border="0" title="上传图片" /></a></td>
</tr>
<tr>
<td height="28" align="center" valign="middle"><strong>网址：</strong></td>
<td align="left" valign="middle"><label>

<input name="url" type="text" id="url" size="30" maxlength="50" />
<span class="STYLE2">*</span></label></td>
</tr>
<tr>
<td height="76" align="center" valign="middle"><strong>网站介绍：</strong></td>
<td valign="middle"><label>
<textarea name="content" cols="40" rows="3" id="content"></textarea>
</label></td>
</tr>
<tr>
<td height="60" colspan="2" align="center" valign="top"><label>
<input type="submit" value=" " class="submit1" style=" margin-top:20px; margin-left:40px; width:100px; height:33px; cursor:pointer; border:0;" title="确定" />
</label></td>
</tr>
</form>
</table>
<%
end if
%>

Answer 1

<%
sql="select * from link"
set rs=conn.execute(sql)
do while not rs.eof
%>
<a href=<%=rs("url")%> target=_blank><img src="<%=rs("pic")%>" border=0 alt=<%=rs("title")%>></a>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>