link.asp

机票订票系统,使用ASP

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="inc/showpage.asp"-->
	<%
set rs=server.createobject("adodb.recordset")
sql="select * from link order by id desc"
rs.open sql,conn,1,1 %>
<% if rs.bof and rs.eof then
response.write"<table><tr><td>暂 无 链 接 ！</td></tr></table>"
else %>
	<table width="650" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#999999">
  <TR>
    <TD height=20 colspan="4" align="center" bgColor=#ffffff><font color="#FF0000" size="+1"><strong>[友情链接管理] </strong></font></TD>
    </TR>
  <TR>
    <TD width=123 align="center" bgColor=#ffffff>ID</TD>
    <TD width=134 bgColor=#ffffff height=20>
      <DIV align=center>公司名称</DIV></TD>
    <TD width=382 height=20 bgColor=#ffffff>
      <DIV align=center>链接地址</DIV></TD>
    <TD width=134 align="center" bgColor=#ffffff>操作</TD>
  </TR>
	  <% do while not rs.eof %>
  <TR bgColor=#ffffff>
    <TD align="center"><%= rs("id") %></TD>
    <TD height=20>
      <DIV align=center><%= rs("gsname") %></DIV></TD>
    <TD height=20>
      <DIV align=center><%= rs("gslink") %></DIV></TD>
    <TD align="center">[<a href=link_e.asp?id=<%= rs("id") %>>修改</a>][<a href=link_d.asp?id=<%=rs("id")%>>删除</a>]</TD>
  </TR>
	  <% rs.movenext
	  loop %>
    </table>
	<% end if %>

<table width="650" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#f5f5f5">
  <tr>
    <td width="893" height="22" align="center"><input type="button" name="Submit2" value="刷 新" onclick="window.location.reload();"></td>
  </tr>
</table>