<!--#include file="conn/hl_conn.asp" -->
<!--#include file="inc/hl_manage.inc" -->
<%set rs=server.CreateObject("adodb.recordset")
      sql="select * from hl_web"
	  rs.open sql,conn,1,1
	  
%>
<style type="text/css">
<!--
body {
	margin-top: 0px;
	margin-left: 0px;
}
.STYLE12 {font-size: 12px}
.a {
	BORDER-RIGHT: #cccccc 0px solid; BORDER-TOP: #cccccc 0px solid; FONT-SIZE: 12px; BORDER-LEFT: #cccccc 0px solid; WIDTH: 100px; COLOR: #666666; LINE-HEIGHT: 20px; BORDER-BOTTOM: #cccccc 0px solid; HEIGHT: 18px; TEXT-DECORATION: red
}
.b {
	BORDER-RIGHT: #cccccc 0px solid; BORDER-TOP: #cccccc 0px solid; FONT-SIZE: 12px; BORDER-LEFT: #cccccc 0px solid; WIDTH: 200px; COLOR: #666666; LINE-HEIGHT: 20px; BORDER-BOTTOM: #cccccc 0px solid; HEIGHT: 18px; TEXT-DECORATION: none
}
.c {
	BORDER-RIGHT: #cccccc 0px solid; BORDER-TOP: #cccccc 0px solid; FONT-SIZE: 12px; BORDER-LEFT: #cccccc 0px solid; WIDTH: 220px; COLOR: #666666; LINE-HEIGHT: 20px; BORDER-BOTTOM: #cccccc 0px solid; HEIGHT: 18px; TEXT-DECORATION: none
}
-->
</style>
<script type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>


<table width="820" border="0" align="center" cellpadding="0" cellspacing="0" background="img/r3_c3.jpg">
  <tr>
    <td height="35">&nbsp;</td>
  </tr>
</table>
<table width="820" height="34" border="0" align="center" cellpadding="0" cellspacing="0" background="img/r4_c3.jpg">
  <tr>
    <td width="182">&nbsp;</td>
    <td width="102" valign="bottom"><a href="Admin_Index_Main.asp" target="hl_main"><img src="img/b11.jpg" name="Image1" width="102" height="24" border="0" id="Image1" onmouseover="MM_swapImage('Image1','','img/b1.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>
    <td width="102" valign="bottom"><a href="Admin_Index_Back.asp" target="hl_main"><img src="img/b21.jpg" name="Image3" width="102" height="24" border="0" id="Image3" onmouseover="MM_swapImage('Image3','','img/b2.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>
    <td width="416" valign="bottom"><a href="#" target="hl_main"><img src="img/b31.jpg" name="Image4" width="102" height="24" border="0" id="Image4" onmouseover="MM_swapImage('Image4','','img/b3.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>
    <td width="27">&nbsp;</td>
  </tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<form action="Admin_Index_Back.asp?action=add" method="post" name="add" target="_self">
<tr><td align="center" valign="top">
<table width="823" height="32" border="0" align="center" cellpadding="0" cellspacing="0" background="img/r7_c3.jpg">
  <tr>
    <td width="118" height="32" align="right" class="STYLE12">频道管理设置</td>
    <td width="555">&nbsp;</td>
    <td width="150" valign="middle"><input type="image" src="img/button_2.jpg" name="Submit" value="添加" /></td>
  </tr>
</table>
</td>
</tr>
</form>


<tr>
  <td><table width="808" height="22" border="0" align="center" cellpadding="0" cellspacing="0" background="img/td_bg.jpg">
    <tr>
      <td width="111"  align="center" valign="middle" class="STYLE12">后台管理系统</td>
      <td width="272" align="center" valign="middle" class="STYLE12">后台管理系统主页面URL地址</td>
      <td width="108" align="center" valign="middle" class="STYLE12">&nbsp;</td>
      <td width="120" align="center" valign="middle" class="STYLE12">&nbsp;</td>
      <td width="99" align="center" valign="middle" class="STYLE12">是否显示频道</td>
      <td width="98" align="center" valign="middle" class="STYLE12">操作</td>
    </tr>
  </table></td>
</tr>
<tr>
  <td>
   <%
	Set rsweb=Server.CreateObject("ADODB.Recordset")
	sqlweb="Select * from hl_web where id=1"
	rsweb.open sqlweb,conn,1,1
	
	Set rsinfo=Server.CreateObject("ADODB.Recordset")
	sqlinfo="Select * from hl_config"
	rsinfo.open sqlinfo,conn,1,1
	
	if  rsinfo.eof or rsinfo.bof and request("action")="" then
	%>
	<table width="808" border="1"  align="center" cellpadding="2" cellspacing="0" bordercolor="#A0D3FE" bgcolor="#EEF9FD" style="BORDER-COLLAPSE: collapse">
    <tr><td>没有整合网站</td></tr></table>
	<%
	else
	i=1
	do while not rsinfo.eof
	%>

  <table width="808" border="1"  align="center" cellpadding="2" cellspacing="0" bordercolor="#A0D3FE" bgcolor="#EEF9FD" style="BORDER-COLLAPSE: collapse">
    <tr><form action="modify.asp?action=Modify" method="post" >
	<input type="hidden" name="id" value="<%=rsinfo("id")%>" />
	<input type="hidden" name="type" value="ModifyAdminUrl" />
      <td width="110"  align="center" valign="middle" class="STYLE12"><input name="hl_name" type="text" size="12" value="<%=rsinfo("hl_name")%>" /></td>
      <td width="258" align="center" valign="middle" class="STYLE12"><input name="hl_admin_url" type="text" id="hl_admin_url"  value="<%=rsinfo("hl_admin_url")%>" size="36"/></td>
      <td width="221" align="center" valign="middle" class="STYLE12"><label></label></td>
      <td width="96" align="center" valign="middle" ><input name="hl_back_show" type="checkbox" id="hl_back_show" value="1" <% if rsinfo("hl_back_show")=1 then%>checked<%end if%>/></td>
      <td width="91" align="center" valign="middle" class="STYLE12" ><input type="submit" name="submit" value="修改" />　<a href="modify.asp?id=<%=rsinfo("id")%>&action=del" onclick="return confirm('将会删除前台和后台接口!!确定要删吗？');">删除</a></td>
   </form> </tr>
  </table>
  
  <%
  rsinfo.movenext
  loop
  end if
  hl_weburl=rsweb("hl_weburl")
  rsweb.close
  set rsweb=nothing
   rsinfo.close
   set rsinfo=nothing
%>
<%if request("action")="add" then%>

<table width="808"  border="1"  align="center" cellpadding="2" cellspacing="0" bordercolor="#A0D3FE" bgcolor="#EEF9FD" style="BORDER-COLLAPSE: collapse">
   <tr><form action="modify.asp?action=add" method="post">
   <input type="hidden" name="type" value="AddAdminInterface" />
      <td width="108"  align="center" valign="middle" class="STYLE12"><input name="hl_name" type="text" class="STYLE12" size="12" /></td>
      <td width="261" align="center" valign="middle" class="STYLE12"><input name="hl_admininterface" type="text" class="STYLE12" id="hl_admininterface" size="38" /></td>
      <td width="221" align="center" valign="middle" class="STYLE12">&nbsp;</td>
      <td width="95" align="center" valign="middle" ><input name="hl_admin_open" type="checkbox" id="hl_admin_open" value="1" /></td>
      <td width="91" align="center" valign="middle" class="STYLE12" ><input type="submit" name="submit" value="保存" /><input type="reset" name="reset" value="清除" /></td>
  </form> </tr>
  </table>

  <%end if%>
  </td>
</tr>
<tr>
  <td>&nbsp;</td>
</tr>
<tr>
  <td>&nbsp;</td>
</tr>
 

