www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_musicservermodify.asp
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<!--#include file="checkadmin.inc"-->
<%
founderr=false
LServerID=request.QueryString("LServerID")
set rs=server.createobject("adodb.recordset")
sql="select * from DJServer where LServerID="&LServerID
rs.open sql,conn,1,1
if rs.eof then
errmsg="<li>操作错误！该管理员不存在"
founderr=true
else
ListenServerName=rs("ListenServerName")
ListenServerUrl=rs("ListenServerUrl")
end if
rs.close
if founderr=true then
call error()
else
%>
<html>
<head>
<title>迪吧后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" id="AutoNumber2">
<tr class="topbg">
<td height="22" colspan="2" align="center"><strong>试 听 服 务 器 管 理</strong></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" id="AutoNumber3">
<form method="POST" action="admin_MusicServerSave.asp?LServerID=<%=LServerID%>">
<tr class="tdbg">
<td width="30%" align="right"><strong>试听服务器名称：</strong></td>
<td width="70%" height="30"><input type="text" name="ListenServerName" value="<%=ListenServerName%>" size="31"></td>
</tr>
<tr class="tdbg">
<td width="30%" align="right"><strong>试听服务器地址：</strong></td>
<td width="70%" height="30"><input type="text" name="ListenServerUrl" value="<%=ListenServerUrl%>" size="57"></td>
</tr>
<tr class="tdbg">
<td height="22" colspan="2" align="center" class="title">
<input type="hidden" value="edit" name="act">
<input type="submit" value=" 修 改 " name="cmdok">
<input type="reset" value=" 清 除 " name="cmdcancel">
</td>
</tr></form>
</table>
</body>
</html>
<%end if%>