📄 user_soft.asp
字号:
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>关 键 字：</strong></td>
<td colspan="3"><input name="Keyword" type="text" id="Keyword" size="80" maxlength="255" value="<%=Keyword%>" />
<font color="#FF0000">*</font> <a onclick="SelectCustom('Keyword',<%=ChannelID%>,5,1)" style="cursor:hand;"><font color="#66666">Select...</font></a></td>
</tr>
<tr class="tdbg"<%=CheckUse("2",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>类别：</strong></td>
<td colspan="3"><input name="SoftType" type="text" id="SoftType" value="<%=SoftType%>" size="20" maxlength="80" />
<font color="#FF0000"> *</font> <a onclick="SelectCustom('SoftType',<%=ChannelID%>,0,0)" style="cursor:hand;"><font color="#66666">Select...</font></a>
<strong><%=Cl.ChannelItemName%>语言：</strong><input name="SoftLanguage" type="text" id="SoftLanguage" value="<%=SoftLanguage%>" size="30" maxlength="80" />
<font color="#FF0000"> *</font> <a onclick="SelectCustom('SoftLanguage',<%=ChannelID%>,1,0)" style="cursor:hand;"><font color="#66666">Select...</font></a>
</td>
</tr>
<tr class="tdbg"<%=CheckUse("4",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>授权形式：</strong></td>
<td colspan="3"><input name="CopyrightType" type="text" id="CopyrightType" value="<%=CopyrightType%>" size="20" maxlength="80" />
<font color="#FF0000"> *</font> <a onclick="SelectCustom('CopyrightType',<%=ChannelID%>,2,0)" style="cursor:hand;"><font color="#66666">Select...</font></a>
<strong>运行平台：</strong><input name="OperatingSystem" type="text" id="OperatingSystem" value="<%=OperatingSystem%>" size="30" maxlength="100" />
<font color="#FF0000">*</font> <a onclick="SelectCustom('OperatingSystem',<%=ChannelID%>,3,1)" style="cursor:hand;"><font color="#66666">Select...</font></a>
</td>
</tr>
<tr class="tdbg"<%=CheckUse("6",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>开 发 商：</strong></td>
<td colspan="3"><input name="Author" type="text" id="Author" size="20" maxlength="100" value="<%=Author%>" />
<font color="#FF0000">*</font> <a onclick="SelectCustom('Author',<%=ChannelID%>,4,0)" style="cursor:hand;"><font color="#66666">Select...</font></a>
<strong>信 箱：</strong><input name="AuthorEmail" type="text" id="AuthorEmail" size="30" maxlength="100" value="<%=AuthorEmail%>" /></td>
</tr>
<tr class="tdbg"<%=CheckUse("7",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>相关链接：</strong></td>
<td colspan="3"> 开发商主页：<input name="AuthorHomepage" type="text" id="AuthorHomepage" value="<%=AuthorHomepage%>" size="65" maxlength="100" />
<br /> 演示 地址：<input name="DemoUrl" type="text" id="DemoUrl" value="<%=DemoUrl%>" size="65" maxlength="200" />
</td>
</tr>
<%=ShowField(Action,InfoID,2)%>
<tr class="tdbg">
<td width="100" align="right"><strong>缩 略 图：</strong></td>
<td colspan="3"><input name="PicUrl" type="text" id="PicUrl" size="80" maxlength="200" value="<%=PicUrl%>" onClick="doPreview('PicUrl','<%=Cl.WebDir%>','<%=Cl.UploadDir%>')" />
<br />
<iframe style="top:2px" id="UpFile" src="../User/Upload.asp?ID=<%=ChannelID%>&Type=0&Obj=PicUrl&TObj=TempUploadFiles" frameborder="0" scrolling="No" width="530" height="25"></iframe>
</td>
</tr>
<tr class="tdbg"<%=CheckUse("8",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>服 务 器：</strong></td>
<td colspan="3">
<input type="checkbox" name="UseServer" id="UseServer" value="yes" onClick="chkUseServer();" />
启用服务器
<input type="checkbox" id="IsShowUploadFiles" onclick="chkShowUploadFiles();"> 查看已上传文件</td>
</tr>
<tr class="tdbg" id="ShowUploadFiles" style="display:none;">
<td width="100" align="right"><strong>已 上 传：</strong></td>
<td><select name="TempUploadFiles" style="width:500;height:132" size="2" onclick="doPreview('TempUploadFiles','<%=Cl.WebDir%>','<%=Cl.UploadDir%>')"><%
dim sUploadFiles
sUploadFiles = Trim(UploadFiles)
if Instr(sUploadFiles,"@@@") >0 then
sUploadFiles = Split(sUploadFiles,"@@@")
for i=0 to Ubound(sUploadFiles)
%>
<option value="<%=sUploadFiles(i)%>"><%=sUploadFiles(i)%></option>
<%
Next
elseif sUploadFiles<>"" then
%>
<option value="<%=sUploadFiles%>"><%=sUploadFiles%></option>
<%end if%></select><br />
<input type="button" name="SetDefaultPic" value="设为缩略图" onClick="SetPicUrl('TempUploadFiles','PicUrl');" />
<input type="button" name="InsEditor" value="插入编辑器" onClick="InsertEditor('TempUploadFiles','<%=Cl.WebDir%>','<%=Cl.UploadDir%>');" />
<input type="hidden" name="UploadFiles" value="" />
</td>
<td width="180">
<fieldset style="height:100%">
<legend>预览</legend>
<table border="0" cellpadding="0" cellspacing="1" width="180" height="150" valign="top">
<tr><td align="center" valign="middle" id="tdPreview" height="100%">
</td>
</tr>
</table>
</fieldset>
</td>
</tr>
<tr class="tdbg" id="UseServerM" style="display:none">
<td width="100" align="right"><strong>文件地址：</strong></td>
<td colspan="3">
<input name="FileAddress" type="text" id="FileAddress" value="<%=FileAddress%>" size="55" maxlength="250" />
<font color="#FF0000">*</font>
<font color="#888888">下载地址 = 服务器地址+文件地址</font><br />
<iframe style="top:2px" id="UpFile" src="../User/Upload.asp?ID=<%=ChannelID%>&Type=3&Obj=FileAddress&Obj2=SoftSize&TObj=TempUploadFiles" frameborder="0" scrolling="No" width="530" height="25"></iframe>
</td>
</tr>
<tr class="tdbg" id="NoUseServerM">
<td width="100" align="right"><strong>下载地址：</strong></td>
<td colspan="3">
<input type="hidden" name="DownloadUrls" value="" />
<select name="DownloadUrl" style="width:95%;height:146" size="2" ondblclick="ModifyUrl('下载地址','DownloadUrl');">
<%
dim StrDownloadUrl',i
StrDownloadUrl=Trim(DownloadUrls)
if Instr(StrDownloadUrl,"@@@") >0 then
StrDownloadUrl=Split(StrDownloadUrl,"@@@")
for i=0 to Ubound(StrDownloadUrl)
%>
<option value="<%=StrDownloadUrl(i)%>"><%=StrDownloadUrl(i)%></option>
<%
Next
elseif StrDownloadUrl<>"" then
%>
<option value="<%=StrDownloadUrl%>"><%=StrDownloadUrl%></option>
<%end if%>
</select> <font color="#FF0000">*</font><br />
<input type="button" name="addurl" value="添加下载地址" onClick="AddUrl('下载地址','DownloadUrl');" />
<input type="button" name="addurl" value="修改当前地址" onClick="ModifyUrl('下载地址','DownloadUrl');" />
<input type="button" name="addurl" value="删除当前地址" onClick="DelUrl('下载地址','DownloadUrl');" />
<input type="button" name="upurl" value="↑" onClick="UpUrl('下载地址','DownloadUrl');" />
<input type="button" name="downurl" value="↓" onClick="DownUrl('下载地址','DownloadUrl');" />
<br />
<iframe style="top:2px" id="UpFile" src="../User/Upload.asp?ID=<%=ChannelID%>&Type=3&Obj=DownLoadUrl&Obj2=SoftSize&TObj=TempUploadFiles" frameborder="0" scrolling="No" width="530" height="25"></iframe></td>
</tr>
<tr class="tdbg"<%=CheckUse("9",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>大小：</strong></td>
<td colspan="3"><strong><input name="SoftSize" type="text" id="SoftSize" size="16" maxlength="15" value="<%=SoftSize%>" />
<input name="SizeUnit" type="radio" id="SizeUnit" value="k" checked="checked" />
KB <input name="SizeUnit" type="radio" id="SizeUnit" value="m" />
MB <input name="SizeUnit" type="radio" id="SizeUnit" value="g" />
GB</strong> <font color="#FF0000">*</font><span<%=CheckUse("10",Cl.Channel.selectSingleNode("@disableitem").text)%>> <strong>解压密码：</strong>
<input name="SoftPassword" type="text" id="SoftPassword" size="38" maxlength="100" value="<%=SoftPassword%>" />
</span></td>
</tr>
<tr class="tdbg">
<td width="100" align="right" valign="middle"><strong><%=Cl.ChannelItemName%>简介：</strong></td>
<td colspan="3"><textarea name="Intro" style="display:none"><%=Intro%></textarea>
<iframe id="editor" src="../Editor/Editor.asp?id=Intro&style=other&cid=<%=ChannelID%>&TObj=TempUploadFiles" frameborder="0" scrolling="No" width="95%" height="350"></iframe>
</td>
</tr>
<!--
<tr class="tdbg">
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>属性：</strong></td>
<td colspan="3"> <input name="OnTop" type="checkbox" id="OnTop" value="yes" <%if OnTop=True then response.write " checked"%> />
固顶<%=Cl.ChannelItemName%> <input name="Hot" type="checkbox" id="Hot" value="yes" <%if Hot=True then response.write " checked"%> />
热门<%=Cl.ChannelItemName%> <input name="Elite" type="checkbox" id="Elite" value="yes" <%if Elite=True then response.write " checked"%> />
推荐<%=Cl.ChannelItemName%> <strong>评分等级：</strong> <select name="Stars" id="Stars">
<option value="5" <%if Stars=5 then response.write " selected"%>>★★★★★</option>
<option value="4" <%if Stars=4 then response.write " selected"%>>★★★★</option>
<option value="3" <%if Stars=3 then response.write " selected"%>>★★★</option>
<option value="2" <%if Stars=2 then response.write " selected"%>>★★</option>
<option value="1" <%if Stars=1 then response.write " selected"%>>★</option>
<option value="0" <%if Stars=0 then response.write " selected"%>>无</option>
</select> <font color="#FF0000">*</font></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>下载次数：</strong></td>
<td colspan="3">本日：
<input name="DayHits" type="text" id="DayHits" value="<%=DayHits%>" size="10" maxlength="10" />
本周：
<input name="WeekHits" type="text" id="WeekHits" value="<%=WeekHits%>" size="10" maxlength="10" />
本月：
<input name="MonthHits" type="text" id="MonthHits" value="<%=MonthHits%>" size="10" maxlength="10" />
总计：
<input name="Hits" type="text" id="Hits" value="<%=Hits%>" size="10" maxlength="10" /></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>下载等级：</strong></td>
<td colspan="3">
<input name="InfoGroup" type="hidden" id="InfoGroup" value="<%=InfoGroup%>" />
<input name="InfoGroupView" type="text" id="InfoGroupView" value="<%=Cl.GetUserGroupName(InfoGroup)%>" size="80" onClick="SelectUserGroup('InfoGroup');" readonly="Readonly" />
<input type="checkbox" name="GetClassPurview" id="GetClassPurview" value="yes" onClick="document.myform.InfoGroupView.disabled=this.checked" />
继承栏目权限<br /><font color="#0000FF">只有具有相应权限的人才能下载此<%=Cl.ChannelItemName%>。</font></td>
</tr>
<tr class="tdbg"<%=CheckUse("11",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>下载<%=Cl.Web_Setting(28)%>：</strong></td>
<td colspan="3"><input name="InfoPoint" type="text" id="InfoPoint" value="<%=InfoPoint%>" size="8" maxlength="5" />
<%=Cl.Web_Setting(29)%>
<font color="#0000FF">如果大于0，则用户下载此软件时将消耗相应<%=Cl.Web_Setting(28)%>。（对游客无效）</font></td>
</tr>
<tr class="tdbg"<%=CheckUse("12",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>下载<%=Cl.Web_Setting(26)%>：</strong></td>
<td colspan="3"><input name="InfoMoney" type="text" id="InfoMoney" value="<%=InfoMoney%>" size="8" maxlength="5" />
<%=Cl.Web_Setting(27)%>
<font color="#0000FF">如果大于0，则用户下载此软件时将消耗相应<%=Cl.Web_Setting(26)%>。（对游客无效）</font></td>
</tr>
<tr class="tdbg"<%=CheckUse("13",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>回扣设置：</strong></td>
<td colspan="2">
<%=Cl.Web_Setting(28)%>：<input name="BackPoint" type="text" id="BackPoint" value="<%=BackPoint%>" size="5" maxlength="3" style="text-align: right;" />
<%=Cl.Web_Setting(29)%>＋<%=Cl.Web_Setting(28)%>的<input name="BackPointRate" type="text" id="BackPointRate" value="<%=BackPointRate%>" size="5" maxlength="2" style="text-align: right;" />
%<br />
<%=Cl.Web_Setting(26)%>：<input name="BackMoney" type="text" id="BackMoney" value="<%=BackMoney%>" size="5" maxlength="3" style="text-align: right;" />
<%=Cl.Web_Setting(27)%>＋<%=Cl.Web_Setting(26)%>的<input name="BackMoneyRate" type="text" id="BackMoneyRate" value="<%=BackMoneyRate%>" size="5" maxlength="2" style="text-align: right;" />
%<br /><font color="#0000FF">即当用户游览或下载此内容时，给予一定的回扣给添加者！</font>
</td>
</tr>
<tr class="tdbg"<%=CheckUse("14",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>录入时间：</strong></td>
<td colspan="3"><input name="UpdateTime" type="text" id="UpdateTime" value="<%=UpdateTime%>" maxlength="50" />
<font color="blue"><--【<a href='javascript:ToValue("","UpdateTime","<%=now%>")'>设为当前时间</a>】</font>
<br />
时间格式为“年-月-日 时:分:秒”，如：<font color="#0000FF"><%=now()%></font></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>立即发布：</strong></td>
<td colspan="3"><input name="Passed" type="checkbox" id="Passed" value="yes" <%if Status=1 then response.write " checked"%> />
是<font color="#0000FF">（如果选中的话将直接发布，否则审核后才能发布。）</font>
<input name="NowCreate" type="checkbox" value="yes" checked="checked" />
立即生成</td>
</tr>-->
</table>
<div align="center">
<p>
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=ChannelID%>" />
<input name="Action" type="hidden" id="Action" value="Save<%=Action%>" />
<%if Action="Modify" then%>
<input name="InfoID" type="hidden" id="InfoID" value="<%=InfoID%>" />
<input name="Save" type="submit" id="Save" value="保存修改结果" style="cursor:hand;" />
<!--
<input name="Add" type="submit" id="Add" value="添加为新<%=Cl.ChannelItemName%>" onClick="document.myform.Action.value='SaveAdd';" style="cursor:hand;" />-->
<%else%>
<input name="Add" type="submit" id="Add" value=" 添 加 " style="cursor:hand;" />
<!--<script type="text/javascript">
$("InfoGroupView").disabled=true;
$("GetClassPurview").checked=true;
</script>-->
<%end if%>
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onclick="history.go(-1)" style="cursor:hand;" />
</p>
</div>
</form>
<script language="JavaScript" type="text/javascript">
<!--
<%if UseServer=True then%>
document.myform.UseServer.checked=true;
document.getElementById('UseServerM').style.display="";
document.getElementById('NoUseServerM').style.display="none";
<%end if%>
function chkUseServer()
{
if (document.myform.UseServer.checked==true)
{
document.getElementById('UseServerM').style.display="";
document.getElementById('NoUseServerM').style.display="none";
}
else
{
document.getElementById('UseServerM').style.display="none";
document.getElementById('NoUseServerM').style.display="";
}
}
//-->
</script>
<%
End Sub
Sub DoSaveRecord()
FoundErr = False
InfoID = Cl.GetClng(Request.Form("InfoID"))
ClassID = Cl.GetClng(request.form("ClassID"))
SpecialID = Trim(request.Form("SpecialID"))
SoftName = Trim(request.form("SoftName"))
FontColor = Trim(request.form("FontColor"))
FontType = Cl.GetClng(request.form("FontType"))
SoftVersion = Trim(request.form("SoftVersion"))
SoftType = Trim(request.form("SoftType"))
SoftLanguage = Trim(request.form("SoftLanguage"))
CopyrightType = Trim(request.form("CopyrightType"))
OperatingSystem = Trim(request.form("OperatingSystem"))
Author = Trim(request.form("Author"))
AuthorEmail = Trim(request.form("AuthorEmail"))
AuthorHomepage = Trim(request.form("AuthorHomePage"))
DemoUrl = Trim(request.form("DemoUrl"))
RegUrl = Trim(request.form("RegUrl"))
PicUrl = Trim(request.form("PicUrl"))
Intro = Trim(request.form("Intro"))
Keyword = Trim(request.form("Keyword"))
OnTop = Trim(request.form("OnTop"))
Hot = Trim(request.form("Hot"))
Elite = Trim(request.form("Elite"))
Stars = Cl.GetClng(request.form("Stars"))
UpdateTime = Trim(request.form("UpdateTime"))
Hits = Cl.GetClng(request.form("Hits"))
DayHits = Cl.GetClng(request.form("DayHits"))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -