admin_down.asp

本系统是一套开源WEB的网站管理系统

exit sub
End Sub
Sub adddown()
if getPopedom("isAddDown")=false then
	popedomMsg
	exit sub
end if
dim editpath:editpath="../editor/"
%>
<script language="javascript">
function downcheck(){
submits();
if(document.form.downclass.options[document.form.downclass.selectedIndex].value==""){
alert("请选择所属分类");
document.form.downclass.focus();
return false;}
if(document.form.title.value==""){
alert("下载名称不能为空");
document.form.title.focus();
return false;}
if(document.form.content.value==""){
alert("简介内容不能为空");
IframeID.document.body.focus();
return false;}
if(document.form.downsize.value==""){
alert("下载大小不能为空");
document.form.downsize.focus();
return false;}
if(document.form.keyword.value==""){
alert("关键词不能为空");
document.form.keyword.focus();
return false;}
if(document.form.approof.value==""){
alert("运行环境不能为空");
document.form.approof.focus();
return false;}
return true;
}
var editorpath="../editor/";
</script>
<table width="100%" border="0" cellpadding="3" cellspacing="1" class="text table_border mainTable">
  <tr valign="middle"> 
    <td height="25" colspan="2" class="td_titleT"> 添加下载</td>
  </tr>
<form action="?action=maosin_saveDown&operate=add" name="form" Method="post" onSubmit="return downcheck()">
  <tr class="td_bgcolor"> 
    <td width="80" height="25" align="right" valign="middle">下载名称：</td>
    <td width="*" valign="middle"> <input name="title" type="text" class="wenbenkang" id="title" size="40" ondrop="document.form.keyword.value=document.form.title.value;" onpaste="document.form.keyword.value=document.form.title.value;" onkeyup="document.form.keyword.value=document.form.title.value;"> 标题颜色：<input name="titlecolor" type="text" class="wenbenkang" value="#000000" id="titlecolor" size="10" readonly>  <select name="colorrs" onChange="titlecolor.value=this.value;"><option value="#000000">选择颜色</option><%colorStr=split(colorRS,","):for i=0 to ubound(colorStr): Response.Write ("<option style=""background-color:"& colorStr(i) &";color: "& colorStr(i) &""" value="""&colorStr(i)&""">"&colorStr(i)&"</option>"):next%></select></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">关 键 词：</td>
    <td valign="middle"> <input name="keyword" type="text" class="wenbenkang" id="keyword"> 30个字符以内，多个请用 | 符号分开</td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">下载大小：</td>
    <td valign="middle"> <input name="downsize" type="text" class="wenbenkang" id="downsize"> <a href="javascript:" onclick="downsize.value+='KB';">KB</a>|<a href="javascript:" onclick="downsize.value+='MB';">MB</a></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">所属分类：</td>
    <td valign="middle"> 
	  <select name="downclass" id="downclass">
		 <%sql="select * from ms_down_cat"
		 Set rs1=Server.CreateObject("ADODB.RecordSet")
		 rs1.Open sql,connstr,1,1
		 If Not rs1.Bof And Not rs1.Eof Then
		 Do While Not rs1.Eof
			 sql="select * from ms_down_class where catID="&rs1("catID")
			 Set rs2=Server.CreateObject("ADODB.RecordSet")
			 rs2.Open sql,connstr,1,1
			 If Not rs2.Eof And Not rs2.Bof Then%>
			 		<option>----<%=rs1("catName")%>----</option>
				<%Do While Not rs2.Eof%>
					<option value="<%=rs1("catId")&","&rs2("classID")%>"><%=rs2("class")%></option>
					<%rs2.MoveNext
				Loop
			 	rs2.close
				Set rs2=Nothing
			 Else%>
					<option>请添加子分类</option>
					<%rs2.close
				Set rs2=Nothing
			 End If
		rs1.MoveNext
		Loop
		rs1.close
		Set rs1=Nothing
		Else%>
		<option>----请添加大分类----</option>
		<%rs1.close
		Set rs1=Nothing
		End If
			 %>
          </select>
      </td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">授权方式：</td>
    <td valign="middle"> 
		 <select name="accmode">
		  	<option value="免费软件">免费软件</option>
			<option value="共享软件">共享软件</option>
			<option value="破解软件">破解软件</option>
			<option value="商业软件">商业软件</option>
		  </select>&nbsp;&nbsp;&nbsp;语言界面：
 		<select name="language">
		  	<option value="简体中文">简体中文</option>
			<option value="繁体中文">繁体中文</option>
			<option value="英语">英语</option>
			<option value="多国语言">多国语言</option>
			<option value="其它语言">其它语言</option>
		  </select></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">软件评级：</td>
    <td valign="middle"> 
		 <select name="star">
		  	<option value="1">★☆☆☆☆</option>
			<option value="2">★★☆☆☆</option>
			<option value="3" selected>★★★☆☆</option>
			<option value="4">★★★★☆</option>
			<option value="5">★★★★★</option>
		  </select></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">运行环境：</td>
    <td valign="middle"> <input type="text" name="approof" class="wenbenkang" id="approof" size="30"> <a href="javascript:" onclick="approof.value+='Win9x'">Win9x</a>|<a href="javascript:" onclick="approof.value+='/WinNT'">WinNT</a>|<a href="javascript:" onclick="approof.value+='/WinNT'">Win2K</a>|<a href="javascript:" onclick="approof.value+='/WinXP'">WinXP</a>|<a href="javascript:" onclick="approof.value+='/Win2003'">Win2003</a>|<a href="javascript:" onclick="approof.value+='/其它'">其它</a></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">演示地址：</td>
    <td valign="middle"> <input type="text" name="demo" class="wenbenkang" size="30"></td>
  </tr>
  <tr class="td_bgcolor">
    <td height="25" align="right" valign="middle">官方地址：</td>
    <td valign="middle"> <input type="text" name="guanfang" class="wenbenkang" size="30"></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">下载权限：</td>
    <td valign="middle"> 
      <input type="radio" name="popedom" id="pop0" value=0 checked><label style="cursor:hand;" for="pop0">游客</label>
      <input type="radio" name="popedom" id="pop1" value=1><label style="cursor:hand;" for="pop1">普通会员</label>
      <input type="radio" name="popedom" id="pop2" value=2><label style="cursor:hand;" for="pop2">VIP会员</label> &nbsp;
      <span style="color:#3D3D3D;">[需要<%=pointName%><input name="jifen" type="text" class="wenbenkang" value="0" size="4">以上 | 消费<%=moneyName%>：<input name="money" type="text" class="wenbenkang" value="0" size="4">] *游客请保持为 0</span> </td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">软件属性：</td>
    <td valign="middle"> <input type="checkbox" name="isgood" id="isgood" value="true"><label style="cursor:hand;" for="isgood">设为推荐</label> &nbsp;<input type="checkbox" name="istop" id="istop" value="true"><label style="cursor:hand;" for="istop">置顶软件</label> &nbsp;<input type="checkbox" name="allowPl" id="allowPl" value="true" checked><label for="allowPl" style="cursor:hand;">允许评论</label> &nbsp;</td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">图片上传：</td>
    <td valign="middle"> <iframe height="30" width="100%" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" src="myup.asp?cat=down&uptype=pic&urlname=imgurl"></iframe></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">图片地址：</td>
    <td valign="middle"><input  name="imgurl" type="text" class="wenbenkang" id="imgurl" size="40"></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" valign="top" align="right">软件简介：</td>
    <td valign="top"> <input type="hidden" name="content" id="edit"><!--#include file="../editor/edit.asp"--></td>
  </tr>
  <tr align="center" valign="middle"> 
    <td height="28" colspan="2" class="td_bgcolor" align="left"> &nbsp;&nbsp; 
      <select onChange="url1.value=this.value+url1.value"><option value="">路径前缀</option><option value="<%=weburl%>/">本站域名</option><option value="<%=webInfo(0)%>/">服务器路径</option></select><input name="urltitle1" value="下载地址1" type="text" class="wenbenkang" size="12">
      ： <input type="text" name="url1" class="wenbenkang" size="40"> &nbsp;<a href="javascript:" onclick="window.open('myup.asp?cat=down&uptype=file&urlname=url1&sizename=downsize&upmode=openwindow','','scrollbars=no,top=300,left=400,width=355,height=50,status=yes')">[上传下载]</a>&nbsp;&nbsp;上传数：<input name="upNum" id="upNum" type="text" class="wenbenkang" value="1" size="4"> <input type="button" onclick="addDownUrl()" style="cursor:hand;" value="设置">
	<div id="dowurlrs"></div>
	 </td>
  </tr>
  <tr align="center" valign="middle"> 
    <td height="28" colspan="2" class="td_titleB"> 
     <input name="pass" id="pa1" type="checkbox" value="1" checked><label for="pa1" style="cursor:hand;">通过审核</label>
	 <input type="submit" name="adddown" value="提交保存"></td>
  </tr>
</form>
  <script language="JavaScript">
  function addDownUrl(){
  	var dnum,urlstr;
	urlstr="";
	dnum=Number(document.all.form.upNum.value);
	for(var i=2;i<=dnum;i++){
		urlstr+="&nbsp;&nbsp;&nbsp;<select onChange=\"url"+String(i)+".value=this.value+url"+String(i)+".value\"><option>路径前缀</option><option value=\"<%=weburl%>/\">本站域名</option><option value=\"<%=webInfo(0)%>/\">服务器路径</option></select><input type=text class=\"wenbenkang\" value='下载地址"+String(i)+"' size=12 name=urltitle"+String(i)+"> ：&nbsp;<input type=text class=\"wenbenkang\" name=url"+String(i)+" size=40> &nbsp;<a href=\"javascript:\" onclick=\"window.open('myup.asp?cat=down&uptype=file&urlname=url"+String(i)+"&sizename=downsize&upmode=openwindow','','scrollbars=no,top=300,left=400,width=355,height=50px')\">[上传下载]</a><br>";
	}
	dowurlrs.innerHTML=urlstr;
  }
  </script>
</table>
<br/>
<table width="100%" border="0" cellpadding="4" cellspacing="1" class="text table_border mainTable">
<tr><td class="td_bgcolor">
<b>说明：</b><br/>
1、如果上传的文件大于10M以上请用FTP等上传工具上传，否则会造成浏览器死机。<br/>
2、如果你提供下载的文件为，rar,zip等格文件，建议下载地址填写最好为完整路径，如：http://你的域名/下载路径，这样子可以加快下载速度，且减轻服务器资源耗费。如提供的下载文件为txt,jpg,gif等格式，大小小于10M以内的文件，你可填写相对路径，这样子可避免浏览器直接打开，如：upfile/download/下载文件名。<br/>
<div style="text-align:right;"><a href="http://www.maosin.com">更多…</a></div></td></tr>
</table>
<%End Sub
Sub editdown()
if getPopedom("downAdmin")=false then
	popedomMsg
	exit sub
end if
sql="Select * from ms_down where id="&Request.QueryString("id")
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,connstr,1,1
dim editpath:editpath="../editor/"
%>
<script language="javascript">
function downcheck(){
submits();
if(document.form.downclass.options[document.form.downclass.selectedIndex].value==""){
alert("请选择所属分类");
document.form.downclass.focus();
return false;}
if(document.form.title.value==""){
alert("下载名称不能为空");
document.form.title.focus();
return false;}
if(document.form.content.value==""){
alert("简介内容不能为空");
IframeID.document.body.focus();
return false;}
if(document.form.downsize.value==""){
alert("下载大小不能为空");
document.form.downsize.focus();
return false;}
if(document.form.keyword.value==""){
alert("关键词不能为空");
document.form.keyword.focus();
return false;}
if(document.form.approof.value==""){
alert("运行环境不能为空");
document.form.approof.focus();
return false;}
return true;
}
var editorpath="../editor/";
</script>
<table width="100%" border="0" cellpadding="3" cellspacing="1" class="text table_border mainTable">
  <tr valign="middle"> 
    <td height="25" colspan="2" class="td_titleT">编辑下载</td>
  </tr>
<form action="?action=maosin_saveDown&operate=maosin_mdf" name="form" Method="post" onSubmit="return downcheck()">
  <tr class="td_bgcolor"> 
    <td width="80" height="25" align="right" valign="middle">下载名称：</td>
    <td width="*" valign="middle"> <input name="id" type="hidden" value=<%=rs("id")%>><input name="title" type="text" value="<%=rs("down_title")%>" class="wenbenkang" id="title" size="40" ondrop="document.form.keyword.value=document.form.title.value;" onpaste="document.form.keyword.value=document.form.title.value;" onkeyup="document.form.keyword.value=document.form.title.value;"> 标题颜色：<input name="titlecolor" type="text" class="wenbenkang" value="<%=rs("titlecolor")%>" id="titlecolor" size="10" readonly> <select name="colorrs" onChange="titlecolor.value=this.value;"><option value="#000000">选择颜色</option><%colorStr=split(colorRS,","):for i=0 to ubound(colorStr): Response.Write ("<option style=""background-color:"& colorStr(i) &";color: "& colorStr(i) &""" value="""&colorStr(i)&""">"&colorStr(i)&"</option>"):next%></select></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">关 键 词：</td>
    <td valign="middle"> <input name="keyword" class="wenbenkang" type="text" value="<%=rs("down_keyword")%>" id="keyword"> 30个字符以内，多个请用 | 符号分开</td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">下载大小：</td>
    <td valign="middle"> <input name="downsize" type="text" class="wenbenkang" value="<%=rs("down_size")%>" id="downsize"> <a href="javascript:" onclick="downsize.value+='KB';">KB</a>|<a href="javascript:" onclick="downsize.value+='MB';">MB</a></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">所属分类：</td>
    <td valign="middle"> 
	  <select name="downclass" id="downclass">
		 <%sql="select * from ms_down_cat"
		 Set rs1=Server.CreateObject("ADODB.RecordSet")
		 rs1.Open sql,connstr,1,1
		 If Not rs1.Bof And Not rs1.Eof Then
		 Do While Not rs1.Eof
			 sql="select * from ms_down_class where catID="&rs1("catID")
			 Set rs2=Server.CreateObject("ADODB.RecordSet")
			 rs2.Open sql,connstr,1,1
			 If Not rs2.Eof And Not rs2.Bof Then%>
			 		<option>----<%=rs1("catName")%>----</option>
				<%Do While Not rs2.Eof
					if rs("classID")=rs2("classID") then%>
					<option value="<%=rs1("catId")&","&rs2("classID")%>" selected><%=rs2("class")%></option>
					<%else%>
					<option value="<%=rs1("catId")&","&rs2("classID")%>"><%=rs2("class")%></option>