📄 down_add.asp
字号:
End If
Next
'下载授权
' DownSQList="<option value="""" selected> </option>"
SQArr = Split(DownSQStr, vbCrLf)
For I = 0 To UBound(SQArr)
If SQArr(I) = DownSQ Then
DownSQList = DownSQList & "<option value='" & SQArr(I) & "' Selected>" & SQArr(I) & "</option>"
Else
DownSQList = DownSQList & "<option value='" & SQArr(I) & "'>" & SQArr(I) & "</option>"
End If
Next
'下载平台
'DownPTList="<option value="""" selected> </option>"
PTArr = Split(DownPTStr, vbCrLf)
For I = 0 To UBound(PTArr)
DownPTList = DownPTList & "<a href='javascript:SetDownPT(""" & PTArr(I) & """)'>" & PTArr(I) & "</a>/"
Next
'取得关键字
KeyWordList = "<option value="""" selected> </option><option value=""Clean"" style=""color:red"">清空</option>"
Set KeyRS = conn.Execute("Select * FROM [KS_KeyWords] Where ChannelID=3 Order BY AddDate Desc")
If Not KeyRS.EOF Then
Do While Not KeyRS.EOF
KeyWordList = KeyWordList & "<option value=""" & KeyRS("KeyText") & """>" & KeyRS("KeyText") & "</option>"
KeyRS.MoveNext
Loop
End If
KeyRS.Close
Set KeyRS = Nothing
'取得作者列表
AuthorList = "<option value="""" selected> </option><option value="""" style=""color:red"">清空</option>"
Set OriginRS = conn.Execute("Select OriginName FROM [KS_Origin] Where ChannelID=3 And OriginType=1 Order BY AddDate Desc")
If Not OriginRS.EOF Then
Do While Not OriginRS.EOF
AuthorList = AuthorList & "<option value=""" & OriginRS(0) & """>" & OriginRS(0) & "</option>"
OriginRS.MoveNext
Loop
End If
OriginRS.Close
'取得来源列表
OriginList = "<option value="""" selected> </option><option value="""" style=""color:red"">清空</option>"
Set OriginRS = conn.Execute("Select OriginName FROM [KS_Origin] Where ChannelID=3 And OriginType=0 Order BY AddDate Desc")
If Not OriginRS.EOF Then
Do While Not OriginRS.EOF
OriginList = OriginList & "<option value=""" & OriginRS(0) & """>" & OriginRS(0) & "</option>"
OriginRS.MoveNext
Loop
End If
OriginRS.Close
Set OriginRS = Nothing
'取得模板列表
TemplateSql = "Select TemplateID,TemplateName,IsDefault From KS_Template Where ChannelID=3 And TemplateType=3 Order By TemplateID" '3下载内容页模板
Set TemplateRS = conn.Execute(TemplateSql)
If TemplateRS.EOF And TemplateRS.BOF Then
TemplateList = "<option value=0>请先添加下载模板</option>"
Else
Do While Not TemplateRS.EOF
If CInt(TemplateRS(0)) = CInt(DownTemplateID) Then
TemplateList = TemplateList & "<option value=" & TemplateRS(0) & " selected>" & TemplateRS(1) & "</option>"
Else
TemplateList = TemplateList & "<option value=" & TemplateRS(0) & ">" & TemplateRS(1) & "</option>"
End If
TemplateRS.MoveNext
Loop
End If
TemplateRS.Close
Set TemplateRS = Nothing
.Write "<html>"
.Write "<head>"
.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
.Write "<title>添加下载</title>"
.Write "<link href='../Inc/Admin_Style.CSS' rel='stylesheet' type='text/css'>"
.Write "<script language='JavaScript' src='../JS/Common.js'></script>"
.Write "<script>var DownUrls='" & DownUrls & "';</script>"
.Write "<script language='JavaScript' src='../Common/DownAdd.JS'></script>"
.Write "</head>"
.Write "<body leftmargin='0' topmargin='0' marginwidth='0' onkeydown='if (event.keyCode==83 && event.ctrlKey) SubmitFun();' marginheight='0'>"
.Write "<div align='center'>"
.Write " <TABLE width='100%' height='100%' BORDER='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse'>"
.Write " <form action='Down_add.asp?Method=Save&DownFsoType=" & DownFsoType & "' method='post' name='DownForm' onsubmit='return(SubmitFun())'>"
.Write " <input type='hidden' value='" & DownID & "' name='DownID'>"
.Write " <input type='hidden' value='" & Action & "' name='Action'>"
.Write " <input type='hidden' ID='Content' name='Content' value=""" & Server.HTMLEncode(DownContent) & """>"
.Write " <input type='hidden' name='Page' value='" & Page & "'>"
.Write " <input type='hidden' name='DisplayMode' value='" & DisplayMode & "'>"
.Write " <input type='hidden' name='ParentID' value='" & ParentID & "'>"
.Write " <input type='hidden' name='KeyWord' value='" & KeyWord & "'>"
.Write " <input type='hidden' name='SearchType' value='" & SearchType & "'>"
.Write " <Input type='hidden' name='StartDate' value='" & StartDate & "'>"
.Write " <input type='hidden' name='EndDate' value='" & EndDate & "'>"
'收集签收下载的参数
.Write " <Input type='hidden' name='DownStatus' value='" & KSCMS.G("DownStatus") & "'>"
.Write " <input type='hidden' name='ID' value='" & KSCMS.G("ID") & "'>"
.Write " <input type='hidden' name='DownInput' value='" &DownInput & "'>"
.Write " <TR>"
.Write " <TD WIDTH='100%'>"
.Write " <table width='100%' border='0' cellpadding='0' cellspacing='0' bordercolor='#111111' style='border-collapse: collapse'>"
.Write " <tr style='height:25px'>"
.Write " <td height='25' nowrap> <div align='right'><font color='#FF0000'>下载名称 </font></div></td>"
.Write " <td height='25' nowrap> "
.Write " <input name='title' type='text' style='border-style: solid; border-width: 1' value='" & Title & "' size=60> 版本号 <input name='DownVerSion' type='text' style='border-style: solid; border-width: 1' value='" & DownVerSion & "' size=12>"
.Write " <font color='#FF0000'>*</font> "
.Write " </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td width='8%' height=30 align='center' nowrap>所属栏目</td>"
.Write " <td width='92%' height='30' nowrap> <select size='1' name='tid'>"
.Write TypeList & " </select>"
.Write " 下载属性 <input name='Recommend' type='checkbox' id='Recommend' value='1'"
If Recommend = 1 Then .Write (" Checked")
.Write ">"
.Write " 推荐"
.Write " <input name='Popular' type='checkbox' id='Popular' value='1'"
If Popular = 1 Then .Write (" Checked")
.Write ">"
.Write " 热门"
.Write " <input name='Verific' type='checkbox' id='Verific' value='1'"
If Action <> "Edit" Then
.Write (" checked")
ElseIf Verific = 1 Then
.Write (" Checked")
End If
.Write ">"
.Write " 已审核"
.Write " <input name='Comment' type='checkbox' id='Comment' value='1'"
If Comment = 1 Then .Write (" Checked")
.Write ">"
.Write " 允许评论"
.Write " <input type='checkbox' name='MakeHtml' value='1' checked>"
.Write " 立即发布</td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td align='center'>下载性质</td><td>类别:<select name='DownLB'>"
.Write DownLBList
.Write " </select> 语言:<select name='DownYY' size='1'>"
.Write DownYYList
.Write "</select> 授权:<select name='DownSQ' size='1'>"
.Write DownSQList
.Write "</select> 文件大小:<input type='text' size=9 name='DownSize' value='" & DownSize & "'> "
If SizeUnit = "KB" Then
.Write " <input name=""SizeUnit"" type=""radio"" value=""KB"" checked id=""kb""><label for=""kb"">KB</label> " & vbCrLf
.Write " <input type=""radio"" name=""SizeUnit"" value=""MB"" id=""mb""><label for=""mb"">MB</label> " & vbCrLf
Else
.Write " <input name=""SizeUnit"" type=""radio"" value=""KB"" id=""kb""><label for=""kb"">KB</label> " & vbCrLf
.Write " <input type=""radio"" name=""SizeUnit"" value=""MB"" checked id=""mb""><label for=""mb"">MB</label> " & vbCrLf
End If
.Write " </td></tr>"
.Write " <tr>"
.Write " <td align='center'>系统平台：</td><td><input type='text' size=79 name='DownPT' value='" & DownPT & "'><br>"
.Write " <font color='#808080'>平台选择"
.Write DownPTList
.Write "</font></td>"
.Write " </tr>"
.Write " <tr style='height:25px'>"
.Write " <td height='25' width='8%' align='center' nowrap> 下载图片 </td>"
.Write " <td height='25' width='92%' nowrap> <input name='PhotoUrl' type='text' id='PhotoUrl' size='60' value='" & PhotoUrl & "' style='border-style: solid; border-width: 1'><input type='hidden' value='" & BigPhoto & "' name='BigPhoto' id='BigPhoto'>"
.Write " <input type='button' name='Submit' value='选择图片地址...' onClick=""OpenThenSetValue('../Dialog/SelectPic.asp?ChannelID=3&CurrPath=" & CurrPath & "/DownPhoto',550,290,window,document.DownForm.PhotoUrl);document.DownForm.BigPhoto.value=document.DownForm.PhotoUrl.value;""><input type='button' name='Submit' value='远程抓取图片...' onClick=""OpenThenSetValue('../Dialog/Frame.asp?FileName=SaveBeyondfile.asp&PageTitle=抓取远程图片&ItemName=图片&CurrPath=" & CurrPath & "/DownPhoto',300,100,window,document.DownForm.PhotoUrl);"">"
.Write " </td>"
.Write " </tr>"
If CBool(UpPowerFlag) = True Then
.Write " <tr style='height:25px'>"
.Write " <td height='25' width='8%' align='center' nowrap> <font color=blue>上传图片</font></td>"
.Write " <td height='25' width='92%' align='left'><iframe id='UpPhotoFrame' name='UpPhotoFrame' src='Down_UpPhotoForm.asp' frameborder=0 scrolling=no width='100%' height='100%'></iframe>"
.Write " </td>"
.Write " </tr>"
End If
.Write " <tr>"
.Write " <td height='25' colspan='2' nowrap><div align='right'>"
.Write " <table width='100%' border='0' cellpadding='0' cellspacing='0' height='20'>"
.Write " <tr>"
.Write " <td width='60' height='26' align='center' class='Selected' id='ArticleList' onClick='ChangeFolder(this);'>下载简介</td>"
.Write " <td width='5' height='26' align='center' class='ToolBarButtonLine' style='cursor:default;'> </td>"
.Write " <td width='60' height='26' align='center' class='Default' id='TPSC' onClick='ChangeFolder(this);'>下载地址</td>"
.Write " <td width='5' height='26' align='center' class='ToolBarButtonLine' style='cursor:default;'> </td>"
.Write " <td width='60' height='26' align='center' class='Default' id='GJXX' onClick='ChangeFolder(this);'>高级选项</td>"
.Write " <td width='5' height='26' align='center' class='ToolBarButtonLine' style='cursor:default;'> </td>"
.Write " <td height='26' class='ToolBarButtonLine'> <table width='100%' border='0' cellspacing='0' cellpadding='0'>"
.Write " <tr>"
.Write " <td width='2%'><div align='right'></div></td>"
.Write " <td width='98%'> </td>"
.Write " </tr>"
.Write " </table></td>"
.Write " </tr>"
.Write " </table>"
.Write " </td>"
.Write " </tr>"
.Write " </table>"
.Write " </TD>"
.Write " </TR>"
.Write " <TR ID='ContentArea'>"
.Write " <TD colspan='2' valign='top' nowrap height='100%'><iframe id='DownContent' name='DownContent' src='../Editor.asp?ID=Content&style=0&ChannelID=3' frameborder=0 scrolling=no width='100%' height='100%'></iframe></TD>"
.Write " </TR>"
.Write " <TR ID='TPSCArea' style='display:none;'>"
.Write " <TD colspan='2' valign='top' nowrap height='100%'>"
.Write " <table border=0 width='80%'>"
.Write " <tr><td width='40%' align='right' valign='bottom'><font color=blue>下载地址连接方式-></font></td><td><input type='radio' name='FlagUrl' onclick='SetFlagUrl(this.value)' value='0'"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -