newsite.asp

一个免费的绿叶网上书店请大家提宝贵意见 站长的帐号是 用户名：雨丁香 密码：200505 副站长帐号是 用户名： wangli 密码：197207

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="base.asp"-->
<% if session("username")="" then Response.Redirect "login.htm"
if session("adminflag")>3  then Call PrintMsg(NotAdmin)
Response.Buffer=true
Response.Expires=0
sql="select * from newsite"
   set rs=conn.execute(sql)
   i=1
%>
<script language="javascript">
function confirmfix(id){
if ( confirm("你确定要修改吗？")) {
window.location.href = "sitedit.asp?id="+id
}
}
function confirmdel(id){
if ( confirm("你确定要删除吗？")) {
window.location.href = "userdel.asp?action=site&id="+id
}
}
</script>
<div align="center"> 
  <h3><font color="#FF0000"><strong>友情链接管理 </strong></font></h3>
  <table width="458" border="1" cellspacing="0" cellpadding="3">
    <tr bgcolor="#003399"> 
      <td width="79"> <div align="center"><font color="#FFFFFF" size="2">序号</font></div></td>
      <td width="125"> <div align="center"><font color="#FFFFFF" size="2">网站名称</font></div></td>
      <td width="154"> <div align="center"><font color="#FFFFFF" size="2">网站地址</font></div></td>
      <td width="50"><div align="center"><font color="#FFFFFF" size="2">修改</font></div></td>
      <td width="50"><div align="center"><font color="#FFFFFF" size="2">删除</font></div></td>
    </tr>
    <% do while not rs.eof %>
    <tr> 
      <td><div align="center"><%=i%></div></td>
      <td><div align="center"><%=rs("sitename")%></div></td>
      <td><div align="center"><%=rs("http")%></div></td>
      <td><div align="center"><font size="2"><A HREF='javascript:confirmfix(<%=rs("id")%>)'>修改</a></font></div></td>
      <td><div align="center"><font size="2"><A HREF='javascript:confirmdel(<%=rs("id")%>)'>删除</a></font></div></td>
    </tr>
    <% i=i+1
	rs.movenext
	    loop
		rs.close
	%>
  </table>
  <p><strong></strong></p>
</div>
</body>
</html>