www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_softmodify.asp
<%PageName="admin_SpecialModify"%>
<%CheckAdmin1%>
<!--#include file="const.asp"-->
<!--#include file="inc/char.inc"-->
<%
id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from softdown where id="&id
rs.open sql,conn,1,1
if rs.eof then
errmsg="<li>操作错误！请联系管理员</li>"
call error()
Response.End
else
LS_ID=rs("LS_ID")
downUrl=rs("downUrl")
name=rs("name")
size=rs("size")
pic=rs("pic")
system=rs("system")
home=rs("home")
intro=rs("intro")
rs.close
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<title>后台管理</title>
<link rel="stylesheet" type="text/css" href="Admin_Style.css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table cellpadding="0" cellspacing="1" border="0" width="100%" class="border" align=center>
<form method="POST" action="admin_softSave.asp?id=<%=id%>&page=<%=request("page")%>" id=form2 name=form2>
<tr class="tdbg">
<td width="100%" height="20" colspan=2 align=center><b>修 改 资 源 文 件</b></td>
</tr>
<tr class="tdbg">
<td width="18%" align="right">资源名称：</td>
<td width="81%">
<input type="text" name="name" value="<%=name%>" size="20">
资源大小 <input type="text" name="size" value="<%=size%>" size="8"> 运行环境：<input type="text" name="system" size="20" value="<%=system%>"></td>
</tr>
<tr class="tdbg">
<td width="18%" align="right">下载服务器：</td>
<td width="81%">
<%
if LS_ID<>"" then
%>
<select class="smallSel" name="LS_ID" size="1">
<option value="">未选择</option>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from DJServer"
rs.open sql,conn,1,1
do while not rs.eof
%>
<option <%if cstr(LS_ID)=cstr(rs("LServerID")) then%> selected <%end if%> value="<%=rs("LServerID")%>" name=ListenServer><%=rs("ListenServerUrl")%></option>
<%
rs.movenext
loop
rs.close
else
%>
<select class="smallSel" name="LS_ID" size="1">
<option value="">未选择</option>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from DJServer"
rs.open sql,conn,1,1
do while not rs.eof
%>
<option value="<%=rs("LServerID")%>" name=ListenServer><%=rs("ListenServerUrl")%></option>
<%
rs.movenext
loop
rs.close
end if
%>
</select>
</td>
</tr>
<tr class="tdbg">
<td width="18%" align="right">下载地址：</td>
<td width="81%"><input type="text" name="downUrl" value="<%=downUrl%>" size="50"></td>
</tr>
<tr class="tdbg">
<td width="18%" align="right">演示地址：</td>
<td width="81%"><input type="text" name="home" size="30" value="<%=home%>"></td>
</tr>
<tr class="tdbg">
<td align="right">资源图片：</td>
<td>
<input type="text" name="pic" size="50" value="<%=pic%>">
</td>
</tr>
<tr class="tdbg">
<td align="right">资源简介：</td>
<td><TEXTAREA name="intro" rows=5 cols="61"><%=htmlencode1(intro)%></TEXTAREA></td>
</tr>
<tr class="tdbg">
<td align="center" colspan=2>
<input type="hidden" value="edit" name="act">
<input type="submit" value=" 修 改 " name="cmdok2">
<input type="reset" value=" 清 除 " name="cmdcance2l">
</td>
</tr>
</form>
</table>
<%
set rs=nothing
conn.close
set conn=nothing
%></body></html>