📄 down_add.asp
字号:
If FlagUrl = 0 Then
.Write " Checked"
End If
.Write ">默认方式 <input type='radio' onclick='SetFlagUrl(this.value)' name='FlagUrl' value='1'"
If FlagUrl = 1 Then
.Write "Checked"
End If
.Write ">镜像服务器方式</td><tr>"
.Write " </table>"
.Write "<table border='0' width='100%' height='100%' align='center' id='ServerArea'"
If FlagUrl = 0 Then .Write " Style='display:none'"
.Write ">"
.Write " <tr>"
.Write " <td height='45' align='center' valign='top'>下载地址（文件名）：<input type='text' name='ServerUrls' size='60' value='" & DownUrls & "' style='border-style: solid; border-width: 1'> </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height='30' nowrap align='center' valign='top'> 假设您的文件目录是 <font color=red> ""Down\KS_2006.exe""</font>,则输入 <font color=red>""Down/KS_2006.exe""</font> 即可,前台显示方式如：<br><br></td>"
.Write "<tr><td valign='top'><div align=center><li><a href='#'>福建电信下载</a><li><a href='#'>广东网通下载</a><Li><a href='#'>北京网通下载</a><br><br></td></tr>"
.Write "</table>"
.Write "<table border='0' width='100%' height='100%' align='center' id='DefaultArea'"
If FlagUrl = 1 Then .Write " style='display:none'"
.Write ">"
.Write " <tr>"
.Write " <td height='30' width='8%' nowrap align='center'> 下载地址</div></td>"
.Write " <td width='92%' nowrap valign='top'><table width=""100%"" border=""0"" height='100%'><tr><td width=""40%""><select name='DownUrl' style='width:480;height:93' size='2' ondblclick='SetPhotoUrl();'></select></td><td align=left width=""20%""><input type=""button"" value=""选择下载地址..."" name=""button1"" onClick=""OpenThenSetValue('../Dialog/SelectPic.asp?ChannelID=3&CurrPath=" & CurrPath & "/DownUrl',550,290,window,document.DownForm.TempDownUrl);AddDownUrl();""><br><input type=""button"" value=""添加外部地址..."" name=""button2"" onclick=""AddWBDownUrl()""><br><input type=""button"" value=""修改选中项的地址"" onclick=""EditDownUrl()"" name=""button3""><br><input type=""button"" value=""移除选中项的地址"" onclick=""DelDownUrl()"" name=""button4""><input type=""hidden"" name=""TempDownUrl""><input type=""hidden"" name=""DownUrls""></td></tr></table>"
.Write " </td>"
.Write " </tr>"
If CBool(UpPowerFlag) = True Then
.Write "<tr><td colspan=2><iframe id='UpPhotoFrame' name='UpPhotoFrame' src='Down_UpForm.asp' frameborder=0 scrolling=auto width='100%' height='100%'></iframe></td></tr>"
Else
.Write "<tr><td colspan=2> </td></tr>"
End If
.Write "</table></TD>"
.Write " </TR>"
.Write " <TR id='AttributeArea' style='display:none;'>"
.Write " <TD height='100%' valign='top'>"
.Write " <table width='90%' border='0' align='center' cellpadding='0' cellspacing='0'>"
.Write " <tr id='ContentLink' style='display:none;'>"
.Write " <td colspan='2' valign='top' nowrap>"
.Write " <table width='90%' border='0' align='center' cellpadding='0' cellspacing='0'>"
.Write " <tr>"
.Write " <td> </td>"
.Write " <td> </td>"
.Write " </tr>"
.Write " </table>"
.Write " </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height=30 align='center' nowrap> <div align='center'>关键字:</div></td>"
.Write " <td height='30' nowrap> <input name='KeyWords' type='text' id='KeyWords' style='border-style: solid; border-width: 1' value='" & KeyWords & "' size=50> <="
.Write " <select name='SelKeyWords' style='width:150px' onChange='InsertKeyWords(document.DownForm.KeyWords,this.options[this.selectedIndex].value)'>"
.Write KeyWordList
.Write " </select></td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height='24' align='center' nowrap height=30> <div align='center'>作者/开发商:</div></td>"
.Write " <td height='30' nowrap> <input name='author' type='text' id='author' value='" & Author & "' size=50 style='border-style: solid; border-width: 1'> <=【<font color='blue'><font color='#993300' onclick='document.DownForm.author.value=""未知""' style='cursor:hand;'>未知</font></font>】【<font color='blue'><font color='#993300' onclick=""document.DownForm.author.value='佚名'"" style='cursor:hand;'>佚名</font></font>】【<font color='blue'><font color='red' onclick=""document.DownForm.author.value='" & Session("Name") & "'"" style='cursor:hand;'>" & Session("Name") & "</font></font>】"
If Author <> "" And Author <> "未知" And Author <> Session("Name") And Author <> "佚名" Then
.Write ("【<font color='blue'><font color='#993300' onclick=""document.DownForm.author.value='" & Author & "'"" style='cursor:hand;'>" & Author & "</font></font>】")
End If
.Write ("<select name='SelAuthor' style='width:100px' onChange=""document.DownForm.author.value=this.options[this.selectedIndex].value"">")
.Write (AuthorList)
.Write " </select> </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height='24' align='center' nowrap height=30>下载来源:</td>"
.Write " <td height='30' nowrap> <input name='Origin' type='text' id='Origin' value='" & Origin & "' size=50 style='border-style: solid; border-width: 1'> <=【<font color='blue'><font color='#993300' onclick=""document.DownForm.Origin.value='不详'"" style='cursor:hand;'>不详</font></font>】【<font color='blue'><font color='#993300' onclick=""document.DownForm.Origin.value='本站原创'"" style='cursor:hand;'>本站原创</font></font>】【<font color='blue'><font color='#993300' onclick=""document.DownForm.Origin.value='互联网'"" style='cursor:hand;'>互联网</font></font>】"
If Origin <> "" And Origin <> "不详" And Origin <> "本站原创" And Origin <> "互联网" Then
.Write ("【<font color='blue'><font color='#993300' onclick=""document.DownForm.Origin.value='" & Origin & "'"" style='cursor:hand;'>" & Origin & "</font></font>】 ")
End If
.Write ("<select name='selOrigin' style='width:100px' onChange=""document.DownForm.Origin.value=this.options[this.selectedIndex].value"">")
.Write (OriginList)
.Write " </select> </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td align='center' nowrap nowrap height=30>演示地址:</td>"
.Write " <td height='30' nowrap> <input name='YSDZ' type='text' id='YSDZ' value='" & YSDZ & "' size='50' style='border-style: solid; border-width: 1'>"
.Write " </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td align='center' nowrap nowrap height=30>注册地址:</td>"
.Write " <td height='30' nowrap> <input name='ZCDZ' type='text' id='ZCDZ' value='" & ZCDZ & "' size='50' style='border-style: solid; border-width: 1'>"
.Write " </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td align='center' nowrap nowrap height=30>解压密码:</td>"
.Write " <td height='30' nowrap> <input name='JYMM' type='text' id='JYMM' value='" & JYMM & "' size='50' style='border-style: solid; border-width: 1'>"
.Write " </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td align='center' nowrap height=30>添加日期:</td>"
.Write " <td height='30' nowrap>"
If Action <> "Edit" Then
.Write ("<input name='AddDate' type='text' id='AddDate' value='" & Now() & "' size='50' readonly style='border-style: solid; border-width: 1'>")
Else
.Write ("<input name='AddDate' type='text' id='AddDate' value='" & AddDate & "' size='50' readonly style='border-style: solid; border-width: 1'>")
End If
.Write " <b><a href='#' onClick=""OpenThenSetValue('../Dialog/DateDialog.asp?shownow=true',200,110,window,document.DownForm.AddDate);document.DownForm.AddDate.focus();""><img src='../Images/date.gif' width='20' height='20' border='0' align='absmiddle' title='选择日期'></a>"
.Write " </b></td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td align='center' nowrap height=30>下载等级:</td>"
.Write " <td height='30' nowrap><select name='rank'>"
If Rank = "★" Then
.Write " <option selected>★</option>"
Else
.Write " <option>★</option>"
End If
If Rank = "★★" Then
.Write " <option selected>★★</option>"
Else
.Write " <option>★★</option>"
End If
If Rank = "★★★" Or Action = "Add" Then
.Write " <option selected>★★★</option>"
Else
.Write " <option>★★★</option>"
End If
If Rank = "★★★★" Then
.Write " <option selected>★★★★</option>"
Else
.Write " <option>★★★★</option>"
End If
If Rank = "★★★★★" Then
.Write " <option selected>★★★★★</option>"
Else
.Write " <option>★★★★★</option>"
End If
.Write " </select>"
.Write " 请为下载评定推荐等级</td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td align='center' nowrap nowrap height=30>下载浏览数:</td>"
.Write " <td height='30' nowrap> 本日：<input name='HitsByDay' type='text' id='HitsByDay' value='" & HitsByDay & "' size='10' style='border-style: solid; border-width: 1'> 本周：<input name='HitsByWeek' type='text' id='HitsByWeek' value='" & HitsByWeek & "' size='10' style='border-style: solid; border-width: 1'> 本月：<input name='HitsByMonth' type='text' id='HitsByMonth' value='" & HitsByMonth & "' size='10' style='border-style: solid; border-width: 1'> 总计：<input name='Hits' type='text' id='Hits' value='" & Hits & "' size='10' style='border-style: solid; border-width: 1'>"
.Write " </td>"
.Write " </tr>"
.Write " <tr><td>下载模板:</td><td height='30' nowrap><select name='TemplateID' id='TemplateID' style='border-style: solid; border-width: 1'>"
.Write TemplateList
.Write " </select> 生成的类型："
.Write KSCMS.GetFsoTypeStr(DownFnameType)
.Write "</td></tr>"
.Write " </table>"
.Write " </TD>"
.Write " </TR>"
.Write " </form>"
.Write " </TABLE>"
.Write " </div>"
.Write "</body>"
.Write "</html>"
End With
End Sub
Sub DownSave()
' On Error Resume Next
With Response
'下载ID
IF Action="Verify" Then
DownID=KSCMS.G("DownID")
Else
DownID = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Now(), "-", ""), " ", ""), ":", ""), "PM", ""), "AM", ""), "上午", ""), "下午", "") & KSCMS.MakeRandom(3)
End If
Page = KSCMS.G("Page")
DisplayMode = KSCMS.G("DisplayMode")
Action = KSCMS.G("Action") ' Add添加新下载 Edit编辑下载
Title = KSCMS.G("Title")
DownVerSion = KSCMS.G("DownVerSion")
DownLb = KSCMS.G("DownLb")
DownYY = KSCMS.G("DownYY")
DownSQ = KSCMS.G("DownSQ")
DownPT = KSCMS.G("DownPT")
DownSize = KSCMS.G("DownSize")
If DownSize = "" Or Not IsNumeric(DownSize) Then DownSize = 0
DownSize = DownSize & KSCMS.G("SizeUnit")
YSDZ = KSCMS.G("YSDZ")
ZCDZ = KSCMS.G("ZCDZ")
JYMM = KSCMS.G("JYMM")
PhotoUrl = KSCMS.G("PhotoUrl")
BigPhoto = KSCMS.G("BigPhoto")
DownContent=Request.Form("Content")
Hits = KSCMS.G("Hits"):If Hits = "" Or Not IsNumeric(Hits) Then Hits = 0
HitsByDay = KSCMS.G("HitsByDay"):If HitsByDay = "" Or Not IsNumeric(HitsByDay) Then HitsByDay = 0
HitsByWeek = KSCMS.G("HitsByWeek"):If HitsByWeek = "" Or Not IsNumeric(HitsByWeek) Then HitsByWeek = 0
HitsByMonth = KSCMS.G("HitsByMonth"):If HitsByMonth = "" Or Not IsNumeric(HitsByMonth) Then HitsByMonth = 0
FlagUrl = KSCMS.G("FlagUrl")
If FlagUrl = 0 Then
DownUrls = Trim(KSCMS.G("DownUrls"))
Else
DownUrls = KSCMS.G("ServerUrls")
End If
Recommend = KSCMS.G("Recommend"):If Recommend = "" Then Recommend = 0
Popular = KSCMS.G("Popular"):If Popular = "" Then Popular = 0
Verific = KSCMS.G("Verific"):If Verific = "" Then Verific = 0
Comment = KSCMS.G("Comment"):If Comment = "" Then Comment = 0
Makehtml = KSCMS.G("Makehtml"):If Makehtml = "" Then Makehtml = 0
FnameType = Trim(KSCMS.G("Fnametype"))
Tid = Trim(KSCMS.G("Tid"))
KeyWords = KSCMS.G("KeyWords")
Author = KSCMS.G("Author")
Origin = KSCMS.G("Origin")
AddDate = KSCMS.G("AddDate")
Rank = Trim(KSCMS.G("Rank"))
TemplateID = KSCMS.G("TemplateID"):If TemplateID = "" Then TemplateID = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -