📄 corn.aspx
字号:
<%@ Page Language="VB" %>
<%@ Register TagPrefix="gb" TagName="top" Src="lib/inctop.ascx" %>
<%@ Register TagPrefix="gb" TagName="footer" Src="lib/incfooter.ascx" %>
<%@ import Namespace="system.data" %>
<%@ import Namespace="system.data.oledb" %>
<script runat="server">
Function getcorntittle() As System.Data.IDataReader
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; data source="+server.MapPath("data/date.mdb")
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
Dim queryString As String = "SELECT [corn].[corn_tittle],[corn].[corn_id] FROM [corn]"
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
dbConnection.Open
Dim dataReader As System.Data.IDataReader = dbCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
Return dataReader
End Function' Insert page code here
dim SelectedTeam as String
Sub Page_Load()
corntittlelist.DataSource =getcorntittle()
corntittlelist.DataBind()
End Sub
</script>
<html>
<head>
<link href="../site_css.css" type="text/css" rel="stylesheet" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
</head>
<body>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="../site_css.css" type="text/css" rel="stylesheet" /></head>
<form runat="server">
<gb:top id="UserControl1" runat="server"></gb:top>
<div align="center">
<table cellspacing="0" cellpadding="0" width="767" border="0">
<!--DWLayoutTable-->
<tbody>
<tr>
<td width="18" height="10">
</td>
<td width="236"></td>
<td width="12"></td>
<td width="12">
</td>
<td valign="top" width="480" rowspan="5">
<asp:Repeater id="corntittlelist" runat="server" Visible="true">
<ItemTemplate>
<p>
<img src="images/PO.GIF"> <a target="_blank" href="corncontent.aspx?corn_id=<%# container.dataitem("corn_id")%>"><%#container.dataitem("corn_tittle")%></a>
</p>
</ItemTemplate>
<HeaderTemplate>
<br />
<div align="center"><img width="480" src="images/gif3.gif" />
</div>
</HeaderTemplate>
<FooterTemplate>
<div align="center">
<hr color="#b0c4bc" width="480px" />
</div>
</FooterTemplate>
</asp:Repeater>
</td>
<td width="9">
</td>
</tr>
<tr>
<td height="190"></td>
<td valign="top"><div align="center"><img src="images/photo/029.jpg" width="134" height="159"></div></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="15"></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="24" colspan="3" valign="top"><hr color="#b0c4bc" width="266px" /></td>
<td> </td>
<td></td>
</tr>
<tr>
<td colspan="3" rowspan="2" valign="top">
<p align="center">
</p> <p align="center">
<asp:HyperLink id="HyperLink1" runat="server" CommandName="Showtittle" href="corn.aspx">种植关键技术</asp:HyperLink>
</p> <p align="center">
<asp:HyperLink id="HyperLink2" runat="server">智能决策</asp:HyperLink>
</p> <p align="center">
<asp:HyperLink id="HyperLink3" runat="server">专家论坛</asp:HyperLink>
</p> <p align="center">
<asp:HyperLink id="HyperLink4" runat="server" href="guestbookcorn.aspx">在线答疑</asp:HyperLink>
</p></td>
<td height="113"></td>
<td></td>
</tr>
<tr>
<td height="63" colspan="2" valign="top">
<div align="center">
<object codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" height="61" width="456" classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000">
<param name="_cx" value="12065" />
<param name="_cy" value="1614" />
<param name="FlashVars" value="" />
<param name="Movie" value="myflah02.swf" />
<param name="Src" value="myflah02.swf" />
<param name="WMode" value="Window" />
<param name="Play" value="-1" />
<param name="Loop" value="-1" />
<param name="Quality" value="High" />
<param name="SAlign" value="" />
<param name="Menu" value="-1" />
<param name="Base" value="" />
<param name="AllowScriptAccess" value="always" />
<param name="Scale" value="ShowAll" />
<param name="DeviceFont" value="0" />
<param name="EmbedMovie" value="0" />
<param name="BGColor" value="" />
<param name="SWRemote" value="" />
<param name="MovieData" value="" />
<embed src="myflah02.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="456" height="61"></embed>
</object>
</div>
</td>
<td>
</td>
</tr>
</tbody>
</table>
</div>
<gb:footer id="UserControl2" runat="server"></gb:footer>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -