友情管理

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '**************************************************************** '** 版权所有：烈火工作室演示网站http://www.strongfire.cn ** '** QQ:839225572 邮箱：strongfire2008@163.com ** '** 非正版用户不得擅自非法修改用于商业用途！查出必究。 ** '**************************************************************** %> 友情管理 <% dim sql,rsyq,ErrMsg set rsyq=server.CreateObject("adodb.recordset") rsyq.open "Select * From youqing",conn,1,3 %>

添加友情链接

<%do while not rsyq.eof%> <% rsyq.movenext loop %>

友情网站	链接网址	操作选项
<%=rsyq("Name")%>	<%=rsyq("url")%>	\| ">修改 \| "onClick="return ConfirmDelyq();">删除

<% rsyq.close set rsyq=nothing %>