📄 bs_download_add.asp
字号:
<!--#include file="bsconfig.asp"-->
<!--#include file="zcm.asp"-->
<%
'=========================================================
'
'产品名称：科技 公司(企业)网站管理系统（简称：www.web300.cn）
'版权所有：www.web300.cn
'程序制作：QQ812256@hotmail.com
'联系 方式：QQ ：812256
'Copyright 2006-2008 www.web300.cn - All Rights Reserved.
'
'========================================================
%>
<%
zj=replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(left(replace(Request.ServerVariables("SERVER_NAME"),"www.",""),6),"0","a"),"1","b"),"2","c"),"3","d"),"4","e"),"5","f"),"6","g"),"7","h"),"8","i"),"9","j"),"a","51"),"b","50"),"c","40"),"d","41"),"e","53"),"f","52"),"g","65"),"h","76"),"i","27"),"j","88"),"k","89"),"l","20"),"m","21"),"n","22"),"o","23"),"p","24"),"q","25"),"r","26"),"s","77"),"t","28"),"u","29") ,"v","30") ,"w","31") ,"x","32") ,"y","33") ,"z","35") ,"-","36") ,".","37")
yzcv=zj*(len(zj)+len(zcn&"BlackOutCHK"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
if yzcv<>zcv then
response.write chr(60)&chr(98)&chr(62)&chr(60)&chr(102)&chr(111)&chr(110)&chr(116)&chr(32)&chr(99)&chr(111)&chr(108)&chr(111)&chr(114)&chr(61)&chr(35)&chr(70)&chr(70)&chr(48)&chr(48)&chr(48)&chr(48)&chr(62)&chr(-19219)&chr(-12557)&chr(-23622)&chr(-19508)&chr(-12046)&chr(-13872)&chr(-12620)&chr(-10334)&chr(-19743)&chr(44)&chr(-19253)&chr(-18010)&chr(-15140)&chr(-19781)&chr(-15140)&chr(-13639)&chr(-11325)&chr(33)&chr(60)&chr(47)&chr(102)&chr(111)&chr(110)&chr(116)&chr(62)&chr(60)&chr(47)&chr(98)&chr(62):call sysconfig()
response.end
end if
%>
<%
dim rs
dim sql
dim count
dim Bs_BigClassName,Bs_SmallClassName
set rs=server.createobject("adodb.recordset")
sql = "select * from Bs_DownSmallClass order by Bs_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("Bs_SmallClassName"))%>","<%= trim(rs("Bs_BigClassName"))%>","<%= trim(rs("Bs_SmallClassName"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.Bs_SmallClassName.length = 1;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.Bs_SmallClassName.options[document.myform.Bs_SmallClassName.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
function CheckForm()
{
if (document.myform.Bs_Title.value=="")
{
alert("下载标题不能为空！");
document.myform.Bs_Title.focus();
return false;
}
if (document.myform.Bs_FileSize.value == "")
{
alert("软件大小不能为空！");
document.myform.Bs_FileSize.focus();
return false;
}
if (document.myform.Bs_DownloadUrl.value=="")
{
alert("下载连接不能为空！");
document.myform.Bs_DownloadUrl.focus();
return false;
}
if (document.myform.Bs_Content.value=="")
{
alert("软件简介不能为空！");
document.myform.Bs_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="Bs_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 Bs_DownBigClass"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "请先添加栏目。"
else
%>
<select name="Bs_BigClassName" onChange="changelocation(document.myform.Bs_BigClassName.options[document.myform.Bs_BigClassName.selectedIndex].value)" size="1">
<option selected value="<%=trim(rs("Bs_BigClassName"))%>"><%=trim(rs("Bs_BigClassName"))%></option>
<%
dim selclass
selclass=rs("Bs_BigClassName")
rs.movenext
do while not rs.eof
%>
<option value="<%=trim(rs("Bs_BigClassName"))%>"><%=trim(rs("Bs_BigClassName"))%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select>
<select name="Bs_SmallClassName">
<option value="" selected>不指定小类</option>
<%
sql="select * from Bs_DownSmallClass where Bs_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("Bs_SmallClassName")%>"><%=rs("Bs_SmallClassName")%></option>
<%
rs.movenext
do while not rs.eof
%>
<option value="<%=rs("Bs_SmallClassName")%>"><%=rs("Bs_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="Bs_Title" id="Bs_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=Bs_FileSize> <INPUT type=radio CHECKED value=KB name=Bs_FileSize> KB <INPUT type=radio value=MB name=Bs_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=Bs_Language>简体中文 <INPUT type=radio value=繁体中文 name=Bs_Language>繁体中文 <INPUT type=radio value=英文 name=Bs_Language>英文 <INPUT type=radio value=多国语言 name=Bs_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=Bs_LicenceType>共享软件 <INPUT type=radio value=免费软件 name=Bs_LicenceType>免费软件 <INPUT type=radio value=自由软件 name=Bs_LicenceType>自由软件 <INPUT type=radio value=试用软件 name=Bs_LicenceType>试用软件 <INPUT type=radio value=演示软件 name=Bs_LicenceType>演示软件 <BR><INPUT type=radio value=商业软件 name=Bs_LicenceType>商业软件 <INPUT type=radio value=破解软件 name=Bs_LicenceType>破解软件 <INPUT type=radio value=注册软件 name=Bs_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=Bs_System>Win2003 <INPUT type=checkbox CHECKED value=WinXP name=Bs_System>WinXP <INPUT type=checkbox CHECKED value=Win2000 name=Bs_System>Win2000 <INPUT type=checkbox CHECKED value=NT name=Bs_System>NT <INPUT type=checkbox CHECKED value=WinME name=Bs_System>WinME <INPUT type=checkbox CHECKED value=Win9X name=Bs_System>Win9X <BR><INPUT type=checkbox value=Dos name=Bs_System>Dos <INPUT type=checkbox value=Linux name=Bs_System>Linux <INPUT type=checkbox value=Unix name=Bs_System>Unix <INPUT type=checkbox value=Mac name=Bs_System>Mac <INPUT type=checkbox value=ASP环境 name=Bs_System>ASP环境 <INPUT type=checkbox value=PHP环境 name=Bs_System>PHP环境 <INPUT type=checkbox value=CGI环境 name=Bs_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="Bs_PhotoUrl" id="Bs_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="Bs_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="Bs_DownloadUrl" type="text" id="Bs_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="Bs_DownloadUrl2" id="Bs_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="Bs_Passed" id="Bs_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="Bs_Elite" id="Bs_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="Bs_UpDateTime" id="Bs_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='Bs_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='Bs_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 + -