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

📄 down_param.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407 
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail  :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New Down_Param
KSCls.Execute()
Set KSCls = Nothing

Class Down_Param
        Private KSCMS
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConn()
		 Set KSCMS=Nothing
		End Sub
		Sub Execute()
			If Not KSCMS.ReturnPowerResult(3, "KMD20000") Then Call KSCMS.ReturnErr(1, "")   '下载基本参数设置权限检查
			
			Response.Write "<html>"
			Response.Write "<title>下载基本参数设置</title>"
			Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
			Response.Write "<link href=""../Inc/Admin_Style.CSS"" rel=""stylesheet"" type=""text/css"">"
			Response.Write "<script src=""../JS/Common.js"" language=""JavaScript""></script>"
			Response.Write "<style type=""text/css"">" & vbCrLf
			Response.Write "<!--" & vbCrLf
			Response.Write ".STYLE1 {color: #FF0000}" & vbCrLf
			Response.Write "-->" & vbCrLf
			Response.Write "</style>" & vbCrLf
			Response.Write "</head>"
			
			Dim RS, Action, SQLStr
			  Dim DownLb, DownYY, DownSQ, DownPT, JyDownUrl, JyDownWin, Width, Height, DownShowNum, ShowServerFlag
			Action = KSCMS.G("Action")
			SQLStr = "Select * From KS_DownParam"
			  Set RS = Server.CreateObject("Adodb.RecordSet")
			If Action = "save" Then
			  RS.Open SQLStr, conn, 1, 3
			  RS("DownLb") = KSCMS.G("DownLB")
			  RS("DownYY") = KSCMS.G("DownYY")
			  RS("DownSQ") = KSCMS.G("DownSQ")
			  RS("DownPT") = KSCMS.G("DownPT")
			  RS("Width") = KSCMS.G("Width")
			  RS("Height") = KSCMS.G("Height")
			  RS("ShowServerFlag") = KSCMS.G("ShowServerFlag")
			  RS("DownShowNum") = KSCMS.G("DownShowNum")
			  RS.Update
			  Response.Write ("<script>alert('下载参数修改成功!');</script>")
			  RS.Close
			End If
			 RS.Open SQLStr, conn, 1, 1
			  If Not RS.EOF Then
			   DownLb = RS("DownLb")
			   DownYY = RS("DownYy")
			   DownSQ = RS("DownSQ")
			   DownPT = RS("DownPT")
			   Width = RS("Width")
			   Height = RS("Height")
			   ShowServerFlag = RS("ShowServerFlag")
			   DownShowNum = RS("DownShowNum")
			  End If
			RS.Close
			If ShowServerFlag = "" Then ShowServerFlag = 0
			If DownShowNum = "" Or IsNull("DownShowNum") Then DownShowNum = 5
			
			Set RS = Nothing
			Response.Write "<body bgcolor=""#FFFFFF"" topmargin=""0"" leftmargin=""0"" scroll=yes oncontextmenu=""return false"">"
			Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
			Response.Write "  <tr>"
			Response.Write "    <td height=""25"" class=""sort"">"
			Response.Write "      <div align=""center"" ><strong>"
			Response.Write "      下载参数设置"
			Response.Write "      </strong></div></td>"
			Response.Write "  </tr>"
			Response.Write "</TABLE>"
			Response.Write "<form action=""?Action=save"" method=""post"" name=""DownParamForm"">"
			Response.Write "  <table width=""95%"" border=""0"" align=""center"" cellspacing=""1"" bgcolor=""#CDCDCD"">"
			Response.Write "    <tr>"
			Response.Write "      <td width=""100%"" height=""30"" colspan=""4"" bgcolor=""#EEF8FE"">&nbsp;<font color=""#000080""><b>软件性质自定</b></font></td>"
			Response.Write "    </tr>"
			Response.Write "    <tr>"
			Response.Write "      <td width=""25%"" height=""200"" align=""center"" bgcolor=""#EEF8FE"">设定类别：<br>"
			Response.Write "        <textarea name=""DownLb"" cols=""20"" rows=""10"" style=""border-style: solid; border-width: 1"">" & DownLb & "</textarea>"
			Response.Write "        <br>"
			Response.Write "        <span class=""STYLE1"">说明：每一个类别为一行</span><br></td>"
			Response.Write "      <td width=""25%"" align=""center"" bgcolor=""#EEF8FE"">设定语言：<br>"
			Response.Write "      <textarea name=""DownYy"" cols=""20"" rows=""10"" style=""border-style: solid; border-width: 1"">" & DownYY & "</textarea>"
			Response.Write "      <br>"
			Response.Write "      <span class=""STYLE1"">说明：每一种语言为一行</span></td>"
			Response.Write "      <td width=""25%"" align=""center"" bgcolor=""#EEF8FE"">授权形式： <br>"
			Response.Write "      <textarea name=""DownSq"" cols=""20"" rows=""10"" style=""border-style: solid; border-width: 1"">" & DownSQ & "</textarea>"
			Response.Write "        <br>"
			Response.Write "        <span class=""STYLE1"">说明：每一种授权方式为一行</span></td>"
			Response.Write "      <td width=""25%"" align=""center"" bgcolor=""#EEF8FE"">运行平台：<br>"
			Response.Write "      <textarea name=""DownPt"" cols=""20"" rows=""10"" style=""border-style: solid; border-width: 1"">" & DownPT & "</textarea>"
			Response.Write "      <br>"
			Response.Write "      <span class=""STYLE1"">说明：每一种运行平台为一行</span></td>"
			Response.Write "    </tr>"
			Response.Write "    <tr>"
			Response.Write "      <td width=""100%"" height=""30"" colspan=""4"" bgcolor=""#EEF8FE"">&nbsp;<font color=""#000080""><b>前台显示设置</b></font></td>"
			Response.Write "    </tr>"
			Response.Write "    <tr>"
			Response.Write "      <td height=""30"" colspan=""4"" bgcolor=""#EEF8FE"">　　　　　默认下载页面显示的图片大小：宽"
			Response.Write "        <input name=""Width"" id=""Width""  onBlur=""CheckNumber(this,'缩略图宽度');"" style=""border-style: solid; border-width: 1"" value=""" & Width & """ size=""8"">"
			Response.Write "      像素&nbsp;&nbsp;&nbsp;&nbsp; 高"
			Response.Write "      <input name=""Height"" id=""Height""   onBlur=""CheckNumber(this,'缩略图高度');"" style=""border-style: solid; border-width: 1"" value=""" & Height & """ size=""8"">"
			Response.Write "      像素 设置为<span class=""STYLE1"">&quot;0&quot;</span>将不设定大小 </td>"
			Response.Write "    </tr>"
			Response.Write "    <tr>"
			Response.Write "      <td height=""30"" colspan=""4"" bgcolor=""#EEF8FE"">　　　　　镜像服务器显示方式"
				 
				 If ShowServerFlag = 0 Then
				  Response.Write "<input type=""radio"" name=""ShowServerFlag"" value=""0"" checked>显示名称 "
				  Response.Write "<input type=""radio"" name=""ShowServerFlag"" value=""1"">显示图标 "
				  Else
				  Response.Write "<input type=""radio"" name=""ShowServerFlag"" value=""0"">显示名称 "
				  Response.Write "<input type=""radio"" name=""ShowServerFlag"" value=""1"" checked>显示图标 "
				  End If
			Response.Write "          </td>"
			Response.Write "    </tr>"
			Response.Write "    <tr>"
			Response.Write "      <td height=""30"" colspan=""4"" bgcolor=""#EEF8FE"">　　　　　默认下载地址每行显示数"
			Response.Write "        <input name=""DownShowNum"" id=""DownShowNum"" onBlur=""CheckNumber(this,'下载地址显示数');"" style=""border-style: solid; border-width: 1"" value=""" & DownShowNum & """ size=""8"">"
			Response.Write "      个 设置为<span class=""STYLE1"">&quot;1&quot;</span>,则显示为一列 </td>"
			Response.Write "    </tr>"
			Response.Write "  </table>"
			Response.Write "</form>"
			Response.Write "</body>"
			Response.Write "</html>"
			Response.Write "<Script Language=""javascript"">"
			Response.Write "<!--" & vbCrLf
			Response.Write "function CheckForm()" & vbCrLf
			Response.Write "{ var form=document.DownParamForm;" & vbCrLf
			Response.Write "    form.submit();" & vbCrLf
			Response.Write "    return true;" & vbCrLf
			Response.Write "}" & vbCrLf
			Response.Write "//-->"
			Response.Write "</Script>"
			
			End Sub

End Class
%>

⌨️ 快捷键说明

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