📄 index.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"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 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 Guest_Default
KSCls.Execute()
Set KSCls = Nothing

Class Guest_Default
        Private KSCMS
		Private MaxPerPage, TotalPut , CurrentPage, TotalPage, i, j, Loopno
	    Private KeyWord, SearchType,GuestCheckTF,SqlStr
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConn()
		 Set KSCMS=Nothing
		End Sub
	Public Sub Execute()
	GuestCheckTF=KSCMS.GetConfig("GuestCheckTF")
	KeyWord = KSCMS.ReplaceBadChar(Trim(KSCMS.G("keyword")))
	SearchType = KSCMS.ReplaceBadChar(Trim(KSCMS.G("SearchType")))
%>
<html>
<head>
<title><%=KSCMS.GetConfig("WebName")%>-雁过留声</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="<%=KSCMS.GetConfig("InstallDir")%>Skin/Style.css" type="text/css">
</head>
<body>
<TABLE cellSpacing=0 cellPadding=0 width=770 align=center bgColor=#ffffff border=0>
  <TBODY>
    <TR>
      <TD><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
          <TR>
            <TD width="1%"><IMG height=32 src="/Skin/Skin1/05top_02.gif" width=11 twffan="done"></TD>
            <TD width="59%" background=/Skin/Skin1/05top_03.gif>当前位置：<a href="<%=KSCMS.GetDomain%>"><%=KSCMS.GetConfig("WebName")%></a> >> 雁过留声</TD>
            <TD vAlign=bottom align=right width=300 background=/Skin/Skin1/05top_05.gif>&nbsp;</TD>
            <TD width="1%"><IMG height=32 src="/Skin/Skin1/05top_08.gif" width=10 twffan="done"></TD>
          </TR>
        </TBODY>
      </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
  <tbody> 
  <tr> 
    <td valign="top">
      <table cellspacing=0 cellpadding=0 width=100% border=0>
        <tbody> 
        <tr> 
          <td valign=top> 
            <table cellspacing=0 cellpadding=0 width="100%" align=center border=0>
              <tbody>
                <tr>
                  <td height="40" background="Images/Title.gif" style="padding-left:60; font-size:16px; font-weight:bold; color:#FF6600">　雁过留声</td>
                </tr>
              </tbody>
            </table>
            <table cellspacing=0 cellpadding=0 width="96%" align=center border=0>
              <tbody> 
              <tr> 
                <td valign="top">
                  <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
                    <tr>
                      <td height="25" align="right"><img src="images/gbook.gif" width="18" height="18" border="0" align="absmiddle"> <a href="Index.asp">查看留言</a> <a href="GuestBook.asp"><img src="images/weite.gif" border="0" width="18" height="14"> 签写留言</a></td>
                    </tr>
					<%If GuestCheckTF = 1 Then%>
                    <tr>
                      <td height="25"><span style="line-height:150%; padding:10px 10px 10px 10px;"><font color="#cc0000"><b>留 言 需 知</b></font>：本站留言需要经过审核才能显示，请大家耐心等待，站长会在第一时间给你回复，发布留言时请不要重复发布。</span></td>
                    </tr>
					<%End IF%>
                    <tr> 
                      <td> <br>
                        <table width="100%" border="0" cellpadding="0" cellspacing="0" class="TableBar">
                          <form name="search" method="post" action="Index.asp">
                            <tr>
                              <td height="25">留言搜索 --&gt;&gt;&gt; 关键词：
                                <input type="text" name="keyword" class="inputtext" size="35" value="<%=KeyWord%>" onMouseOver=this.focus() onFocus=this.select()>
                                  <select name="SearchType" size="1" class="inputlist">
                                    <option value="content" <%If SearchType = "content" Then Response.Write "selected"%>>留言内容</option>
                                    <option value="author" <%If SearchType = "author" Then Response.Write "selected"%>>留 言 者</option>
                                  </select>
								  <input type="image" border="0" name="imageField" src="images/search_2.gif" align="absmiddle"></td>
                            </tr>
                          </form>
                        </table>
                        <br>
<% Dim RSObj:Set RSObj=Server.CreateObject("Adodb.RecordSet")
	If GuestCheckTF = 0 Then
		If SearchType = "content" Then
			SqlStr = "SELECT * From KS_GuestBook WHERE Memo LIKE '%"& KeyWord &"%' or Anser LIKE '%"& KeyWord &"%' ORDER BY ID DESC" 
		Else
			SqlStr = "SELECT * From KS_GuestBook WHERE Name LIKE '%"& KeyWord &"%' ORDER BY ID DESC"
		End If
	Else
		If SearchType = "content" Then
			SqlStr = "SELECT * From KS_GuestBook WHERE (Memo LIKE '%"& KeyWord &"%' or Anser LIKE '%"& KeyWord &"%') AND Verific =1 ORDER BY ID DESC"  
		Else
			SqlStr = "SELECT * From KS_GuestBook WHERE Name LIKE '%"& KeyWord &"%' AND Verific =1 ORDER BY ID DESC" 
		End If
	End If
	RSObj.Open SqlStr,Conn,1,1
	
	Dim Pmcount
	Pmcount = KSCMS.GetConfig("GuestListNum")
	If KSCMS.ChkClng(Pmcount) < 1 Then Pmcount = 10

	RSObj.Pagesize = Pmcount
	TotalPut = RSObj.RecordCount	'记录总数 
	TotalPage = RSObj.PageCount	    '得到总页数
	MaxPerPage = RSObj.PageSize	    '设置每页数
		
	CurrentPage = KSCMS.ChkClng(KSCMS.G("Page"))
	
	If CDbl(CurrentPage) < 1 Then CurrentPage = 1
	If CDbl(CurrentPage) > CDbl(TotalPage) Then CurrentPage = TotalPage

	If RSObj.Eof or RSObj.Bof Then 
		Response.Write "<font color=#FF0000>暂时还没有任何留言！</font>"
	Else
		RSObj.Absolutepage = CurrentPage	'将指针移至指定页的第一条记录
		Loopno = MaxPerPage
		i = 0
Do While Not RSObj.Eof and Loopno > 0
%>                   
<table width="100%" border="1" cellspacing="0" cellpadding="2" align="center" bordercolordark="#FFFFFF" bordercolorlight="#DDDDDD" style="word-break:break-all;font-family: Arial, Helvetica, sans-serif;">
  <tr>
    <td width="100" align="center" bgcolor="#F5F5F5" rowspan="3" ><font face="Arial, Helvetica, sans-serif">第<font color="#FF0000"><%=((TotalPut)-(MaxPerPage)*(CurrentPage-1))-i%></font>条留言<br>
          <img src="../Skin/Face/<%=RSObj("Face")%>"><br>
      </font>
        <table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
          <tr>
            <td align="center"><font face="Arial, Helvetica, sans-serif"><%=RSObj("Name")%></font></td>
          </tr>
      </table></td>
    <td height="25" valign="middle"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="49%"><img src="images/post.gif" width="24" height="24" align="absmiddle">访客留言</td>
        <td width="51%" align="right">
          <%If RSObj("HomePage") <> "" and RSObj("HomePage") <> "http://" Then%>
          <a href="<%=RSObj("HomePage")%>" target="_blank"><img src="images/home.gif" width="16" height="16" border="0" align="absmiddle" alt="主页:[ <%=RSObj("HomePage")%> ]"></a>
          <%Else%>
          <a href="#"><img src="images/home-gray.gif" width="16" height="16" border="0" align="absmiddle" alt="主页"></a>
          <%End If%>
          |
          <%If RSObj("Email") <> "" Then%>
          <a href="mailto:<%=RSObj("Email")%>" target="_blank"><img src="images/email.gif" width="18" height="18" border="0" align="absmiddle" alt="电子邮件:[ <%=RSObj("Email")%> ]"></a>
          <%Else%>
          <a href="#"><img src="images/email-gray.gif" width="18" height="18" border="0" align="absmiddle" alt="电子邮件"></a>
          <%End If%>
          |
          <%If RSObj("Oicq") <> "" and RSObj("Oicq") <> "0" Then%>
          <a href="#"><img src="images/qq.gif" width="16" height="16" border="0" align="absmiddle" alt="QQ号码:[ <%=RSObj("Oicq")%> ]"></a>
          <%Else%>
          <a href="#"><img src="images/qq-gray.gif" width="16" height="16" border="0" align="absmiddle" alt="QQ号码"></a>
          <%End If%>
          |
          <%If RSObj("GuestIP") <> "" Then%>
          <a href="#"><img src="images/ip.gif" width="16" height="16" border="0" align="absmiddle" alt="来自：[ <%=RSObj("GuestIP")%> ]"></a>
          <%Else%>
          <a href="#"><img src="images/ip-gray.gif" width="16" height="16" border="0" align="absmiddle" alt="来自："></a>
          <%End If%>          &nbsp; </td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td height="45"><img src="../Skin/Face1/<%=RSObj("TxtHead")%>" align="absmiddle" >&nbsp;<%=RSObj("Memo")%> </td>
  </tr>
  <tr>
    <td height="20" align="right">发表时间：<% = RSObj("AddTime") %>&nbsp; </td>
  </tr>
  <% If RSObj("Anser") <> ""  Then%>
  <tr>
    <td width="100" align="center" bgcolor="#F5F5F5" >斑竹回复：</td>
    <td><img src="../Skin/Face1/<%=RSObj("AdminHead")%>" align="absmiddle" >&nbsp;<font color=red><%=RSObj("Anser")%></font><div align=right>回复时间：&nbsp;<%=RSObj("AnserTime")%></div></td>
  </tr>
  <%End If%>
</table>
<br>
<%
	RSObj.MoveNext
	Loopno = Loopno-1
	i = i+1
	Loop
End if
RSObj.Close
Set RSObj=Nothing
%>
<table border="1" width="100%" cellspacing="0" cellpadding="0"  align="center" bgcolor="#F5F5F5"  bordercolordark="#FFFFFF" bordercolorlight="#DDDDDD">
  <tr>
      <td align="center">
	   <%
	       '显示分页信息
		 Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "", True, "条留言", CurrentPage, "keyword=" & KeyWord &"&SearchType=" & SearchType)
	  %>
	  </td>
  </tr>
</table>
<p>&nbsp;</p></td>
                    </tr>
                  </table>                </td>
              </tr>
              </tbody> 
            </table>          </td>
        </tr>
        </tbody> 
      </table>    </td>
  </tr>
  </tbody> 
</table>
<table height="37" cellspacing="0" cellpadding="0" width="770" align="center" bgcolor="#ffffff" background="/Skin/Skin1/but05_bg.gif" border="0">
  <tbody>
    <tr>
      <td width="19" background="/Skin/Skin1/k_bg_left.gif" bgcolor="#ffa200"><img height="37" src="/Skin/Skin1/but05_left.gif" width="19" /></td>
      <td align="left" width="278" height="37"><a href="http://www.kesion.com">关于我们</a> | <a href="http://bbs.kesion.com">技术论坛</a> | <a href="http://www.kesion.com" target="_blank">官方站点</a> </td>
      <td class="fil" align="right" width="459">科汛网络 &copy; 版权所有  2006-2008 Powered By <a href="http://www.kesion.coM" target="_blank"><font color="#FF0000">KeSion.Com</font></a> <br />
      </td>
      <td align="middle" width="14"><img height="37" src="/Skin/Skin1/but05_right.gif" width="12" /></td>
    </tr>
  </tbody>
</table>
</table>
<%
   End Sub
End Class%>
💿 文件大小 9756 K
👤 上传用户 BO__1
📂 所属分类 Java编程
🏷️ 相关标签

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

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