friendlinkaudi.asp

东旭网络问卷调查系统 v2.4 很好用的大家试试看

<!--#include file="../Include/Config.asp"-->
<link rel="stylesheet" href="../Css/Admin.css" type="text/css" />
<%
dim sql,i,action,Link_id
i=0
action=request.QueryString("action")
Link_id=request.QueryString("Link_id")
if action="audi" then 
sql="update [FriendLink] set Link_state=True where Link_id="&Link_id
application.Lock()
conn.execute(sql)
application.UnLock()
call ShowAlert("审核成功！","")
else
sql="select * from FriendLink where Link_state=False"
rs.open sql,conn,1,3
   if rs.eof then
   response.Write("暂时没有任何链接！")
   else
%>
   <table cellSpacing=0 cellPadding=0 width=740 border=0>
  <tr>
    <td width="45" class="td_title">序号</td>
    <td width="67" class="td_title">链接名称</td>
    <td width="209" class="td_title">链接地址</td>
    <td width="148" class="td_title">LOGO</td>
    <td width="127" class="td_title">链接备注</td>
    <td width="46" class="td_title">操作</td>
  </tr>
  <%while not rs.eof
     i=i+1%>
  <tr>
    <td><%=i%></td>
    <td><%=rs("Link_name")%></td>
    <td><%=rs("Link_url")%></td>
    <td><img src="<%=rs("Link_imgurl")%>"/></td>
    <td><%=rs("Link_info")%></td>
    <td><%=Link("通过","?action=audi&Link_id="&rs("Link_id"),0)%></td>
  </tr>
  <%
  rs.movenext
  wend%>
</table>
<%  end if
rs.close
end if
%>