📄 freeadd.asp
字号:
<%
if session("admin")="" then
response.redirect "admin.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="../inc/const.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<title>添 加 下 载 程 序</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<%
dim rs
dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from Nclass order by Nclassid asc"
rs.open sql,conn,1,1
%><SCRIPT language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("Nclass"))%>","<%= trim(rs("classid"))%>","<%= trim(rs("Nclassid"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.Nclassid.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.Nclassid.options[document.myform.Nclassid.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</SCRIPT>
<SCRIPT language="javascript">
<!--
function CheckForm()
{
document.myform.txtcontent.value=document.myform.doc_html.value;
return true
}
//-->
</SCRIPT>
<body bgcolor=#468ea3>
<form method="POST" name="myform" action="adminsave.asp?action=add">
<TABLE width="656" border="0" align="center" cellspacing="1" height="1104">
<TR align="center">
<TD colspan="4" height="22" bgcolor="#145f74" width="648"><b><FONT color="#FFFFFF">添
加 下 载 程 序</FONT></b></TD>
</TR>
<TR>
<TD align="right" width="80" nowrap bgcolor="#A5D0DC" height="21"><B><font color="#FF0000">软件类型</font></B></TD>
<TD width="260" bgcolor="#A5D0DC" height="21">
<%
sql = "select * from class"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "请先添加栏目。"
response.end
else
%>
<SELECT name="classid" onChange="changelocation(document.myform.classid.options[document.myform.classid.selectedIndex].value)" size="1">
<OPTION selected value="">==请选类型==</OPTION>
<%
do while not rs.eof
%>
<OPTION value="<%=trim(rs("classid"))%>"><%=trim(rs("class"))%></OPTION>
<%
rs.movenext
loop
end if
rs.close
set rs = nothing
conn.Close
set conn = nothing
%>
</SELECT>
</TD>
<TD align="right" width="69" bgcolor="#A5D0DC" height="21">
<font color="#FF0000"><B>选择分类</B></font></TD>
<TD width="255" bgcolor="#A5D0DC" height="21">
<SELECT name="Nclassid">
<OPTION selected value="">==请选分类==</OPTION>
</SELECT>
</TD>
</TR>
<tr>
<td width="80" align="right" height="18" nowrap bgcolor="#CCE6ED"><b><font color="#FF0000">软件名称</font></b></td>
<td width="260" height="18" bgcolor="#CCE6ED">
<input type="text" name="txtshowname" size="33"
class="smallinput" maxlength="100">
</td>
<td width="69" height="18" bgcolor="#CCE6ED">
<p align="right"><b>软件版本</b>
</td>
<td width="255" height="18" bgcolor="#CCE6ED">
<input type="text" name="txtbb" size="33"
class="smallinput" maxlength="100">
</td>
</tr>
<tr>
<td width="80" align="right" height="14" nowrap bgcolor="#A5D0DC">电影格式:</td>
<td width="504" height="14" colspan="3" bgcolor="#A5D0DC"> [<img border="0" src="../images/rm.gif">
<input type="radio" value="rm" name="movie">
] [<img border="0" src="../images/win.gif">
<input type="radio" value="win" name="movie">
] [不是电影
<input type="radio" value="" name="movie" checked>
] 如果是在线电影请选择播放格式</td>
</tr>
<tr>
<td width="80" align="right" height="23" nowrap bgcolor="#A5D0DC"><b>推荐度</b></td>
<td width="197" height="23" bgcolor="#A5D0DC">
<select name="hot" size="1">
<option value="1" name="hot">一星级</option>
<option value="2" name="hot">二星级</option>
<option selected value="3" name="hot">三星级</option>
<option value="4" name="hot">四星级</option>
<option value="5" name="hot">五星级</option>
</select></td>
<!--<input type="text" name="hot" size="60" class="smallinput" maxlength="20" value="免费">-->
<td width="151" height="23" bgcolor="#A5D0DC">
<p align="right"><b><font color="#FF0000">软件性质</font> </b></td>
<td width="156" height="23" bgcolor="#A5D0DC">
<select name="kind" size="1">
<option selected value="国产软件" name="kind">国产软件</option>
<option value="国外软件" name="kind">国外软件</option>
<option value="汉化补丁" name="kind">汉化补丁</option>
<option value="破解软件" name="kind">破解软件</option>
</select></td>
</tr>
<tr>
<td width="80" align="right" height="22" nowrap bgcolor="#CCE6ED"><b>软件大小</b></td>
<td width="260" height="22" bgcolor="#CCE6ED">
<!--<input type="text" name="system" size="60" class="smallinput" maxlength="100" value="Win98/2000+PWS4&NT+IIS4/5">-->
<input type="text" name="size" size="20"
class="smallinput" maxlength="100" value="K">
</td>
<td width="69" height="22" bgcolor="#CCE6ED" align="right">
<p align="right"><b>运行环境</b>
</td>
<td width="255" height="22" bgcolor="#CCE6ED">
<select name="system" size="1">
<option value="Win9x/NT/2000/XP" name="system">Win9x/WinNT/Win2000/WinME</option>
<option value="Win9x/NT/2000" name="system">Win9x/WinNT/Win2000</option>
<option value="Windows9x/NT" name="system">Win9x/WinNT</option>
<option value="Win9x/ME" name="system">Win9x/WinME</option>
<option value="WinNT/2000" name="system">WinNT/Win2000</option>
<option value="ASP环境" name="system">ASP环境</option>
<option value="PHP环境" name="system">PHP环境</option>
<option value="CGI环境" name="system">CGI环境</option>
<option value="JSP环境" name="system">JSP环境</option>
<option value="Linux环境" name="system">Linux环境</option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -