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

📄 system_siteconfig.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
			.Write "<html>"
			.Write "<title>网站基本参数设置</title>"
			.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
			.Write "<script src=""../JS/Common.js"" language=""JavaScript""></script>"
			.Write "<link href=""../Inc/Admin_Style.CSS"" rel=""stylesheet"" type=""text/css"">"
			.Write "<style type=""text/css"">"
			.Write "<!--" & vbCrLf
			.Write ".STYLE1 {color: #FF0000}" & vbCrLf
			.Write ".STYLE2 {color: #FF6600}" & vbCrLf
			.Write "-->" & vbCrLf
			.Write "</style>" & vbCrLf
			.Write "</head>" & vbCrLf
			.Write "<body bgcolor=""#FFFFFF"" oncontextmenu=""return false"" topmargin=""0"" leftmargin=""0"" scroll=yes>"
			.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
			.Write "  <tr>"
			.Write "    <td height=""25"" class=""sort"">"
			.Write "      <div align=""center"" ><strong>"
				
				   Select Case SetType
					Case 1
					 .Write ("基本信息设置")
					Case 2
					 .Write ("目录信息设置")
					Case 3
					 .Write ("附加选项设置")
					Case 4
					 .Write ("开关选项设置")
					Case 5
					 .Write ("会员选项设置")
					Case 6
					 .Write ("留言选项设置")
					Case 7
					 .Write ("RSS选项设置")
					End Select
					
			.Write "      </strong></div></td>"
			.Write "  </tr>"
			.Write "</TABLE>"
			.Write "<table border=""0"" width=""100%""><tr><td height=""2""></td></tr></table>"
			.Write "  <table "
			If SetType <> 1 Then .Write (" style=""display:none""")
			.Write "width=""95%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#CDCDCD"">"
			.Write "  <form name=SetWebInfoForm method=post action="""" onSubmit=""return(CheckForm())"">"
			.Write "<input type=""hidden"" value=""Edit"" name=""Action"">"
			.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" onMouseOver=""this.style.background='#fffff9'"" onMouseOut=""this.style.background='#EEF8FE'"">"
			.Write "      <td width=""32%"" height=""30""> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <div align=""right"">网站名称：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
			.Write "        </div></td>"
			.Write "      <td width=""63%"" height=""30""> <input name=""WebName"" type=""text"" id=""WebName"" value=""" & RS("WebName") & """ size=""30"">      </td>"
			.Write "    </tr>"
			.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" onMouseOver=""this.style.background='#fffff9'"" onMouseOut=""this.style.background='#EEF8FE'"">"
			 .Write "     <td height=""30""> <div align=""right"">网站标题：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
			 .Write "       </div></td>"
			 .Write "     <td height=""30""> <input name=""WebTitle"" type=""text"" id=""WebTitle"" value=""" & RS("WebTitle") & """ size=""30""></td>"
			 .Write "   </tr>"
			 .Write "   <tr valign=""middle"" bgcolor=""#EEF8FE""  onMouseOver=""this.style.background='#fffff9'"" onMouseOut=""this.style.background='#EEF8FE'"">"
			  .Write "    <td width=""32%"" height=""30""> <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
			 .Write "         <tr>"
			 .Write "           <td align=""right"">网站地址：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </td>"
			 .Write "         </tr>"
			 .Write "         <tr>"
			 .Write "           <td align=""center""><font color=""#FF0000"">系统会自动获得正确的路径，但需要手工保存设置</font></td>"
			 .Write "         </tr>"
			  .Write "      </table></td>"
			  .Write "    <td height=""30""> <input name=""WebUrl"" type=""text""  value=""" &KSCMS.GetAutoDomain & """ size=""30"">"
			  .Write "      (请使用http://标识),后面不要带&quot;/&quot;符号 </td>"
			 .Write "   </tr>"
			 .Write "   <tr valign=""middle"" bgcolor=""#EEF8FE"" onMouseOver=""this.style.background='#fffff9'"" onMouseOut=""this.style.background='#EEF8FE'"">"
			 .Write "     <td width=""32%"" height=""30""> <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
			 .Write "         <tr>"
			 .Write "           <td align=""right"">安装目录：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </td>"
			 .Write "         </tr>"
			  .Write "        <tr>"
			  .Write "          <td align=""center""><font color=""#FF0000"">系统会自动获得正确的路径，但需要手工保存设置</font></td>"
			  .Write "        </tr>"
			  .Write "      </table></td>"
			 .Write "     <td height=""30""> <input name=""InstallDir"" type=""text"" id=""InstallDir""  value=""" & InstallDir & """ readonly size=30>"
			 .Write "       系统安装的虚拟目录</td>"
			 .Write "   </tr>"
			 .Write "   <tr valign=""middle"" bgcolor=""#EEF8FE"" onMouseOver=""this.style.background='#fffff9'"" onMouseOut=""this.style.background='#EEF8FE'"">"
			 .Write "     <td height=""30""><div align=""right"">网站Logo地址：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</div></td>"
			  .Write "    <td height=""30""><input name=""WebLogo"" type=""text"" id=""WebLogo""   value=""" & RS("WebLogo") & """ size=30>"
			  .Write "      申请友情链接时显示给用户</td>"
			 .Write "   </tr>"
			 .Write "   <tr valign=""middle"" bgcolor=""#EEF8FE"" onMouseOver=""this.style.background='#fffff9'"" onMouseOut=""this.style.background='#EEF8FE'"">"
			 .Write "     <td width=""32%"" height=""30"">"
			 .Write "       <div align=""right"">生成的网站首页：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </div><div algin=center><font color=blue>扩展名为.asp，首页将不启用生成静态HTML的功能</font></div></td>"
				.Write "  <td height=""30""> <input type=""radio"" name=""IndexFile"" value=""Index"" "
				
				If FsoIndexFile = "Index" Then .Write (" checked")
				.Write ">"
				.Write "    Index"
				.Write "    <input type=""radio"" name=""IndexFile"" value=""Default"" "
				If FsoIndexFile = "Default" Then .Write (" checked")
				.Write ">"
				.Write "    Default"
				.Write "    <select name=""FsoIndexExt"" id=""select"">"
				.Write "      <option value="".htm"" "
				If FsoIndexExt = "htm" Then .Write ("selected")
				.Write ">.htm</option>"
				.Write "      <option value="".html"" "
				If FsoIndexExt = "html" Then .Write ("selected")
				.Write ">.html</option>"
				.Write "      <option value="".shtml"" "
				If FsoIndexExt = "shtml" Then .Write ("selected")
				.Write ">.shtml</option>"
				.Write "      <option value="".shtm"" "
				If FsoIndexExt = "shtm" Then .Write ("selected")
				.Write ">.shtm</option>"
				.Write "      <option value="".asp"" "
				If FsoIndexExt = "asp" Then .Write ("selected")
				.Write ">.asp</option>"
				.Write "    </select></td>"
				.Write "</tr>"
				.Write "<tr valign=""middle"" bgcolor=""#EEF8FE"" onMouseOver=""this.style.background='#fffff9'"" onMouseOut=""this.style.background='#EEF8FE'"">"
				.Write "  <td height=""30""><div align=""right"">默认允许上传最大文件大小：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </div></td>"
				.Write "  <td height=""30""><input name=""DefaultUpFilesSize"" onBlur=""CheckNumber(this,'允许上传最大文件大小');"" type=""text"" id=""DefaultUpFilesSize""   value=""" & RS("DefaultUpFilesSize") & """ size=15>"
			.Write "KB 　 <span class=""STYLE2"">提示：1 KB = 1024 Byte，1 MB = 1024 KB</span></td>"
			.Write "    </tr>"
			.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" onMouseOver=""this.style.background='#fffff9'"" onMouseOut=""this.style.background='#EEF8FE'"">"
			.Write "      <td height=""30""><div align=""right"">默认允许上传文件类型：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </div></td>"
			.Write "      <td height=""30""><input name=""DefaultAllowUpFilesType"" type=""text"" id=""DefaultAllowUpFilesType""   value=""" & RS("DefaultAllowUpFilesType") & """ size=30></td>"
			.Write "    </tr>"
			.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" onMouseOver=""this.style.background='#fffff9'"" onMouseOut=""this.style.background='#EEF8FE'"">"
			.Write "      <td width=""32%"" height=""30"">"
			.Write "        <div align=""right"">站长姓名：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;"
			.Write "          <div align=""right""></div>"
			.Write "        </div></td>"
			.Write "      <td height=""30""> <input name=""Webmaster"" type=""text""   value=""" & RS("Webmaster") & """ size=30></td>"
			.Write "    </tr>"
			.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" onMouseOver=""this.style.background='#fffff9'"" onMouseOut=""this.style.background='#EEF8FE'"">"
			.Write "      <td width=""32%"" height=""30"">&nbsp;"
			.Write "        <div align=""right"">站长信箱：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; </div></td>"
			.Write "      <td height=""30""> <input name=""WebmasterEmail"" type=""text""  value=""" & RS("WebmasterEmail") & """ size=30></td>"
			.Write "    </tr>"
			.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" onMouseOver=""this.style.background='#fffff9'"" onMouseOut=""this.style.background='#EEF8FE'"">"
			.Write "      <td height=""30""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
			.Write "        <tr>"
			.Write "          <td align=""right"">SMTP服务器地址:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; </td>"
			.Write "        </tr>"
			.Write "        <tr>"
			.Write "          <td align=""center""><span class=""STYLE1"">用来发送邮件的SMTP服务器<BR>"
			.Write "          如果你不清楚此参数含义，请联系你的空间商</span></td>"
			.Write "        </tr>"
			.Write "      </table></td>"
			.Write "      <td height=""30""><input name=""MailServer"" type=""text"" id=""MailServer""  value=""" & RS("MailServer") & """ size=30></td>"
			.Write "    </tr>"
			.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" onMouseOver=""this.style.background='#fffff9'"" onMouseOut=""this.style.background='#EEF8FE'"">"
			.Write "      <td height=""30""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
			.Write "        <tr>"
			.Write "          <td align=""right"">SMTP登录用户名:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; </td>"
			.Write "        </tr>"
			.Write "        <tr>"
			.Write "          <td align=""center""><span class=""STYLE1"">当你的服务器需要SMTP身份验证时还需设置此参数</span></td>"
			.Write "        </tr>"
			.Write "      </table></td>"
			.Write "      <td height=""30""><input name=""MailUserName"" type=""text"" id=""MailUserName""  value=""" & RS("MailUserName") & """ size=30></td>"
			.Write "    </tr>"
			.Write "    <tr valign=""middle"" bgcolor=""#EEF8FE"" onMouseOver=""this.style.background='#fffff9'"" onMouseOut=""this.style.background='#EEF8FE'"">"
			.Write "      <td height=""30""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
			.Write "        <tr>"
			.Write "          <td align=""right"">SMTP登录密码:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; </td>"
			.Write "        </tr>"
			.Write "        <tr>"
			.Write "          <td align=""center""><span class=""STYLE1"">当你的服务器需要SMTP身份验证时还需设置此参数</span></td>"
			.Write "        </tr>"
			.Write "      </table></td>"
			.Write "      <td height=""30""><input name=""MailUserPass"" type=""password"" id=""MailUserPass""  value=""" & RS("MailUserPass") & """ size=30></td>"
			.Write "    </tr>"
			 .Write "     <tr valign=""middle"" bgcolor=""#EEF8FE"" onMouseOver=""this.style.background='#fffff9'"" onMouseOut=""this.style.background='#EEF8FE'"">"
			 .Write "     <td width=""32%"" height=""30""> &nbsp;&nbsp; <div align=""right"">版权信息：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
			 .Write "         <br>"
			 .Write "         <font color=""#FF0000""> 支持html语法&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </font></div></td>"
			  .Write "    <td height=""30""> <textarea name=""Copyright"" cols=""60"" rows=""5"" id=""textarea"">" & RS("Copyright") & "</textarea></td>"
			 .Write "   </tr>"
			 .Write " </table>"
			 
			 '=====================================================会员注册参数配置开始=========================================
			 
			 .Write "  <table "
			If SetType <> 5 Then .Write (" style=""display:none""")
			.Write "width=""95%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#CDCDCD"">"
			.Write "    <tr valign=""middle""　 bgcolor=""#EEF8FE"" onMouseOver=""this.style.background='#fffff9'"" onMouseOut=""this.style.background='#EEF8FE'"">"
			.Write "      <td width=""32%"" height=""21"">&nbsp;&nbsp;"
			.Write "        <div align=""right"">是否允许新会员注册：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </div></td>"
			.Write "      <td height=""21""> <input name=""UserRegTF"" type=""radio"" id=""UserRegTF""  value=""1"""
			 If RS("UserRegTF")=1 Then .Write " Checked"
			 .Write ">是"
			 .Write "&nbsp;&nbsp;<input name=""UserRegTF"" type=""radio"" id=""UserRegTF""  value=""0"""
			 If RS("UserRegTF")=0 Then .Write " Checked"
			 .Write ">否"
			 .Write "</td>"
			
			.Write "    <tr valign=""middle""　 bgcolor=""#EEF8FE"" onMouseOver=""this.style.background='#fffff9'"" onMouseOut=""this.style.background='#EEF8FE'"">"
			.Write "      <td width=""32%"" height=""21"">&nbsp;&nbsp;"
			.Write "        <div align=""right""><strong>新会员注册服务条款和声明：</strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br><br> </div><div align=center>标签说明：<br>{$GetSiteName}：网站名称<br>{$GetSiteUrl}：网站URL<br>{$GetWebmaster}：站长<br>{$GetWebmasterEmail}：站长信箱<div></td>"
			.Write "      <td height=""21""><textarea name=""RegLicense"" cols=""60"" rows=""7"" id=""RegLicense"">" & RS("RegLicense") & "</textarea>"
12345

⌨️ 快捷键说明

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