newssearch.aspx

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Register TagPrefix="mynews" TagName="top" src="ascx/top.ascx"%>
<%@ Register TagPrefix="mynews" TagName="special" src="ascx/newslist.ascx"%>
<%@ Register TagPrefix="mynews" TagName="footer" src="ascx/footer.ascx"%>

<script language="VB" runat="server">
    Dim sql as string
    Dim myConn as OleDbConnection
    Dim myCmd as OleDbCommand
    
    Function getdataview(ByVal sql As String, ByVal strtable As String) As DataView
        Dim myDataAdapter As OleDbDataAdapter
        Dim myDataSet As DataSet
        myConn.Open()
        myDataAdapter = New OleDbDataAdapter(sql, myConn)
        myConn.Close()
        myDataSet = New DataSet()
        myDataAdapter.Fill(myDataSet, strtable)
        getdataview = New DataView(myDataSet.Tables(strtable))
    End Function
    
    Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        Dim strConn As String
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51Aspx/news.mdb"
        myConn = New OleDbConnection(strConn)
        Dim gjc As String
        gjc = Page.Request("keyword")
        sql = "select NewsID,Title,UpdateTime from News where Title like '%" & gjc & "%' or Content like '%" & gjc & "%' order by NewsID desc"
        keyword.Text = gjc
        Dim result As DataView = getdataview(sql, "newssearch")
        searchresult.DataSource = result
        searchresult.DataBind()
    End Sub
</script>

<html>
<head>
<title>新闻搜索结果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<link href="style.css" type="text/css" rel="Stylesheet"  />
<body>

<mynews:top runat="server" ID="top1" /> 
<table width="778px" border="0" align="center" cellpadding="0" cellspacing="6px">
    <tr>
        <td width="478px" valign="top">
            <table width="100%" cellpadding="2px"  cellspacing="0" style="border:1px solid #6699FF;">
                <tr>
                    <td  bgcolor="#6699FF">
您的关键词是：<font color="#FF6600"><b><asp:label ID="keyword" runat="server"/></b></font>
                    </td>
                </tr>
<asp:repeater ID="searchresult" runat="server">
    <itemtemplate>
                <tr>
                    <td>
<a href="newshow.aspx?newsid=<%# container.DataItem("NewsID")%>" target="_blank"><%# container.DataItem("Title")%></a>（<%# container.DataItem("UpdateTime")%>）