📄 admin_down.asp
字号:
<%end if
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">
<%if rs("down_mode")="免费软件" then%>
<option value="免费软件" selected> 免费软件</option>
<%else%>
<option value="免费软件">免费软件</option>
<%end if%>
<%if rs("down_mode")="共享软件" then%>
<option value="共享软件" selected> 共享软件</option>
<%else%>
<option value="共享软件">共享软件</option>
<%end if%>
<%if rs("down_mode")="破解软件" then%>
<option value="破解软件" selected> 破解软件</option>
<%else%>
<option value="破解软件"> 破解软件</option>
<%end if%>
<%if rs("down_mode")="商业软件" then%>
<option value="商业软件" selected> 商业软件</option>
<%else%>
<option value="商业软件"> 商业软件</option>
<%end if%>
</select> 语言界面：
<select name="language">
<%if rs("language")="简体中文" then%>
<option value="简体中文" selected>简体中文</option>
<%else%>
<option value="简体中文">简体中文</option>
<%end if%>
<%if rs("language")="繁体中文" then%>
<option value="繁体中文" selected>繁体中文</option>
<%else%>
<option value="繁体中文">繁体中文</option>
<%end if%>
<%if rs("language")="英语" then%>
<option value="英语" selected>英语</option>
<%else%>
<option value="英语">英语</option>
<%end if%>
<%if rs("language")="多国语言" then%>
<option value="多国语言" selected>多国语言</option>
<%else%>
<option value="多国语言">多国语言</option>
<%end if%>
<%if rs("language")="其它语言" then%>
<option value="其它语言" selected>其它语言</option>
<%else%>
<option value="其它语言">其它语言</option>
<%end if%>
</select></td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">软件评级：</td>
<td valign="middle">
<select name="star">
<%if Cint(rs("down_commend"))=1 then%>
<option value="1" selected>★☆☆☆☆</option>
<%else%>
<option value="1">★☆☆☆☆</option>
<%end if%>
<%if Cint(rs("down_commend"))=2 then%>
<option value="2" selected>★★☆☆☆</option>
<%else%>
<option value="2">★★☆☆☆</option>
<%end if%>
<%if Cint(rs("down_commend"))=3 then%>
<option value="3" selected>★★★☆☆</option>
<%else%>
<option value="3">★★★☆☆</option>
<%end if%>
<%if Cint(rs("down_commend"))=4 then%>
<option value="4" selected>★★★★☆</option>
<%else%>
<option value="4">★★★★☆</option>
<%end if%>
<%if Cint(rs("down_commend"))=5 then%>
<option value="5" selected>★★★★★</option>
<%else%>
<option value="5">★★★★★</option>
<%end if%> </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" value="<%=rs("down_roof")%>" 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" value="<%=rs("down_demo")%>" 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" value="<%=rs("down_guanfang")%>" size="30"></td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">下载权限：</td>
<td valign="middle">
<%if Cint(rs("popedom"))=0 then%>
<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>
<%elseif Cint(rs("popedom"))=1 then%>
<input type="radio" name="popedom" id="pop0" value=0><label style="cursor:hand;" for="pop0">游客</label>
<input type="radio" name="popedom" id="pop1" value=1 checked><label style="cursor:hand;" for="pop1">普通会员</label>
<input type="radio" name="popedom" id="pop2" value=2><label style="cursor:hand;" for="pop2">VIP会员</label>
<%elseif Cint(rs("popedom"))=2 then%>
<input type="radio" name="popedom" id="pop0" value=0><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 checked><label style="cursor:hand;" for="pop2">VIP会员</label>
<%else%>
<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>
<%end if%>
<span style="color:#3D3D3D;">[需要<%=pointName%><input name="jifen" type="text" class="wenbenkang" value="<%=rs("jifen")%>" size="4">以上 | 消费<%=moneyName%>：<input name="money" type="text" class="wenbenkang" value="<%=rs("money")%>" 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" <%if rs("down_good")=true then response.write("checked") end if%>><label style="cursor:hand;" for="isgood">设为推荐</label> <input type="checkbox" name="istop" id="istop" value="true" <%if rs("down_istop")=true then response.write("checked") end if%>><label style="cursor:hand;" for="istop">置顶软件</label> <input type="checkbox" name="allowPl" id="allowPl" value="true" <%if rs("allow_pl")=true then response.write("checked") end if%>><label for="allowPl" style="cursor:hand;">允许评论</label> </td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">图片上传：</td>
<td valign="middle"> <iframe height="30" scrolling="no" width="100%" frameborder="0" marginheight="0" marginwidth="0" src="myup.asp?cat=down&uptype=pic&urlname=imgurl" name="upimg"></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" value="<%=rs("imgurl")%>" id="imgurl" size="30"></td>
</tr>
<tr class="td_bgcolor">
<td height="25" valign="top" align="right">软件简介：</td>
<td valign="top"><input type="hidden" name="content" id="edit" value="<%=server.HTMLENCode(rs("down_content"))%>"><!--#include file="../editor/edit.asp"-->
</tr>
<tr align="center" valign="middle">
<td height="28" colspan="2" class="td_bgcolor" align="left">
<%
urlstr=split(rs("down_url"),"|")
dnum=ubound(urlstr)
hstr="<input type=""hidden"" value="""&dnum&""" name=""ynum"">"
for i=0 to dnum
url=split(urlstr(i),"$:")
if i=0 then
str_temp=str_temp&" <select onChange=""yurl"&i&".value=this.value+yurl"&i&".value""><option>路径前缀</option><option value="""&weburl&"/"">本站域名</option><option value="""&webInfo(0)&"/"">服务器路径</option></select><input name=""yurltitle"&i&""" class=""wenbenkang"" value="""&url(1)&""" type=""text"" size=""12""> ： <input type=""text"" name=""yurl"&i&""" class=""wenbenkang"" value="""&url(0)&""" size=""40""> <a href=""javascript:"" onclick=""window.open('myup.asp?cat=down&uptype=file&urlname=yurl"&i&"&sizename=downsize&upmode=openwindow','','scrollbars=no,top=300,left=400,width=355,height=50px')"">[上传下载]</a> <input type=""checkbox"" name=""delurl"&i&""" id=""delurl"&i&""" value=""checkbox""><label for=""delurl"&i&""">删除</label> <input name=""upNum"" id=""upNum"" type=""text"" class=""wenbenkang"" size=""4""> <input type=""button"" onclick=""addDownUrl()"" style=""cursor:hand;"" value=""继续追加""></br>"
else
str_temp=str_temp&" <select onChange=""yurl"&i&".value=this.value+yurl"&i&".value""><option>路径前缀</option><option value="""&weburl&"/"">本站域名</option><option value="""&webInfo(0)&"/"">服务器路径</option></select><input name=""yurltitle"&i&""" class=""wenbenkang"" value="""&url(1)&""" type=""text"" size=""12""> ： <input type=""text"" name=""yurl"&i&""" class=""wenbenkang"" value="""&url(0)&""" size=""40""> <a href=""javascript:"" onclick=""window.open('myup.asp?cat=down&uptype=file&urlname=yurl"&i&"&sizename=downsize&upmode=openwindow','','scrollbars=no,top=300,left=400,width=355,height=50px')"">[上传下载]</a> <input type=""checkbox"" name=""delurl"&i&""" id=""delurl"&i&""" value=""checkbox""><label for=""delurl"&i&""">删除</label></br>"
end if
next
response.Write(hstr&str_temp)
%>
<div id="dowurlrs"></div>
</td>
</tr>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">奖励发布：</td>
<td valign="middle"><%=pointName%>：<input type="input" class="wenbenkang" name="sendOutPoint" value="0" size="15"> <%=pointUnits%> <span>共累计奖励该发布者 <%=rs("sendOutPoint")%> <%=pointUnits%></span></td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">审核：</td>
<td valign="middle"><input type="checkbox" name="pass" id="pass1" value="checkbox" <%if rs("pass")=true then response.write("checked") end if%>><label for="pass1" style="cursor:hand;">通过审核</label></td>
</tr>
<tr align="center" valign="middle">
<td height="28" colspan="2" class="td_titleB">
<input type="submit" name="modifydown" value="保存修改"></td>
</tr>
</form>
<script language="JavaScript">
function addDownUrl(){
var dnum,urlstr;
urlstr="";
dnum=Number(document.all.form.upNum.value);
ynum=Number(document.all.form.ynum.value)+1;
for(var i=1;i<=dnum;i++){
urlstr+=" <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(ynum+i)+"' size=12 name=urltitle"+String(i)+"> ： <input type=text class=\"wenbenkang\" name=url"+String(i)+" size=40> <a href=\"javascript:\" onclick=\"window.open('myup.asp?cat=down&uptype=file&urlname=url"+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>
<%
rs.close
set rs=Nothing
End Sub
Sub deletedown()
if getPopedom("downAdmin")=false then
popedomMsg
exit sub
end if
dim sql
sql="delete from ms_down where id="&Request.QueryString("id")
conn.Execute(sql)
adminShowMsg "成功信息","<li>恭喜您,操作删除成功！</li><br><br><span id=seNum>5</span><a href=javascript：showtime></a>秒钟后系统将自动返回影视管理页......</b><meta http-equiv=refresh content=5;url=admin_down.asp><SCRIPT>valignbottom()</SCRIPT><script>function showtime(secs){seNum.innerText=secs;if(--secs>0)setTimeout('showtime('+secs+')',1000);}showtime(5);</script>"
exit sub
End Sub
Sub operate()
if getPopedom("isDownErrorAdmin")=false then
popedomMsg
exit sub
end if
dim id,operateOption,idArr,operateNum
id=trim(replace(Request("ID")," ",""))
operateOption=lcase(trim(Request("operateOption")))
idArr=split(id,",")
for i=0 to ubound(idArr)
if isInteger(idArr(i))=false then
adminShowMsg "参数出错","软件ID参数应为一个数字整型参数"
exit sub
end if
next
if ubound(idArr)<0 then
adminShowMsg "出错信息","请选择一个操作执行"
exit sub
end if
if operateOption="repair" then
sql="update ms_down set down_error=0 where id in("&id&")"
elseif operateOption="deldown" then
sql="delete from ms_down where id in("&id&")"
else
adminShowMsg "出错信息","请选择一个操作执行"
exit sub
end if
conn.execute sql,operateNum
if operateNum=1 then
response.redirect(request.servervariables("http_referer"))
exit sub
end if
adminShowMsg "成功信息","<li>恭喜恭喜,操作执行成功</li><li>此次操作共影响 <font color=""#ff4400"">"&operateNum&"</font> 条记录</li>"
End Sub
'========================================================
'MaoSin CMS 1.1 Power by maosin.com
'Email: maosin@163.com , maosin@maosin.com
'Web: http://www.maosin.com http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -