📄 user_down.asp
字号:
<!--#include file="user_popedom.asp"-->
<!--#include file="include/ubbcode.asp"-->
<!--#include file="include/ms_ubb.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1 Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com www.maosin.net
' QQ：57861417
'电子邮箱：maosin@163.com maosin@maosin.com
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
sub naviDown()%>
<div class="text" align="center" style="padding-top:8px;height:30px;vertical-align:middle;"><a href="?channel=down&action=downList&list=1">所有下载</a> <a href="?channel=down&action=downList&list=2">通过审核的下载</a> <a href="?channel=down&action=downList&list=3">未审核的下载</a> <a href="user_publish.asp?channel=down&action=maosin_appDown">发布下载</a></div>
<%end sub
sub addDown()%>
<script language="javascript">
function downcheck(){
if(document.myform.downclass.options[document.myform.downclass.selectedIndex].value==""){
alert("请选择所属分类");
document.myform.downclass.focus();
return false;}
if(document.myform.title.value==""){
alert("下载名称不能为空");
document.myform.title.focus();
return false;}
if(document.myform.content.value==""){
alert("简介内容不能为空");
return false;}
if(document.myform.downsize.value==""){
alert("下载大小不能为空");
document.myform.downsize.focus();
return false;}
if(document.myform.keyword.value==""){
alert("关键词不能为空");
document.myform.keyword.focus();
return false;}
if(document.myform.approof.value==""){
alert("运行环境不能为空");
document.myform.approof.focus();
return false;}
return true;
}
</script>
<table width="100%" border="0" cellpadding="3" cellspacing="1" class="tableBC" style="margin-top:3px;">
<tr>
<td height="25" colspan="2" valign="middle" class="tdT"> 添加下载</td>
</tr>
<form action="user_publish.asp?channel=down&action=maosin_savedown" name="myform" Method="post" onSubmit="return downcheck()">
<tr class="tdBC">
<td width="70" 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="tdBC">
<td height="25" align="right" valign="middle">关 键 词：</td>
<td valign="middle"> <input name="keyword" type="text" class="wenbenkang" id="keyword" size="40"> 30个字符以内，多个请用 | 符号分开</td>
</tr>
<tr class="tdBC">
<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="tdBC">
<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="tdBC">
<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> 语言界面：
<select name="language">
<option value="简体中文">简体中文</option>
<option value="繁体中文">繁体中文</option>
<option value="英语">英语</option>
<option value="多国语言">多国语言</option>
<option value="其它语言">其它语言</option>
</select></td>
</tr>
<tr class="tdBC">
<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="tdBC">
<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="tdBC">
<td height="25" align="right" valign="middle">演示地址：</td>
<td valign="middle"> <input type="text" name="demo" class="wenbenkang" size="30"></td>
</tr>
<tr class="tdBC">
<td height="25" align="right" valign="middle">官方地址：</td>
<td valign="middle"> <input type="text" name="guanfang" class="wenbenkang" size="30"></td>
</tr>
<%if cint(userinfo(2))=3 then%>
<tr class="tdBC">
<td height="25" align="right" valign="middle">查看权限：</td>
<td valign="middle">
<select name="popedom">
<option value="0" selected>游客</option>
<option value="1">普通会员</option>
<option value="2">VIP会员</option>
</select>
<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>
<%end if%>
<tr class="tdBC">
<td height="25" align="right" valign="middle">软件属性：</td>
<td valign="middle">
<%if cint(userinfo(2))=3 then%>
<input type="checkbox" name="isgood" id="isgood" value="true"><label style="cursor:hand;" for="isgood">设为推荐</label>
<input type="checkbox" name="istop" id="istop" value="true"><label style="cursor:hand;" for="istop">置顶软件</label>
<%end if%>
<input type="checkbox" name="allowPl" id="allowPl" value="true" checked><label for="allowPl" style="cursor:hand;">允许评论</label> </td>
</tr>
<tr class="tdBC">
<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="upload.asp?uptype=img&urlname=myform.imgurl"></iframe></td>
</tr>
<tr class="tdBC">
<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="tdBC">
<td height="25" valign="top" align="right">软件简介：</td>
<td valign="top"><%=showUBB(0,0)%><br/><textarea name="content" style="width:100%" rows="10" id="content" class="textkang"></textarea></td>
</tr>
<tr class="tdBC">
<td height="25" align="right" valign="middle">下载地址：</td>
<td valign="middle"><input name="urltitle1" value="下载地址1" type="text" class="wenbenkang" size="12"> ： <input name="url1" type="text" class="wenbenkang" id="url" size="40"></td>
</tr>
<tr class="tdBC">
<td height="25" align="right" valign="middle">下载地址：</td>
<td valign="middle"><input name="urltitle2" value="下载地址2" type="text" class="wenbenkang" size="12"> ： <input name="url2" type="text" class="wenbenkang" id="url" size="40"></td>
</tr>
<tr class="tdBC">
<td height="25" align="right" valign="middle">下载地址：</td>
<td valign="middle"><input name="urltitle3" value="下载地址3" type="text" class="wenbenkang" size="12"> ： <input name="url3" type="text" class="wenbenkang" id="url" size="40"></td>
</tr>
<tr class="tdBC">
<td height="25" align="right" valign="middle">文件上传：</td>
<td valign="middle"><iframe height="25" width="100%" scrolling="no" frameborder="0" marginheight="0" marginwidth="0" src="upload.asp?uptype=file&urlname=myform.url1&sizename=myform.downsize" name="upimg"></iframe></td>
</tr>
<tr valign="middle">
<td height="25" colspan="2" align="center" class="tdT">
<input type="checkbox" name="pass" id="pass1" value="true" <%if cint(userinfo(2))=3 then: response.write("checked"):else:response.write("disabled")end if%>><label for="pass1" style="cursor:hand;">通过审核</label>
<input name="addDown" type="submit" id="addDown" value="发布下载" class="but1" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'">
</td>
</tr>
</form>
</table>
<%End Sub
Sub saveDown()
action=lcase(request.querystring("action"))
id=request.form("id")
title=Request.form("title")
titlecolor=Request.form("titlecolor")
downclass=Request.form("downclass")'所属分类
keyword=replace(replace(Request.form("keyword"),"'","''"),"|",",")
downsize=Request.form("downsize")
accmode=Request.form("accmode")
language=Request.form("language")
star=Request.form("star")
approof=Request.form("approof")
demo=request.form("demo")
guanfang=request.form("guanfang")
imgurl=Request.form("imgurl")
content=Request.form("content")
if cint(userinfo(2))=3 then
jifen=Request.form("jifen")
money=Request.form("money")
popedom=Request.form("popedom")
if Request.form("isgood")="true" then
isgood=true
else
isgood=false
end if
if Request.form("istop")="true" then
istop=true
else
istop=false
end if
if Request.form("pass")="true" then
pass=true
else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -