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

📄 system_channelconfig.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
		.Write "关闭</td>"
		.Write "    </tr>"

		.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" >"
		.Write "      <td height=""30""> <div align=""right"">本模块生成静态HTML功能总开关：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
		.Write "      </div></td>"
		.Write "      <td height=""30""><input type=""radio"" name=""FsoHtmlTF"" value=""1"" "
		If RS("FsoHtmlTF") = 1 Then .Write (" checked")
		.Write ">"
		.Write "生成"
		.Write "  <input type=""radio"" name=""FsoHtmlTF"" value=""0"" "
		If RS("FsoHtmlTF") = 0 Then .Write (" checked")
		.Write ">"
		.Write "不生成</td>"
		.Write "    </tr>"


		.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" >"
		.Write "      <td height=""30""><div align=""right"">管理员是否允许上传文件：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </div></td>"
		.Write "      <td height=""30""><input type=""radio"" name=""UpFilesTF"" value=""1"" "
		If RS("UpFilesTF") = 1 Then .Write (" checked")
		.Write ">"
		.Write "允许"
		.Write "  <input type=""radio"" name=""UpFilesTF"" value=""0"""
		If RS("UpFilesTF") = 0 Then .Write (" checked")
		.Write ">"
		.Write "  不允许</td>"
		.Write "    </tr>"
		.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" >"
		.Write "      <td height=""30""> <div align=""right"">后台文件上传目录：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
		.Write "        </div></td>"
		.Write "      <td width=""63%"" height=""30""> <input name=""UpfilesDir"" type=""text"" id=""UpfilesDir"" value=""" & RS("UpfilesDir") & """ size=""30""></td>"
		.Write "    </tr>"
		
		.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" >"
		.Write "      <td height=""30""><div align=""right"">是否允许会员上传文件：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </div></td>"
		.Write "      <td height=""30""><input type=""radio"" name=""UserUpFilesTF"" value=""1"" "
		If RS("UserUpFilesTF") = 1 Then .Write (" checked")
		.Write ">"
		.Write "允许"
		.Write "  <input type=""radio"" name=""UserUpFilesTF"" value=""0"""
		If RS("UserUpFilesTF") = 0 Then .Write (" checked")
		.Write ">"
		.Write "  不允许</td>"
		.Write "    </tr>"
		.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" >"
		.Write "      <td height=""30""> <div align=""right"">会员文件上传目录：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
		.Write "        </div></td>"
		.Write "      <td width=""63%"" height=""30""> <input name=""UserUpfilesDir"" type=""text"" id=""UserUpfilesDir"" value=""" & RS("UserUpfilesDir") & """ size=""30""></td>"
		.Write "    </tr>"
		
		.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" >"
		.Write "      <td height=""30""><div align=""right"">是否允许会员选择上传文件：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </div></td>"
		.Write "      <td height=""30""><input type=""radio"" name=""UserSelectFilesTF"" value=""1"" "
		If RS("UserSelectFilesTF") = 1 Then .Write (" checked")
		.Write ">"
		.Write "允许"
		.Write "  <input type=""radio"" name=""UserSelectFilesTF"" value=""0"""
		If RS("UserSelectFilesTF") = 0 Then .Write (" checked")
		.Write ">"
		.Write "  不允许</td>"
		.Write "    </tr>"
		
		.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" >"
		.Write "      <td width=""25%"" height=""30""> <div align=""right"">允许上传的最大文件大小：&nbsp;&nbsp;&nbsp;&nbsp;"
		.Write "        </div></td>"
		.Write "      <td height=""30""><input name=""UpfilesSize""  onBlur=""CheckNumber(this,'允许上传最大文件大小');"" type=""text"" id=""UpfilesSize"" value=""" & RS("UpfilesSize") & """ size=""10"">"
		.Write "      KB 　 <span class=""STYLE2"">提示：1 KB = 1024 Byte，1 MB = 1024 KB</span></td>"
		.Write "    </tr>"
		.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"">"
		.Write "      <td height=""30""><div align=""right"">允许上传的文件类型：<STRONG>&nbsp;&nbsp;&nbsp;&nbsp;</STRONG><BR>"
		.Write "          <span class=""STYLE1"">多种文件类型之间以""|""分隔</span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</div></td>"
		.Write "      <td height=""30""><table width=""98%"" border=""0"">"
		.Write "        <tr>"
		.Write "          <td width=""19%"" height=""25"" align=""right"">图片类型:</td>"
		.Write "          <td width=""81%""><input name=""AllowUpPhotoType"" type=""text"" id=""AllowUpPhotoType"" value=""" & RS("AllowUpPhotoType") & """ size=""30""></td>"
		.Write "        </tr>"
		.Write "        <tr>"
		.Write "          <td height=""25"" align=""right"">Flash 文件:</td>"
		.Write "          <td><input name=""AllowUpFlashType"" type=""text"" id=""AllowUpFlashType"" value=""" & RS("AllowUpFlashType") & """ size=""30""></td>"
		.Write "        </tr>"
		.Write "        <tr>"
		.Write "          <td height=""25"" align=""right"">Windows 媒体: </td>"
		.Write "          <td><input name=""AllowUpMediaType"" type=""text"" id=""AllowUpMediaType"" value=""" & RS("AllowUpMediaType") & """ size=""30""></td>"
		.Write "        </tr>"
		.Write "        <tr>"
		.Write "          <td height=""25"" align=""right"">Real 媒体: </td>"
		.Write "          <td><input name=""AllowUpRealType"" type=""text"" id=""AllowUpRealType"" value=""" & RS("AllowUpRealType") & """ size=""30""></td>"
		.Write "        </tr>"
		.Write "        <tr>"
		.Write "          <td height=""25"" align=""right"">其它文件:</td>"
		.Write "          <td><input name=""AllowUpOtherType"" type=""text"" id=""AllowUpOtherType"" value=""" & RS("AllowUpOtherType") & """ size=""30""></td>"
		.Write "        </tr>"
		.Write "      </table></td>"
		.Write "    </tr>"
		
		
		.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" >"
		.Write "      <td height=""30""> <div align=""right"">会员"& TempStr& "增加的金钱：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
		.Write "        </div></td>"
		.Write "      <td width=""63%"" height=""30""> <input name=""UserAddMoney"" type=""text"" id=""UserAddMoney"" value=""" & RS("UserAddMoney") & """ size=""6"">元人民币（为0时不增加）只有通过后台审核的才增加</td>"
		.Write "    </tr>"
		
		.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" >"
		.Write "      <td height=""30""> <div align=""right"">会员"& TempStr& "增加的点券：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
		.Write "        </div></td>"
		.Write "      <td width=""63%"" height=""30""> <input name=""UserAddPoint"" type=""text"" id=""UserAddPoint"" value=""" & RS("UserAddPoint") & """ size=""6"">点点券（为0时不增加）只有通过后台审核的才增加</td>"
		.Write "    </tr>"
		
		.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" >"
		.Write "      <td height=""30""> <div align=""right"">会员"& TempStr& "增加的积分：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
		.Write "        </div></td>"
		.Write "      <td width=""63%"" height=""30""> <input name=""UserAddScore"" type=""text"" id=""UserAddScore"" value=""" & RS("UserAddScore") & """ size=""6"">分积分（为0时不增加）只有通过后台审核的才增加</td>"
		.Write "    </tr>"

		
		.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"">"
		.Write "      <td width=""25%"" height=""30"">"
		.Write "        <div align=""right"">后台鼠标经过是否显示缩略图：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </div></td>"
		.Write "      <td height=""30""> <input type=""radio"" name=""ShowThumbsTF"" value=""1"" "
		If RS("ShowThumbsTF") = 1 Then .Write (" checked")
		.Write ">"
		.Write "        是"
		.Write "          <input type=""radio"" name=""ShowThumbsTF"" value=""0"" "
		If RS("ShowThumbsTF") = 0 Then .Write (" checked")
		.Write ">"
		.Write "          否        </td>"
		.Write "    </tr>"
		.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"">"
		.Write "      <td width=""25%"" height=""30"">"
		.Write "        <div align=""right"">网友评论是否需要审核：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </div></td>"
		.Write "      <td height=""30""> <input type=""radio"" name=""VerificCommentTF"" value=""1"" "
		If RS("VerificCommentTF") = 1 Then .Write (" checked")
		.Write ">"
		.Write "        是"
		.Write "          <input type=""radio"" name=""VerificCommentTF"" value=""0"" "
		If RS("VerificCommentTF") = 0 Then .Write (" checked")
		.Write ">"
		.Write "          否        </td>"
		.Write "    </tr>"
		.Write "</form>"
		.Write "  </table>"
		Response.Write "<div style=""text-align:center;color:#aa3300"">------------------------------------------------------------------------------------------------------------</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>"
		
		.Write "</body>"
		.Write "</html>"
		.Write "<Script Language=""javascript"">"
		.Write "<!--" & vbCrLf
		.Write "function CheckForm()" & vbCrLf
		.Write "{ var form=document.SetChannelInfoForm;"
		  
		.Write "    form.submit();"
		.Write "    return true;"
		
		.Write "}"
		.Write "//-->"
		.Write "</Script>"
		
		RS.Close:Set RS = Nothing:Set Conn = Nothing
		 End With
		End Sub
		
End Class
%>
12

⌨️ 快捷键说明

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