📄 cabbage.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 getcabbagetittle() 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 [cabbage].[cabbage_tittle],[cabbage].[cabbage_id] FROM [cabbage]"
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()
cabbagetittlelist.DataSource =getcabbagetittle()
cabbagetittlelist.DataBind()
End Sub
</script>
<html>
<head>
<!-- TemplateBeginEditable name="head" -->
<!-- TemplateEndEditable -->
<style type="text/css">
<!--
.style4 {color: #FF0000; font-size: medium;}
-->
</style>
</head>
<body>
<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="30" height="218">
</td>
<td width="220" valign="top"><div align="center"><img src="images/photo/030.jpg" width="150" height="138"></div></td>
<td width="22"> </td>
<td width="11">
</td>
<td valign="top" width="480" rowspan="3">
<asp:Repeater id="cabbagetittlelist" runat="server" Visible="true">
<ItemTemplate>
<p>
<img src="images/PO.GIF"> <a target="_blank" href="cabbagecontent.aspx?cabbage_id=<%# container.dataitem("cabbage_id")%>"><asp:Label runat="server" title="more" ><%#container.dataitem("cabbage_tittle")%></asp:Label> </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="4">
</td>
</tr>
<tr>
<td height="21" 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="cabbage.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="guestbookcabbage.aspx">在线答疑</asp:HyperLink>
</p></td>
<td height="118"></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 + -