⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 system_thumb.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
		Response.Write "                <option value=""3"" "
		If RS("MarkPosition") = "3" Then Response.Write ("selected")
		Response.Write ">居中</option>"
		Response.Write "                <option value=""4"" "
		If RS("MarkPosition") = "4" Then Response.Write ("selected")
		Response.Write ">右上</option>"
		Response.Write "                <option value=""5"" "
		If RS("MarkPosition") = "5" Then Response.Write ("selected")
		Response.Write ">右下</option>"
		Response.Write "            </SELECT> </td>"
		Response.Write "          </tr>"
		Response.Write "          <tr>"
		Response.Write "           <td colspan=""2"">"
		Response.Write "           <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#efefef"" id=""textarea"">"
		Response.Write "          <tr bgcolor=""#FFFFFF"">"
		Response.Write "            <td width=""27%"" height=""26"" align=""right"" bgcolor=""#EEF8FE"">水印文字信息:</td>"
		Response.Write "            <td width=""70%"" bgcolor=""#EEF8FE""> <INPUT TYPE=""text"" NAME=""MarkText"" size=40 value=""" & RS("MarkText") & """>            </td>"
		Response.Write "          </tr>"
		Response.Write "          <tr bgcolor=""#FFFFFF"">"
		Response.Write "            <td height=""26"" align=""right"" bgcolor=""#EEF8FE"">字体大小:</td>"
		Response.Write "            <td bgcolor=""#EEF8FE""> <INPUT TYPE=""text"" NAME=""MarkFontSize"" size=10 value=""" & RS("MarkFontSize") & """>"
		Response.Write "            <b>px</b> </td>"
		Response.Write "          </tr>"
		Response.Write "          <tr bgcolor=""#FFFFFF"">"
		Response.Write "            <td height=""26"" align=""right"" bgcolor=""#EEF8FE"">字体颜色:</td>"
		Response.Write "            <td bgcolor=""#EEF8FE""><input  type=""text"" name=""MarkFontColor"" maxlength = 7 size = 7 id=""MarkFontColor"" value=""" & RS("MarkFontColor") & """ readonly>"
		Response.Write "            <input type=""button"" name=""button12"" value=""选择颜色..."" onClick=""OpenThenSetValue('../Dialog/SelectColor.asp',230,190,window,document.form.MarkFontColor);document.form.MarkFontColor.style.color=document.form.MarkFontColor.value;""></td>"
		Response.Write "          </tr>"
		Response.Write "          <tr bgcolor=""#FFFFFF"">"
		Response.Write "            <td height=""26"" align=""right"" bgcolor=""#EEF8FE"">字体名称:</td>"
		Response.Write "            <td bgcolor=""#EEF8FE""> <SELECT name=""MarkFontName"" id=""MarkFontName"">"
		Response.Write "                <option value=""宋体"" "
		If RS("MarkFontName") = "宋体" Then Response.Write ("selected")
		Response.Write ">宋体</option>"
		Response.Write "                <option value=""楷体_GB2312"" "
		If RS("MarkFontName") = "楷体_GB2312" Then Response.Write ("selected")
		Response.Write ">楷体</option>"
		Response.Write "                <option value=""新宋体"" "
		If RS("MarkFontName") = "新宋体" Then Response.Write ("selected")
		Response.Write ">新宋体</option>"
		Response.Write "                <option value=""黑体"" "
		If RS("MarkFontName") = "黑体" Then Response.Write ("selected")
		Response.Write ">黑体</option>"
		Response.Write "                <option value=""隶书"" "
		If RS("MarkFontName") = "隶书" Then Response.Write ("selected")
		Response.Write ">隶书</option>"
		Response.Write "                <OPTION value=""Andale Mono"" "
		If RS("MarkFontName") = "Andale Mono" Then Response.Write ("selected")
		Response.Write ">Andale"
		Response.Write "                Mono</OPTION>"
		Response.Write "                <OPTION value=""Arial"" "
		If RS("MarkFontName") = "Arial" Then Response.Write ("selected")
		Response.Write ">Arial</OPTION>"
		Response.Write "                <OPTION value=""Arial Black"" "
		If RS("MarkFontName") = "Arial Black" Then Response.Write ("selected")
		Response.Write ">Arial"
		Response.Write "                Black</OPTION>"
		Response.Write "                <OPTION value=""Book Antiqua"" "
		If RS("MarkFontName") = "Book Antiqua" Then Response.Write ("selected")
		Response.Write ">Book"
		Response.Write "                Antiqua</OPTION>"
		Response.Write "                <OPTION value=""Century Gothic"" "
		If RS("MarkFontName") = "Century Gothic" Then Response.Write ("selected")
		Response.Write ">Century"
		Response.Write "                Gothic</OPTION>"
		Response.Write "                <OPTION value=""Comic Sans MS"" "
		If RS("MarkFontName") = "Comic Sans MS" Then Response.Write ("selected")
		Response.Write ">Comic"
		Response.Write "                Sans MS</OPTION>"
		Response.Write "                <OPTION value=""Courier New"" "
		If RS("MarkFontName") = "Courier New" Then Response.Write ("selected")
		Response.Write ">Courier"
		Response.Write "                New</OPTION>"
		Response.Write "                <OPTION value=""Georgia"" "
		If RS("MarkFontName") = "Georgia" Then Response.Write ("selected")
		Response.Write ">Georgia</OPTION>"
		Response.Write "                <OPTION value=""Impact"" "
		If RS("MarkFontName") = "Impact" Then Response.Write ("selected")
		Response.Write ">Impact</OPTION>"
		Response.Write "                <OPTION value=""Tahoma"" "
		If RS("MarkFontName") = "Tahoma" Then Response.Write ("selected")
		Response.Write ">Tahoma</OPTION>"
		Response.Write "                <OPTION value=""Times New Roman"" "
		If RS("MarkFontName") = "Times New Roman" Then Response.Write ("selected")
		Response.Write ">Times"
		Response.Write "                New Roman</OPTION>"
		Response.Write "                <OPTION value=""Trebuchet MS"" "
		If RS("MarkFontName") = "Trebuchet MS" Then Response.Write ("selected")
		Response.Write ">Trebuchet"
		Response.Write "                MS</OPTION>"
		Response.Write "                <OPTION value=""Script MT Bold"" "
		If RS("MarkFontName") = "Script MT Bold" Then Response.Write ("selected")
		Response.Write ">Script"
		Response.Write "                MT Bold</OPTION>"
		Response.Write "                <OPTION value=""Stencil"" "
		If RS("MarkFontName") = "Stencil" Then Response.Write ("selected")
		Response.Write ">Stencil</OPTION>"
		Response.Write "                <OPTION value=""Verdana"" "
		If RS("MarkFontName") = "Verdana" Then Response.Write ("selected")
		Response.Write ">Verdana</OPTION>"
		Response.Write "                <OPTION value=""Lucida Console"" "
		If RS("MarkFontName") = "Lucida Console" Then Response.Write ("selected")
		Response.Write ">Lucida"
		Response.Write "                Console</OPTION>"
		Response.Write "            </SELECT> </td>"
		Response.Write "          </tr>"
		Response.Write "          <tr bgcolor=""#FFFFFF"">"
		Response.Write "            <td height=""26"" align=""right"" bgcolor=""#EEF8FE"">字体是否粗体:</td>"
		Response.Write "            <td bgcolor=""#EEF8FE""> <SELECT name=""MarkFontBond"" id=""MarkFontBond"">"
		Response.Write "                <OPTION value=0 "
		If RS("MarkFontBond") = "0" Then Response.Write ("selected")
		Response.Write ">否</OPTION>"
		Response.Write "                <OPTION value=1 "
		If RS("MarkFontBond") = "1" Then Response.Write ("selected")
		Response.Write ">是</OPTION>"
		Response.Write "            </SELECT> </td>"
		Response.Write "          </tr>"
		Response.Write "          </table>"
		Response.Write "          </td>"
		Response.Write "          </tr>"
		Response.Write "          <tr>"
		Response.Write "           <td colspan=""2"">"
		Response.Write "           <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#efefef"" id=""picarea"">"
		Response.Write "          <tr bgcolor=""#FFFFFF"">"
		Response.Write "            <td width=""27%"" height=""26"" align=""right"" bgcolor=""#EEF8FE"">LOGO图片:<br> </td>"
		Response.Write "            <td width=""70%"" bgcolor=""#EEF8FE""> <INPUT TYPE=""text"" NAME=""MarkPicture"" size=40 value=""" & RS("MarkPicture") & """>"
		Response.Write "            <input  type='button' name='Submit' value='选择图片地址...' onClick=""OpenThenSetValue('../Dialog/SelectPic.asp?Currpath=" & CurrPath & "',550,290,window,document.form.MarkPicture);""></td>"
		Response.Write "          </tr>"
		Response.Write "          <tr bgcolor=""#FFFFFF"">"
		Response.Write "            <td height=""26"" align=""right"" bgcolor=""#EEF8FE"">LOGO图片透明度:</td>"
		Response.Write "            <td bgcolor=""#EEF8FE""> <INPUT TYPE=""text"" NAME=""MarkOpacity"" size=10 value="""
		If Left(RS("MarkOpacity"), 1) = "." Then Response.Write ("0" & RS("MarkOpacity")) Else Response.Write (RS("MarkOpacity"))
		Response.Write """>"
		Response.Write "            如50%请填写0.5 </td>"
		Response.Write "          </tr>"
		Response.Write "          <tr bgcolor=""#FFFFFF"">"
		Response.Write "            <td height=""26"" align=""right"" bgcolor=""#EEF8FE"">图片去除底色:</td>"
		Response.Write "            <td bgcolor=""#EEF8FE""> <INPUT TYPE=""text"" NAME=""MarkTranspColor"" ID=""MarkTranspColor"" maxlength = 7 size = 7 value=""" & RS("MarkTranspColor") & """>"
		Response.Write "              <input type=""button"" name=""button1"" value=""选择颜色..."" onClick=""OpenThenSetValue('../Dialog/SelectColor.asp',230,190,window,document.form.MarkTranspColor);document.form.MarkTranspColor.style.color=document.form.MarkTranspColor.value;"">"
		Response.Write "            保留为空则水印图片不去除底色。 </td>"
		Response.Write "          </tr>"
		Response.Write "          <tr bgcolor=""#FFFFFF"">"
		Response.Write "            <td height=""26"" align=""right"" bgcolor=""#EEF8FE"">图片坐标位置:<br> </td>"
		Response.Write "            <td bgcolor=""#EEF8FE""> 　X："
		Response.Write "              <INPUT TYPE=""text"" NAME=""MarkWidth"" size=10 value=""" & RS("MarkWidth") & """>"
		Response.Write "              象素<br>"
		Response.Write "Y:"
		Response.Write "              <INPUT TYPE=""text"" NAME=""MarkHeight"" size=10 value=""" & RS("MarkHeight") & """>"
		Response.Write "            象素  </td>"
		Response.Write "          </tr>"
		Response.Write "          </table>"
		Response.Write "          </td>"
		Response.Write "          </tr>"
				  
		Response.Write "      </table></td>"
		Response.Write "    </tr>"
		Response.Write "</form>"
		Response.Write "  </table>"
		Response.Write "</body>"
		Response.Write "</html>"
		Response.Write "<div style=""text-align:center;color:#003300"">-----------------------------------------------------------------------------------------------------------</div>"
		Response.Write "<div style=""height:30px;text-align:center"">KeSion CMS V 2.2, Copyright (c) 2006-2008 <a href='http://www.kesion.com/' target=""_blank""><font color=#cc6600>KeSion.Com</font></a>. All Rights Reserved . </div>"
		RS.Close
		Set RS = Nothing
		Set Conn = Nothing
		
		
		
		Response.Write "<script language=""javascript"">"
		Response.Write "if (document.all.MarkFontColor.value!='')"
		Response.Write " document.all.MarkFontColor.style.color=document.all.MarkFontColor.value;"
		Response.Write "if (document.all.MarkTranspColor.value!='')"
		Response.Write " document.all.MarkTranspColor.style.color=document.all.MarkTranspColor.value;"
		Response.Write "function SetTypeArea(TypeID)"
		Response.Write "{"
		Response.Write " if (TypeID==1)"
		Response.Write "  {"
		Response.Write "   document.all.textarea.style.display='';"
		Response.Write "   document.all.picarea.style.display='none';"
		Response.Write "  }"
		Response.Write " else"
		Response.Write "  {"
		Response.Write "   document.all.textarea.style.display='none';"
		Response.Write "   document.all.picarea.style.display='';"
		Response.Write "  }"
		
		Response.Write "}"
		Response.Write "function ShowInfo(ComponentID)"
		Response.Write "{"
		Response.Write "    if(ComponentID == 0)"
		Response.Write "    {"
		Response.Write "        document.all.WaterMarkSetting.style.display = ""none"";"
		Response.Write "    }"
		Response.Write "    else"
		Response.Write "    {"
		Response.Write "        document.all.WaterMarkSetting.style.display = """";"
		Response.Write "    }"
		Response.Write "}"
		Response.Write "function ShowThumbInfo(ThumbComponentID)"
		Response.Write "{"
		Response.Write "    if(ThumbComponentID == 0)"
		Response.Write "    {"
		Response.Write "        document.all.ThumbSetting.style.display = ""none"";"
		Response.Write "    }"
		Response.Write "    else"
		Response.Write "    {"
		Response.Write "        document.all.ThumbSetting.style.display = """";"
		Response.Write "    }"
		Response.Write "}"
		Response.Write "function ShowThumbSetting(ThumbSettingid)"
		Response.Write "{"
		Response.Write "    if(ThumbSettingid == 0)"
		Response.Write "    {"
		Response.Write "        document.all.ThumbSetting1.style.display = ""none"";"
		 Response.Write "       document.all.ThumbSetting0.style.display = """";"
		 Response.Write "   }"
		 Response.Write "   else"
		Response.Write "    {"
		Response.Write "        document.all.ThumbSetting1.style.display = """";"
		Response.Write "        document.all.ThumbSetting0.style.display = ""none"";"
		Response.Write "    }"
		Response.Write "}"
		Response.Write "function CheckForm()"
		Response.Write "{"
		Response.Write "document.form.submit();"
		Response.Write "}"
		
		Response.Write "</script>"
		
		End Sub
End Class
%>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -