📄 down_serveradd.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_ServerAdd
KSCls.Execute()
Set KSCls = Nothing

Class Down_ServerAdd
        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()
		Dim DownServerID, RSObj, SQLStr, ServerLogo, ServerName, ServerUrl, Hidden, CurrPath
		Dim Action, Page
		CurrPath = KSCMS.ReturnChannelUpFilesDir(3)
		If Not KSCMS.ReturnPowerResult(3, "KMD20004") Then
		  Response.Write ("<script>parent.frames['BottomFrame'].location.href='javascript:history.back();';</script>")
		  Call KSCMS.ReturnErr(1, "")
		End If
		Hidden = 0
		Action = Request.QueryString("Action")
		Page = Request.QueryString("Page")
		If Page = "" Then Page = 1
		If Action = "Edit" Then
			DownServerID = Request("DownServerID")
			Set RSObj = Server.CreateObject("Adodb.RecordSet")
			Set RSObj = Server.CreateObject("Adodb.Recordset")
			SQLStr = "SELECT * FROM KS_DownServer Where ID=" & DownServerID
			RSObj.Open SQLStr, conn, 1, 1
			  ServerName = RSObj("ServerName")
			  ServerUrl = RSObj("ServerUrl")
			  ServerLogo = RSObj("ServerLogo")
			  Hidden = RSObj("Hidden")
			RSObj.Close
			Set RSObj = Nothing
		Else
		  Action = "Add"
		End If
		
		Response.Write "<html>"
		Response.Write "<head>"
		Response.Write "<meta http-equiv=""ServerLogo-Type"" ServerLogo=""text/html; charset=gb2312"">"
		Response.Write "</head>"
		Response.Write "<script src=""../JS/Common.js"" language=""JavaScript""></script>"
		Response.Write "<link href=""../inc/Admin_Style.CSS"" rel=""stylesheet"" type=""text/css"">"
		Response.Write "<body bgcolor=""#FFFFFF"" leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">"
		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 name=DownServerForm method=post action=""Down_ServerAddSave.asp"">"
		Response.Write "<table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
		Response.Write "   <input type=""hidden"" name=""Action"" value=""" & Action & """>"
		Response.Write "   <input type=""hidden"" name=""DownServerID"" value=""" & DownServerID & """>"
		Response.Write "   <input type=""hidden"" name=""Page"" value=""" & Page & """>"
		Response.Write "    <tr>"
		Response.Write "      <td height=""100"" valign=""top""><br>"
		Response.Write "        <br>"
		Response.Write "        <table width=""74%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
		Response.Write "          <tr>"
		Response.Write "            <td height=""25"">服务器名称:"
		Response.Write "              <input name=""ServerName"" type=""text"" id=""ServerName"" value=""" & ServerName & """ class=""textbox"" style=""width:300"">"
		Response.Write "              如：福建下载、上海下载等</td>"
		Response.Write "          </tr>"
		Response.Write "          <tr>"
		Response.Write "            <td height=""25"">服务器地址:"
		Response.Write "              <input name=""ServerUrl"" type=""text"" id=""ServerUrl""  value=""" & (ServerUrl) & """ class=""textbox"" style=""width:300"">"
		Response.Write "              绝对地址：如：http://www.h121.com/</td>"
		Response.Write "          </tr>"
		Response.Write "          <tr>"
		Response.Write "         <td valign=""top"">服务器图标:"
		Response.Write "           <input type=""text"" name=""ServerLogo"" ID=""ServerLogo"" value=""" & ServerLogo & """  class=""textbox"" style=""width:300""><input  type='button' name='Submit' value='选择图标地址...' onClick=""OpenThenSetValue('../Dialog/SelectPic.asp?ChannelID=2&CurrPath=" & CurrPath & "/DownPhoto',550,290,window,document.DownServerForm.ServerLogo);""></td>"
		Response.Write "          </tr>"
		Response.Write "          <tr>"
		Response.Write "            <td height=""25"">服务器状态:"
		Response.Write "              <input name=""Hidden"" type=""radio"" id=""Hidden"" value=""0"" "
		
		If Hidden = 0 Then Response.Write (" checked")
		
		Response.Write ">"
		Response.Write "              启用"
		Response.Write "              <input name=""Hidden"" type=""radio"" id=""Hidden"" value=""1"" "
		
		If Hidden = 1 Then Response.Write (" checked")
		
		Response.Write ">"
		Response.Write "              不启用"
		Response.Write "            </td>"
		Response.Write "          </tr>"
		Response.Write "        </table>"
		Response.Write "      </td></tr>"
		Response.Write "</table>"
		Response.Write "  </form>"
		Response.Write "</body>"
		Response.Write "</html>"
		Response.Write "<script language=""JavaScript"">" & vbCrLf
		Response.Write "<!--" & vbCrLf
		Response.Write "function CheckForm()" & vbCrLf
		Response.Write "{ var form=document.DownServerForm;" & vbCrLf
		Response.Write "  if (form.ServerName.value=='')" & vbCrLf
		Response.Write "   {" & vbCrLf
		Response.Write "    alert('请输入服务器名称!');"
		Response.Write "    form.ServerName.focus();"
		Response.Write "    return false;"
		Response.Write "   }" & vbCrLf
		Response.Write "   if (form.ServerUrl.value=='')"
		Response.Write "   {" & vbCrLf
		Response.Write "    alert('请输入服务器地址!');"
		Response.Write "    form.ServerUrl.focus();"
		Response.Write "    return false;"
		Response.Write "   }" & vbCrLf
		   
		Response.Write "   form.submit();"
		Response.Write "   return true;" & vbCrLf
		Response.Write "}"
		Response.Write "//-->"
		Response.Write "</script>"
		Set conn = Nothing
		End Sub
End Class
%>
💿 文件大小 9756 K
👤 上传用户 BO__1
📂 所属分类 Java编程
🏷️ 相关标签

#shtml #ASPX #html #采集
⌨️ 快捷键说明

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