📄 picture_add.asp
字号:
.Write " <input type='hidden' ID='Content' name='Content' value=""" & Server.HTMLEncode(PictureContent) & """>"
.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='PictureStatus' value='" & KSCMS.G("PictureStatus") & "'>"
.Write " <input type='hidden' name='PhotoID' value='" & KSCMS.G("ID") & "'>"
.Write " <input type='hidden' name='PictureInput' value='" &PictureInput & "'>"
.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=80>"
.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='Rolls' type='checkbox' id='Rolls' value='1'"
If Rolls = 1 Then .Write (" Checked")
.Write ">"
.Write " 滚动"
.Write " <input name='Strip' type='checkbox' id='Strip' value='1'"
If Strip = 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 name='Slide' type='checkbox' id='Slide' value='1'"
If Slide = 1 Then
.Write (" Checked")
End If
.Write ">"
.Write " 幻灯"
.Write " <input name='BeyondSavePic' type='checkbox' id='BeyondSavePic' value='1'>"
.Write " 存图"
.Write " <input type='checkbox' name='MakeHtml' value='1' checked>"
.Write " 立即发布</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 onBlur='PreViewPic(this.value);' name='PhotoUrl' type='text' id='PhotoUrl' size='50' value='" & PhotoUrl & "' style='border-style: solid; border-width: 1'>"
.Write " <font color='#FF0000'>*</font> <input type='button' name='Submit' value='选择图片地址...' onClick=""OpenThenSetValue('../Dialog/SelectPic.asp?ChannelID=2&CurrPath=" & CurrPath & "',550,290,window,document.PictureForm.PhotoUrl);PreViewPic(document.PictureForm.PhotoUrl.value);""><input type='button' name='Submit' value='远程抓取图片...' onClick=""OpenThenSetValue('../Dialog/Frame.asp?FileName=SaveBeyondfile.asp&PageTitle=抓取远程图片&ItemName=图片&CurrPath=" & CurrPath & "',300,100,window,document.PictureForm.PhotoUrl);"">"
.Write " </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height='25' width='8%' nowrap align='center'> 图片地址 </div></td>"
.Write " <td height='25' width='92%' nowrap><table width=""100%"" border=""0""><tr><td width=""40%""><select name='PicUrl' style='width:400;height:98' size='2' onclick='PreViewPic(1)' ondblclick='EditPicUrl();'></select></td><td align=left width=""20%"">"
.Write "<input type=""button"" value=""选择图片地址..."" name=""button1"" onClick=""OpenThenSetValue('../Dialog/SelectPic.asp?ChannelID=2&CurrPath=" & CurrPath & "',550,290,window,document.PictureForm.TempPicUrl);AddPicUrl();""><br><input type=""button"" value=""远程抓取并添加..."" name=""button1"" onClick=""OpenThenSetValue('../Dialog/Frame.asp?FileName=SaveBeyondfile.asp&PageTitle=抓取远程图片&ItemName=图片&CurrPath=" & CurrPath & "',300,100,window,document.PictureForm.TempPicUrl);AddPicUrl();""><br><input type=""button"" value=""添加外部地址..."" name=""button2"" onclick=""AddPictureUrl()""><br><input type=""button"" value=""修改选中项的地址"" onclick=""EditPicUrl()"" name=""button3""><br><input type=""button"" value=""移除选中项的地址"" onclick=""DelPicUrl()"" name=""button4""><input type=""hidden"" name=""TempPicUrl""><input type=""hidden"" name=""PicUrls""></td><td><div style='border: double #E7E7E7;height:100; overflow: auto; width:170;text-align:center' id='PicViewArea'>" & PreViewObj & "</div></td></tr></table>"
.Write " </td>"
.Write " </tr>"
.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>"
If CBool(UpPowerFlag) = True Then
.Write " <td width='60' height='26' align='center' class='Default' id='TPSC' onClick='ChangeFolder(this);'>上传图片</td>"
Else
.Write " <td width='60' height='26' align='center' class='Default' id='TPSC' title='对不起,你没有上传权限' onclick='alert(""对不起,你没有上传图片的权限"")'>上传图片</td>"
End If
.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='PictureContent' name='PictureContent' src='../Editor.asp?ID=Content&style=0&ChannelID=2' 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%'><iframe id='UpPhotoFrame' name='UpPhotoFrame' src='Picture_UpForm.asp' frameborder=0 scrolling=auto width='100%' height='100%'></iframe></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.PictureForm.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.PictureForm.author.value=""未知""' style='cursor:hand;'>未知</font></font>】【<font color='blue'><font color='#993300' onclick=""document.PictureForm.author.value='佚名'"" style='cursor:hand;'>佚名</font></font>】【<font color='blue'><font color='red' onclick=""document.PictureForm.author.value='" & Request.Cookies(KSCMS.SiteSn)("AdminName") & "'"" style='cursor:hand;'>" & Request.Cookies(KSCMS.SiteSn)("AdminName") & "</font></font>】"
If Author <> "" And Author <> "未知" And Author <> Request.Cookies(KSCMS.SiteSn)("AdminName") And Author <> "佚名" Then
.Write ("【<font color='blue'><font color='#993300' onclick=""document.PictureForm.author.value='" & Author & "'"" style='cursor:hand;'>" & Author & "</font></font>】")
End If
.Write ("<select name='SelAuthor' style='width:100px' onChange=""document.PictureForm.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.PictureForm.Origin.value='不详'"" style='cursor:hand;'>不详</font></font>】【<font color='blue'><font color='#993300' onclick=""document.PictureForm.Origin.value='本站原创'"" style='cursor:hand;'>本站原创</font></font>】【<font color='blue'><font color='#993300' onclick=""document.PictureForm.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.PictureForm.Origin.value='" & Origin & "'"" style='cursor:hand;'>" & Origin & "</font></font>】 ")
End If
.Write ("<select name='selOrigin' style='width:100px' onChange=""document.PictureForm.Origin.value=this.options[this.selectedIndex].value"">")
.Write (OriginList)
.Write " </select> </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.PictureForm.AddDate);document.PictureForm.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(PictureFnameType)
.Write "</td></tr>"
.Write " </table>"
.Write " </TD>"
.Write " </TR>"
.Write " </form>"
.Write " </TABLE>"
.Write " </div>"
.Write "</body>"
.Write "</html>"
End With
End Sub
'保存
Sub PictureSave()
With Response
'On Error Resume Next
'图片ID
IF Action="Verify" Then
PicID=KSCMS.G("PhotoID")
Else
PicID = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Now(), "-", ""), " ", ""), ":", ""), "PM", ""), "AM", ""), "上午", ""), "下午", "") & KSCMS.MakeRandom(3)
End If
Title = KSCMS.G("Title")
PhotoUrl = KSCMS.G("PhotoUrl")
PictureContent=Request.Form("Content")
Hits = KSCMS.G("Hits"):If Hits = "" Or Not IsNumeric(Hits) Then Hits = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -