📄 download_add.asp
字号:
<!--#include file="bsconfig.asp"-->
<%
%>
<%
dim rs
dim sql
dim count
dim BigClassName,SmallClassName
set rs=server.createobject("adodb.recordset")
sql = "select * from DownSmallClass order by SmallClassID asc"
rs.open sql,conn,1,1
%>
<script language = "JavaScript">
var onecount;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("SmallClassName"))%>","<%= trim(rs("BigClassName"))%>","<%= trim(rs("SmallClassName"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.SmallClassName.length = 1;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.SmallClassName.options[document.myform.SmallClassName.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
function CheckForm()
{
if (document.myform.Title.value=="")
{
alert("下载标题不能为空！");
document.myform.Title.focus();
return false;
}
if (document.myform.FileSize.value == "")
{
alert("软件大小不能为空！");
document.myform.FileSize.focus();
return false;
}
if (document.myform.DownloadUrl.value=="")
{
alert("下载连接不能为空！");
document.myform.DownloadUrl.focus();
return false;
}
if (document.myform.Content.value=="")
{
alert("软件简介不能为空！");
document.myform.Content.focus();
return false;
}
return true;
}
</script>
<!-- #include file="Inc/Head.asp" -->
<BR>
<table cellpadding="2" cellspacing="1" border="0" width="610" align="center" class="a2">
<tr>
<td class="a1" height="25" align="center"><strong>添 加 下 载</strong></td>
</tr>
<tr class="a4">
<td align="center">
<form method="POST" name="myform" onSubmit="return CheckForm();" action="Download_Save.asp?action=add" target="_self">
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr align="center">
<td class="tdbg">
<table width="100%" border="0" cellpadding="0" cellspacing="2">
<tr>
<td width="100" height="22" align="right" bgcolor="#C0C0C0">所属类别：</td>
<td width="500" bgcolor="#E3E3E3">
<%
sql = "select * from DownBigClass"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "请先添加栏目。"
else
%>
<select name="BigClassName" onChange="changelocation(document.myform.BigClassName.options[document.myform.BigClassName.selectedIndex].value)" size="1">
<option selected value="<%=trim(rs("BigClassName"))%>"><%=trim(rs("BigClassName"))%></option>
<%
dim selclass
selclass=rs("BigClassName")
rs.movenext
do while not rs.eof
%>
<option value="<%=trim(rs("BigClassName"))%>"><%=trim(rs("BigClassName"))%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select>
<select name="SmallClassName">
<option value="" selected>不指定小类</option>
<%
sql="select * from DownSmallClass where BigClassName='" & selclass & "'"
if yzcv<>zcv then
response.end
End if
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
%>
<option value="<%=rs("SmallClassName")%>"><%=rs("SmallClassName")%></option>
<%
rs.movenext
do while not rs.eof
%>
<option value="<%=rs("SmallClassName")%>"><%=rs("SmallClassName")%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select>
</td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#C0C0C0">标题名称：</td>
<td bgcolor="#E3E3E3">
<input type="text" name="Title" id="Title" size="50" maxlength="80">
<font color="#FF0000">！</font></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#C0C0C0">文件大小：</td>
<td bgcolor="#E3E3E3"> <INPUT maxLength=10 size=14 name=FileSize> <INPUT type=radio CHECKED value=KB name=FileSize> KB <INPUT type=radio value=MB name=FileSize> MB <FONT color=#ff0000>！</FONT> </td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#C0C0C0">软件语言：</td>
<td bgcolor="#E3E3E3"> <INPUT type=radio CHECKED value=简体中文 name=Language>简体中文 <INPUT type=radio value=繁体中文 name=Language>繁体中文 <INPUT type=radio value=英文 name=Language>英文 <INPUT type=radio value=多国语言 name=Language>多国语言 <FONT color=#ff0000>！</FONT></td>
</tr>
<tr>
<td height="50" align="right" bgcolor="#C0C0C0">授权类型：</td>
<td bgcolor="#E3E3E3"> <INPUT type=radio CHECKED value=共享软件 name=LicenceType>共享软件 <INPUT type=radio value=免费软件 name=LicenceType>免费软件 <INPUT type=radio value=自由软件 name=LicenceType>自由软件 <INPUT type=radio value=试用软件 name=LicenceType>试用软件 <INPUT type=radio value=演示软件 name=LicenceType>演示软件 <BR><INPUT type=radio value=商业软件 name=LicenceType>商业软件 <INPUT type=radio value=破解软件 name=LicenceType>破解软件 <INPUT type=radio value=注册软件 name=LicenceType>注册软件 <FONT color=#ff0000>！</FONT> </td>
</tr>
<tr>
<td height="50" align="right" bgcolor="#C0C0C0">运行环境：</td>
<td bgcolor="#E3E3E3"> <INPUT type=checkbox value=Win2003 name=System>Win2003 <INPUT type=checkbox CHECKED value=WinXP name=System>WinXP <INPUT type=checkbox CHECKED value=Win2000 name=System>Win2000 <INPUT type=checkbox CHECKED value=NT name=System>NT <INPUT type=checkbox CHECKED value=WinME name=System>WinME <INPUT type=checkbox CHECKED value=Win9X name=System>Win9X <BR><INPUT type=checkbox value=Dos name=System>Dos <INPUT type=checkbox value=Linux name=System>Linux <INPUT type=checkbox value=Unix name=System>Unix <INPUT type=checkbox value=Mac name=System>Mac <INPUT type=checkbox value=ASP环境 name=System>ASP环境 <INPUT type=checkbox value=PHP环境 name=System>PHP环境 <INPUT type=checkbox value=CGI环境 name=System>CGI环境 <FONT color=#ff0000>！</FONT> </td>
</tr>
<tr>
<td width="100" height="25" align="right" bgcolor="#C0C0C0">图片地址：</td>
<td width="500" bgcolor="#E3E3E3">
<input type="text" name="PhotoUrl" id="PhotoUrl" value="../img/nopic.jpg" size="50" maxlength="120">
</td>
</tr>
<tr>
<td width="100" align="right" bgcolor="#C0C0C0">图片上传：</td>
<td width="500" height="30" bgcolor="#E3E3E3"><div align="center"
><iframe name="ad" frameborder=0 width=100% height=30 scrolling=no src="../WebEdit/Upload_SoftPic.asp"></iframe></div></td>
</tr>
<tr>
<td height="50" align="right" valign="middle" bgcolor="#C0C0C0">UBB代码：</td>
<td bgcolor="#E3E3E3">
<script src=Inc/eshopcode.js></script>
<!--#include file=Inc/Ubb.inc -->
</td>
</tr>
<tr bgcolor="#E3E3E3">
<td height="25" align="right" bgcolor="#C0C0C0">软件简介：</td>
<td align="right" valign="middle"> <div align="left">
<textarea name="Content" cols="66" rows="12" wrap="PHYSICAL"></textarea>
</div></td>
</tr>
<tr>
<td width="100" align="right" bgcolor="#C0C0C0">下载地址一</td>
<td width="500" height="25" bgcolor="#E3E3E3">
<input name="DownloadUrl" type="text" id="DownloadUrl" size="50" maxlength="120">
<font color="#FF0000">！</font></td>
</tr>
<tr>
<td width="100" align="right" bgcolor="#C0C0C0">下载地址二</td>
<td width="500" height="25" bgcolor="#E3E3E3">
<input type="text" name="DownloadUrl2" id="DownloadUrl2" size="50" maxlength="120">
</td>
</tr>
<tr>
<td width="100" align="right" bgcolor="#C0C0C0">下载上传：</td>
<td width="500" height="30" bgcolor="#E3E3E3"><div align="center"
><iframe name="ad" frameborder=0 width=100% height=30 scrolling=no src="../WebEdit/Upload_Soft.asp"></iframe></div></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#C0C0C0">已通过审核：</td>
<td bgcolor="#E3E3E3">
<input type="checkbox" name="Passed" id="Passed" value="yes" checked>
<font color="#0000FF">（如果选中的话将直接发布）</font></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#C0C0C0">下载推荐：</td>
<td bgcolor="#E3E3E3">
<input type="checkbox" name="Elite" id="Passed" value="yes">
<font color="#0000FF">（是否设为推荐）</font></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#C0C0C0">加入时间：</td>
<td bgcolor="#E3E3E3">
<input type="text" name="UpDateTime" id="UpDateTime" value="<%=now()%>" maxlength="50">当前时间为：<%=now()%> 注意不要改变格式。</td>
</tr>
</table>
</td>
</tr>
</table>
<div align="center"><p>
<input name="Add" type="submit" id="Add" value=" 添 加 "
onClick="document.myform.action='Download_Save.asp?action=add';document.myform.target='_self';" style="cursor: hand;background-color: #cccccc;">
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Download_ADD.asp'" style="cursor: hand;background-color: #cccccc;">
</p></div>
</form>
</td>
</tr>
</table>
<BR>
<%htmlend%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -