📄 download.asp
字号:
<td onClick="ChangeFolder(this);" id="AddressFolder" width="60" align="center" class="LableDefault">下载地址</td>
<td class="ToolBarButtonLine" style="cursor:default;"> </td>
</tr>
</table></td>
</tr>
<tr id="AttributeArea" style="display:none;">
<td height="30" colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="ButtonListLeft">
<tr>
<td width="100" height="30"> <div align="center">所属栏目</div></td>
<td colspan="3"> <input type="text" style="width:74%;" name="ClassCNameShow" readonly value="<% = OldClassEName %>">
<input type="button" name="Submit" value="选择栏目" onClick="SelectClass();"></td>
</tr>
<tr>
<td height="30"> <div align="center">页面模板</div></td>
<td colspan="3"><input name="NewsTemplet" type="text" id="NewsTemplet2" style="width:60% " readonly value="<%If INewsTemplet = "" OR INewsTemplet = Null then Response.Write( "/" & RemoveVirtualPath(TempletDir) & "/NewsClass/DownPage.htm") else Response.Write(INewsTemplet)%>" >
<input type="button" name="Submit" value="选择模板" onClick="OpenWindowAndSetValue('../../FunPages/SelectFileFrame.asp?CurrPath=<%=Get_RootDir %>/<% = TempletDir %>',400,300,window,document.DownForm.NewsTemplet);document.DownForm.NewsTemplet.focus();"></td>
</tr>
<tr>
<td height="30"> <div align="center">显示图片</div></td>
<td colspan="3"><input name="Pic" type="text" id="Pic2" style="width:60% " value="<% = IPic %>" >
<input type="button" name="Submit4" value="选择图片" onClick="var TempReturnValue=OpenWindow('../../FunPages/SelectPic.asp?CurrPath=/<% = UpFiles %>',500,290,window);if (TempReturnValue!='') document.DownForm.Pic.value=TempReturnValue;"></td>
</tr>
<tr>
<td height="30"> <div align="center">添加日期</div></td>
<td colspan="3"><input name="AddTime" readonly type="text" id="AddTime2" style="width:60% " value="<% if IAddTime = "" then Response.Write(now()) else Response.Write(IAddTime) end if%>">
<input type="button" name="Submit42" value="选择日期" onClick="OpenWindowAndSetValue('../../FunPages/SelectDate.asp',280,110,window,document.DownForm.AddTime);document.DownForm.AddTime.focus();"></td>
</tr>
<% if IDownLoadID <> "" then%>
<tr>
<td height="30"> <div align="center">修改日期</div></td>
<td colspan="3"><input name="EditTime" readonly type="text" id="EditTime" style="width:60% " value="<% if IAddTime = "" then Response.Write(now()) else Response.Write(IAddTime) end if%>">
<input type="button" name="Submit42" value="选择日期" onClick="OpenWindowAndSetValue('../../FunPages/SelectDate.asp',280,110,window,document.DownForm.EditTime);document.DownForm.EditTime.focus();"></td>
</tr>
<% end if %>
<tr>
<td><div align="center">下载类型</div></td>
<td colspan="3"><select name="Types" id="select" style="width:60%">
<option value="1" <%If CStr(ITypes) = "1" then Response.Write("selected")%>>图片</option>
<option value="2" <%If CStr(ITypes) = "2" then Response.Write("selected")%>>文件</option>
<option value="3" <%If CStr(ITypes) = "3" then Response.Write("selected")%>>程序</option>
<option value="4" <%If CStr(ITypes) = "4" then Response.Write("selected")%>>Flash</option>
<option value="5" <%If CStr(ITypes) = "5" then Response.Write("selected")%>>音乐</option>
<option value="6" <%If CStr(ITypes) = "6" then Response.Write("selected")%>>影视</option>
<option value="7" <%If CStr(ITypes) = "7" then Response.Write("selected")%>>其它</option>
</select></td>
</tr>
<tr>
<td height="30"> <div align="center">程序语言</div></td>
<td><select name="Language" id="select4" style="width:90%">
<option value="1" <%If CStr(ILanguage) = "1" then Response.Write("selected")%>>简体中文</option>
<option value="2" <%If CStr(ILanguage) = "2" then Response.Write("selected")%>>繁体中文</option>
<option value="3" <%If CStr(ILanguage) = "3" then Response.Write("selected")%>>英文</option>
<option value="4" <%If CStr(ILanguage) = "4" then Response.Write("selected")%>>法文</option>
<option value="5" <%If CStr(ILanguage) = "5" then Response.Write("selected")%>>日文</option>
<option value="6" <%If CStr(ILanguage) = "6" then Response.Write("selected")%>>德文</option>
</select></td>
<td><div align="center">文件大小</div></td>
<td><input name="FileSize" type="text" id="FileSize" style="width:90%" value="<% = IFileSize %>"></td>
</tr>
<tr>
<td height="30"> <div align="center">系统平台</div></td>
<td colspan="3"><input name="SystemType" type="text" id="SystemType2" style="width:63%" value="<% = ISystemType %>">
<select name="SystemChoose" id="select5" style="width:32%" onChange=ChooseSystem(this.options[this.selectedIndex].value)>
<option value="Clean" style="color:red">清空</option>
<option <% if ISystemType = "Win95" then Response.Write("Selected") %> value="Win95">Win95</option>
<option <% if ISystemType = "Win98" then Response.Write("Selected") %> value="Win98">Win98</option>
<option <% if ISystemType = "WinMe" then Response.Write("Selected") %> value="WinMe">WinMe</option>
<option <% if ISystemType = "WinNT" then Response.Write("Selected") %> value="WinNT">WinNT</option>
<option <% if ISystemType = "Win2000" then Response.Write("Selected") %> value="Win2000">Win2000</option>
<option <% if ISystemType = "WinXP" then Response.Write("Selected") %> value="WinXP" selected>WinXP</option>
<option <% if ISystemType = "Win2003" then Response.Write("Selected") %> value="Win2003">Win2003</option>
<option <% if ISystemType = "Linux" then Response.Write("Selected") %> value="Linux">Linux</option>
</select></td>
</tr>
<tr>
<td height="30"> <div align="center">开 发 商</div></td>
<td><input name="Provider" type="text" id="Provider2" style="width:90%" value="<% = IProvider %>"></td>
<td><div align="center">开发商Url</div></td>
<td><input name="ProviderUrl" type="text" id="ProviderUrl" style="width:90%" value="<% = IProviderUrl %>"></td>
</tr>
<tr>
<td height="30"> <div align="center">扩 展 名</div></td>
<td width="390"><select name="FileExtName" id="select6" style="width:90%">
<option value="htm" <%If IFileExtName = "htm" then Response.Write("selected")%>>htm</option>
<option value="html" <%If IFileExtName = "html" then Response.Write("selected")%>>html</option>
<option value="shtm" <%If IFileExtName = "shtm" then Response.Write("selected")%>>shtm</option>
<option value="shtml" <%If IFileExtName = "shtml" then Response.Write("selected")%>>shtml</option>
<option value="asp" <%If IFileExtName = "asp" then Response.Write("selected")%>>asp</option>
</select></td>
<td width="70"><div align="center">下载权限</div></td>
<td width="427"><select name="BrowPop" id="select8" style="width:90%" onChange="ChooseExeName();">
<option value="" <%if IBrowPop = "" then Response.Write("selected")%>>
</option>
<%
Dim BrowPopObj
Set BrowPopObj= New Cls_User
Response.Write BrowPopObj.UserGroups("PopLevel",IBrowPop)
Set BrowPopObj = Nothing
%>
</select></td>
</tr>
<tr>
<td height="30"> <div align="center">解压密码</div></td>
<td><input name="PassWord" type="text" id="PassWord" style="width:90%" value="<% = IPassWord %>"></td>
<td><div align="center">下载次数</div></td>
<td><input name="ClickNum" type="text" id="ClickNum2" style="width:90%" value="<%if IClickNum = "" then Response.Write("0") else Response.Write(IClickNum) end if %>"></td>
</tr>
<tr>
<td height="30"> <div align="center">版本名称</div></td>
<td><input name="Version" type="text" id="Version" style="width:90%" value="<% = IVersion %>"></td>
<td><div align="center">程序授权</div></td>
<td><select name="Accredit" id="select7" style="width:90%">
<option value="1" <%If CStr(IAccredit) = "1" then Response.Write("selected")%>>免费</option>
<option value="2" <%If CStr(IAccredit)="2" then Response.Write("selected")%>>共享</option>
<option value="3" <%If CStr(IAccredit)="3" then Response.Write("selected")%>>试用</option>
<option value="4" <%If CStr(IAccredit)="4" then Response.Write("selected")%>>演示</option>
<option value="5" <%If CStr(IAccredit)="5" then Response.Write("selected")%>>注册</option>
<option value="6" <%If CStr(IAccredit)="6" then Response.Write("selected")%>>破解</option>
<option value="7" <%If CStr(IAccredit)="7" then Response.Write("selected")%>>零售</option>
<option value="8" <%If CStr(IAccredit)="8" then Response.Write("selected")%>>其它</option>
</select></td>
</tr>
<tr>
<td height="30"> <div align="center">星级评价</div></td>
<td><select name="Appraise" id="select10" style="width:90%">
<option value="1" <%If CStr(IAppraise)="1" then Response.Write("selected")%>>★</option>
<option value="2" <%If CStr(IAppraise)="2" then Response.Write("selected")%>>★★</option>
<option value="3" <%If CStr(IAppraise)="3" then Response.Write("selected")%>>★★★</option>
<option value="4" <%If CStr(IAppraise)="4" then Response.Write("selected")%>>★★★★</option>
<option value="5" <%If CStr(IAppraise)="5" then Response.Write("selected")%>>★★★★★</option>
<option value="6" <%If CStr(IAppraise)="6" then Response.Write("selected")%>>★★★★★★</option>
</select></td>
<td><div align="center">E_Mail</div></td>
<td><input name="EMail" type="text" id="EMail2" style="width:90%" value="<% = IEMail %>"></td>
</tr>
<tr>
<td height="30"> <div align="center">推荐下载 </div></td>
<td colspan="3"><select name="RecTF" id="select">
<option value="1" <%If CStr(IRecTF)="1" then Response.Write("selected")%>>是</option>
<option value="0" <%If CStr(IRecTF)="0" then Response.Write("selected")%>>否</option>
</select>
可选属性：审核
<input name="AuditTF" type="checkbox" value="1"
<%
If CStr(IAuditTF)="1" then Response.Write("checked")
if Not (JudgePopedomTF(Session("Name"),"P010703")) then Response.Write(" style=""display:none;""><input type=""checkbox"" disabled")
%>>
允许评论
<input name="ReviewTF" type="checkbox" id="ReviewTF2" value="1" onClick="ChooseRiview();" <%if IReviewTF = "1" then Response.Write("checked") end if%>>
显示评论
<input name="ShowReviewTF" type="checkbox" id="ShowReviewTF2" value="1" <%if IShowReviewTF = "1" then Response.Write("checked") end if%> <%if IReviewTF = "0" then Response.Write("disabled") end if %>>
</td>
</tr>
</table></td>
</tr>
<tr id="ContentArea">
<td height="30" colspan="2"><iframe id='NewsContent' src='../../Editer/DownLoadEditer.asp' frameborder=0 scrolling=no width='100%' height='470'></iframe></td>
</tr>
<tr id="AddressArea" style="display:none;">
<td height="30" colspan="2">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="ButtonListLeft">
<tr>
<td width="11%" height="30"></td>
<td width="89%">下载地址数量
<input name="AddressNum" type="text" id="AddressNum" value="<%=AddressNum%>" size="8">
<input type="button" name="Submit3" value=" 设 置 " onClick="ChooseOption();SetOptionsValue()">
</td>
</tr>
<tr>
<td height="30" colspan="2" id="Options"> </td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>
<script language="javascript">
var AddressCount=0;
var RequestNameArray=new Array();
var RequestColorArray=new Array();
var RequestAddressIDArray=new Array();
var DocumentReadyTF=false;
var TempRequestNameArray,TempRequestColorArray,TempRequestNumberArray,TempRequestAddressIDArray;
TempRequestNameArray='<% = RequestNameArrays %>';
TempRequestColorArray='<% = RequestUrlArrays %>';
TempRequestNumberArray='<% = RequestNumberArray %>';
TempRequestAddressIDArray='<% = AddressIDArrays %>';
RequestNameArray = TempRequestNameArray.split(",");
RequestColorArray = TempRequestColorArray.split(",");
RequestNumberArray = TempRequestNumberArray.split(",");
RequestAddressIDArray = TempRequestAddressIDArray.split(",");
AddressCount=RequestNumberArray.length;
function document.onreadystatechange()
{
if (document.readyState!="complete") return;
if (DocumentReadyTF) return;
DocumentReadyTF = true;
ChooseOption();
SetOptionsValue();
}
function ChooseRiview()
{
if (document.DownForm.ReviewTF.checked==true)
{
document.DownForm.ShowReviewTF.disabled=false;
}
else
{
document.DownForm.ShowReviewTF.disabled=true;
}
}
function SetOptionsValue()
{
if ((RequestNameArray.length==0)||(RequestColorArray.length==0)||(RequestNumberArray.length==0)||(RequestAddressIDArray.length==0)) return;
var AddressNum=document.DownForm.AddressNum.value;
for (i=1;i<=AddressNum;i++)
{
if (i>=AddressCount)
{
document.all('AddressName'+i).value='地址'+i;
document.all('Url'+i).value='';
document.all('Number'+i).value='';
document.all('AddressID'+i).value='';
}
else
{
document.all('AddressName'+i).value=RequestNameArray[i];
document.all('Url'+i).value=RequestColorArray[i];
document.all('Number'+i).value=RequestNumberArray[i];
document.all('AddressID'+i).value=RequestAddressIDArray[i];
}
}
}
function ChooseOption()
{
var AddressNum = document.DownForm.AddressNum.value;
var i,Optionstr;
Optionstr = '<table width="100%" border="0" cellspacing="5" cellpadding="0">';
for (i=1;i<=AddressNum;i++)
{
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -