📄 user_down.asp
字号:
<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_savemdf" 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="id" type="hidden" value=<%=rs("id")%>><input name="title" type="text" class="wenbenkang" value="<%=rs("down_title")%>" 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="tdBC">
<td height="25" align="right" valign="middle">关 键 词：</td>
<td valign="middle"> <input name="keyword" type="text" class="wenbenkang" id="keyword" value="<%=rs("down_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" 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="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
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>
<%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="tdBC">
<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="多国语言" selected>多国语言</option>
<%end if%>
<%if rs("language")="其它语言" then%>
<option value="其它语言" selected>其它语言</option>
<%else%>
<option value="其它语言" selected>其它语言</option>
<%end if%>
</select></td>
</tr>
<tr class="tdBC">
<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="tdBC">
<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="tdBC">
<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="tdBC">
<td height="25" align="right" valign="middle">官方地址：</td>
<td valign="middle"> <input type="text" name="guanfang" value="<%=rs("down_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">
<%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>
<%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" <%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>
<%end if%>
<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="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" value="<%=rs("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"><%=server.HTMLENCode(rs("down_content"))%></textarea></td>
</tr>
<%
dim urlstr,dnum,i,j
urlstr=split(rs("down_url"),"|")
dnum=ubound(urlstr)
for i=0 to dnum
url=split(urlstr(i),"$:")
j=i+1%>
<tr class="tdBC">
<td height="25" align="right" valign="middle">下载地址：</td>
<td valign="middle"><input name="urltitle<%=j%>" value="<%=url(1)%>" type="text" class="wenbenkang" size="12"> ： <input name="url<%=j%>" type="text" value="<%=url(0)%>" class="wenbenkang" id="url" size="40"></td>
</tr>
<%next%>
<tr class="tdBC">
<td height="25" align="right" valign="middle">下载地址：</td>
<td valign="middle"><input name="urltitle4" value="下载地址" type="text" class="wenbenkang" size="12"> ： <input name="url4" 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" 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:if rs("pass")=true then: response.write("checked"):end if: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
'========================================================
'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 + -