📄 newssearch.aspx
字号:
<%@ Page Language="VB" ContentType="text/html"%>
<%@ 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/speciallist.ascx"%>
<%@ Register TagPrefix="mynews" TagName="end" src="ascx/end.ascx"%>
<html>
<head>
<title>新闻搜索结果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<link rel="stylesheet" href="style.css">
<body>
<mynews:top runat="server"/>
<table width="100%" cellspacing="0" cellpadding="0" align="center"
style="BORDER-BOTTOM: #6595d6 1px solid; BORDER-LEFT: #6595d6 1px solid; BORDER-RIGHT: #6595d6 1px solid; BORDER-TOP: #6595d6 1px solid; WIDTH: 100%">
<form runat="server">
<tr>
<td valign="top"> 您输入的检索词为：<font color="#FF6600"><b>
<asp:label ID="keyword" runat="server"/></b></font><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<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")%>）</td>
</tr>
</itemtemplate>
</asp:repeater>
</table></td>
<td valign="top"><mynews:special runat="server"/></td>
</tr>
</form>
</table>
<mynews:end runat="server"/>
</body>
</html>
<script language="VB" runat="server">
Dim sql as string
Dim myConn as OleDbConnection
Dim myCmd as OleDbCommand
Function getdataview(sql as String,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(sender As Object, e As EventArgs)
Dim strConn as string
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("./")&"data/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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -