www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_softadd.asp
<%PageName="admin_softAdd"%>
<%CheckAdmin1%>
<!--#include file="const.asp"-->
<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=form2 name=form2>
<tr class="tdbg">
<td width="100%" height="20" colspan=2 align=center><b>添 加 资 源 文 件</b></td>
</tr>
<tr class="tdbg">
<td width="23%" align="right">资源名称：</td>
<td><input type="text" name="name" size="20"> 资源大小： <input type="text" name="size" size="8"> 运行环境： <input type="text" name="system" size="20" value="Asp+Access"></td>
</tr>
<tr class="tdbg">
<td align="right">下载服务器:</td>
<td>
<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="<%=CStr(rs("LServerID"))%>" name=ListenServer><%=rs("ListenServerURL")%></option>
<%
rs.movenext
loop
rs.close
%>
</select>
</td>
</tr>
<tr class="tdbg">
<td align="right">* 下载地址：</td>
<td>
<input type="text" name="downurl" size="54"></td>
</tr>
<tr class="tdbg">
<td align="right">演示地址：</td>
<td>
<input type="text" name="home" size="30" value="http://Www.55kiss.cn"></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="63"></TEXTAREA></td>
</tr>
<tr class="tdbg">
<td align="center" colspan=2>
<input type="hidden" value="add" name="act">
<input type="submit" value=" 确 定 " name="cmdok">
<input type="reset" value=" 取 消 " name="cmdcancel">
</td>
</tr>
</form>
</table>
<%
set rs=nothing
conn.close
set conn=nothing
%></body></html>