<%@ LANGUAGE=VBScript codepage ="936" %>
<!--#include file="check.asp"-->
<%Response.Expires=0
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("sjjh_usermdb")
%>
<html><head><title>游戏影视服务器列表</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><link href="jh.css" rel="stylesheet" type="text/css"></head>
<script language=JavaScript>
function del(url)
{if(confirm("此操作将要删除此服务器，同时还要删除所有此服务器\n上的游戏影视联接,您确定删除此项目吗？"))parent.mainFrame.location.href=url;}
</script>
<%
rs.open "SELECT * from sjjh_gvserver order by gs_id",conn,1,1
t=0
%>
<form method="post" action="jhgl.asp?act=gvtypemodi" name="form" onSubmit="return check(this);">
  <table width="96%" border="1" align="center" cellspacing="0" bordercolor="#000000" bordercolordark="#FFFFFF">
    <tr align="center"> 
      <td colspan="5" bgcolor="#d7ebff">游戏影视服务器列表</td>
    </tr>
    <tr align="center"> 
      <td bgcolor="#d7ebff">ID</td>
      <td bgcolor="#d7ebff">观看地址</td>
      <td bgcolor="#d7ebff">下载地址</td>
      <td bgcolor="#d7ebff"><a href="gvserveradd.asp"><b>添加</b></a></td>
    </tr>
    <%
do while not rs.bof and not rs.eof
t=t+1
%>
    <tr align="center"> 
      <td><%=rs("gs_id")%></td>
      <td><%=rs("gs_a")%></td>
      <td><%=rs("gs_b")%></td>
      <td> <a href="gvservermodi.asp?id=<%=rs("gs_id")%>">修改</a> | <a href=javascript:del('jhgl.asp?act=gvserverdel&id=<%=rs("gs_id")%>')>删除</a></td>
    </tr>
    <%rs.movenext
loop
%>
    <tr align="center" bgcolor="#009933"> 
      <td colspan="5"><input name="submit" type="submit" value="确 定"> <input  onClick="javascript:window.document.location.href='roomlist.asp'" value="返 回" type=button name="back"></td>
    </tr>
  </table>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
