sk_config.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

<%
'********************************************************
'程序名称:小金通用采集系统
'版权所有:小金(qq:85103270)
%>
<!--#include file="inc/setup.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="Session.asp"-->
<link rel="stylesheet" type="text/css" href="css/Admin_Style.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
'----是否登陆
'Call Admin()
'If IsAdmin=false then
'	ErrMsg="<li> 您没有登陆或不是管理员。请<a href='sk_login.asp' target='_top'>登陆</a>。"
'	response.Redirect("Sk_err.asp?action=AdminErr&ErrMsg="&ErrMsg&"")
'	response.End()
'end if
'-----
Action=Trim(Request("Action"))
if action="save" then
	call SaveEdit()
else
	call Main()'显示页面
end if

'关闭数据库链接
Call CloseConnItem()

'保存
sub SaveEdit()
SqlItem="select top 1 WebName,WebUrl,WebLogo,Webabout,ArticleDir,flashdir,photoDir,alldir from SK_Config"
     	Set Rs=server.CreateObject("adodb.recordset")
     	Rs.Open SqlItem,ConnItem,3,3
		rs("WebName")=Request.Form("WebName")
		rs("WebUrl")=Request.Form("WebUrl")
		rs("WebLogo")=Request.Form("WebLogo")
		rs("Webabout")=Request.Form("Webabout")
		rs("ArticleDir")=Request.Form("ArticleDir")
		rs("flashdir")=Request.Form("flashdir")
		rs("photoDir")=Request.Form("photoDir")
		rs("allDir")=Request.Form("allDir")
		Rs.UpDate
      	Rs.Close	
	  	set rs=nothing 
		response.write "<script>alert('修改设置成功!');</script>"'关闭窗口
    	call Main()
end sub
%>



<%Sub Main()
set rs = ConnItem.execute("select top 1 WebName,WebUrl,WebLogo,Webabout,ArticleDir,flashdir,photoDir,alldir from SK_Config")
%>
<table width="97%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
<form action="?action=save" method="post">
  <tr>
    <td height="33" colspan="3" class="title"><div align="center"><span style="font-weight: bold">网站基本设置</span></div></td>
  </tr>
  <tr>
    <td colspan="3" class="title2">&nbsp;用于设置网站的基本信息。</td>
    </tr>
  
  <tr>
    <td width="18%" class="table">&nbsp;网站全称</td>
    <td colspan="2" class="table"><input name="WebName"  type="text" id="WebName" class="lostfocus" gf="0" onmouseover='this.className="getfocus"' onmouseout='if (this.gf=="0") this.className="lostfocus"' onblur='this.className="lostfocus";this.gf="0"' onfocus='this.className="getfocus";this.gf="1"'  value="<% =rs("WebName") %>" >
      （显示于首页。如：“SK通用采集系统(skxiu)”）</td>
  </tr>
  

  

  <tr>
    <td colspan="3" class="title2">&nbsp;</td>
  </tr>
  
  
  
  <tr>
    <td colspan="3" class="title"><div align="center" style="font-weight: bold">目录设置</div></td>
    </tr>
  <tr>
    <td colspan="3" class="title2">&nbsp;此设置应用于远程保存文件目录地址。<span class="table"></span></td>
    </tr>
  <tr>
    <td class="table">&nbsp;新闻文章目录</td>
    <td colspan="2" class="table"><input name="ArticleDir" type="text" class="lostfocus" id="ArticleDir" onfocus='this.className="getfocus";this.gf="1"' onblur='this.className="lostfocus";this.gf="0"' onmouseover='this.className="getfocus"' onmouseout='if (this.gf=="0") this.className="lostfocus"' value="<% =rs("ArticleDir") %>" gf="0">      
      <font class="alert">&nbsp;后面必须带"/"符号</font></td>
  </tr>
  
  <tr>
    <td class="table">&nbsp;图片目录</td>
    <td colspan="2" class="table"><input name="photoDir" type="text" class="lostfocus" id="PicDir" onfocus='this.className="getfocus";this.gf="1"' onblur='this.className="lostfocus";this.gf="0"' onmouseover='this.className="getfocus"' onmouseout='if (this.gf=="0") this.className="lostfocus"' value="<% =rs("photodir") %>" gf="0">
      <font class="alert">&nbsp;后面必须带"/"符号</font></td>
  </tr>
  <tr>
    <td class="table">自定采集目录</td>
    <td colspan="2" class="table"><input name="alldir" type="text" class="lostfocus" id="alldir" onfocus='this.className=&quot;getfocus&quot;;this.gf=&quot;1&quot;' onblur='this.className=&quot;lostfocus&quot;;this.gf=&quot;0&quot;' onmouseover='this.className=&quot;getfocus&quot;' onmouseout='if (this.gf==&quot;0&quot;) this.className=&quot;lostfocus&quot;' value="<% =rs("alldir") %>" gf="0" />
      <font class="alert">&nbsp;后面必须带&quot;/&quot;符号</font></td>
  </tr>
  
  
  
  
  
  <tr>
    <td height="50" colspan="3" class="title3"><div align="center">
      <input type="submit" name="Submit" value="提交">
    </div></td>
    </tr>
</form>
</table>
<%
end sub%>