📄 index.aspx
字号:
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Register TagPrefix="mynews" TagName="top" src="ascx/top.ascx"%>
<%@ Register TagPrefix="mynews" TagName="end" src="ascx/end.ascx"%>
<%@ Register TagPrefix="mynews" TagName="search" src="ascx/search.ascx"%>
<html>
<head>
<title>新闻列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<style type=text/css>
body {COLOR: #000000; FONT-SIZE: 14px}
td {COLOR: #000000; FONT-SIZE: 14px}
.a { color: #9A1B1B}
a:hover { color: #9A1B1B}
a:link {color: #9A1B1B; text-decoration:none}
a:visited { color: #9A1B1B; text-decoration:none}
..cnav { color: #9A1B1B}
a.cnav:hover { color: #9A1B1B}
a.cnav:link {color: #9A1B1B; text-decoration:none}
a.cnav:visited { color: #9A1B1B; text-decoration:none}
..location { color: #0000}
a.location:hover { color: #000000}
a.location:link {color: #000000; text-decoration:none}
a.location:visited { color: #000000; text-decoration:none}
..tomg { color: black; font-size:14px}
a.tomg:hover { color: #FF0000}
a.tomg:link {color: black; text-decoration:none}
a.tomg:visited { color: black; text-decoration:none}
</style>
<body bgcolor="#FFFFFF" text="#000000">
<mynews:top runat="server"/>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td><mynews:search runat="server"/></td></tr>
<tr>
<td align="center" background="pic/forumHeaderBackground.gif"><font color="#FFFFFF">新闻专题</font></td>
</tr>
<tr>
<td><TABLE align=center cellPadding=0 cellSpacing=0
style="BORDER-BOTTOM: #6595d6 1px solid; BORDER-LEFT: #6595d6 1px solid; BORDER-RIGHT: #6595d6 1px solid; BORDER-TOP: #6595d6 0px solid; WIDTH: 100%">
<TR>
<TD width="100%"><asp:datagrid ID="specialnews" runat="server" AutoGenerateColumns="False"
BorderColor="Black" BorderWidth="0" GridLines="Both" AllowPaging="false" DataKeyField="SpecialID" ShowHeader="false">
<columns>
<asp:hyperlinkcolumn DataTextField="SpecialName"
DataNavigateUrlField="SpecialID" DataNavigateUrlFormatString="special.aspx?specialid={0}&fangshi=zhuanti"/>
</columns></asp:datagrid></td></tr></table></td>
</tr>
</table></td>
<td width="50%" valign="top"><table cellpadding="0" cellspacing="0">
<%sql="select * from bigclass"
Dim bgreader as OleDbDataReader =getdatareader(sql)
while bgreader.Read()
%>
<tr>
<td align="left"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="pic/bg2.gif">::<a class="location" href="special.aspx?bigclassid=<%=bgreader.Item(0)%>&fangshi=fenlei"><%=bgreader.Item(1)%></a>::</td>
</tr>
<%dv=new DataView(dtSet.Tables(0))
dv.RowFilter="BigClassID="&bgreader.Item(0)
newsgrid.DataSource=dv
newsgrid.DataBind()%>
<tr>
<td><asp:DataGrid id="newsgrid" runat="server" AutoGenerateColumns="False"
BorderColor="Black" BorderWidth="0" GridLines="Both" AllowPaging="false" DataKeyField="NewsID" ShowHeader="false">
<Columns>
<asp:HyperLinkColumn DataTextField="Title"
DataNavigateUrlField="NewsID" DataNavigateUrlFormatString="newshow.aspx?newsid={0}"/>
</Columns>
</asp:DataGrid> </td>
</tr>
</table></td>
</tr>
<tr><td align="right"><a href="special.aspx?bigclassid=<%=bgreader.Item(0)%>&fangshi=fenlei">more>></a></td></tr>
<%End while
myConn.close()%>
</table></td>
<td width="47%" valign="top"> </td>
</tr>
</table></td>
</tr>
<tr>
<td><mynews:end runat="server"/></td>
</tr>
</table>
</body>
</html>
<script Language="VB" runat="server">
Dim sql as String
Dim myconn as OleDbConnection
Dim myCmd,newscmd as OleDbCommand
Dim dtCmd as OleDbDataAdapter
Dim dtSet as DataSet
Dim dv as DataView
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)
if not page.ispostback then
sql="select top 10 * from Special order by SpecialID desc"
dim zhuantiview as DataView=getdataview(sql,"zhuanti")
specialnews.DataSource=zhuantiview
specialnews.DataBind
Dim riqi as Date=dateadd("d",-7,today())
sql="select NewsID,BigClassID,Title,UpdateTime from News where UpdateTime>#" & riqi & "# order by UpdateTime DESC"
dtCmd=new OleDbDataAdapter(sql,myConn)
dtSet=new DataSet
dtCmd.Fill(dtSet)
end if
End Sub
Function getdatareader(str as String) as OleDbDataReader
myCmd=New OleDbCommand(str,myConn)
myConn.open()
getdatareader=myCmd.ExecuteReader()
End Function
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
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -