ایجاد لینک باکس - نسخه قابل چاپ

کد:
<%@ Page Language=VB Debug=true %>

<%@ Import Namespace="System.Data" %>

<%@ Import Namespace="System.Data.OLEDB" %>

<script runat=server>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

    Dim DBConn as OleDbConnection

    Dim DBCommand As OleDbDataAdapter

    Dim DSPageData as New DataSet

    DBConn = New OleDbConnection( _

        "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _

        & "DATA SOURCE=" _

        & Server.MapPath _

        ("LinksDB.mdb;"))

    DBConn = New OleDbConnection( _

        "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _

        & "DATA SOURCE=" _

        & Server.MapPath _

        ("esme_banket.mdb;"))

    DBCommand = New OleDbDataAdapter _

        ("Select '<A HREF=""' & Feild_addrese_morede_nazaret & '"">' " _

        & "& Feild_Onvane_linket & '</A>' as [Link], " _

        & "feild_tozih as [Description] From Links " _

        & "Order By LinkTitle", DBConn)



    DBCommand.Fill(DSPageData, _

        "Links")

    dgLinks.DataSource = _

        DSPageData.Tables("Links").DefaultView

    dgLinks.DataBind()

End Sub

</SCRIPT>

<HTML>

<HEAD>

<TITLE>Links Page</TITLE>

</HEAD>

<Body LEFTMARGIN="40">

<form id="Form1" runat="server">

<BR><BR>

<asp:label 

    id="lblMessage1" 

    font-size="12pt"

    font-bold="True"

    font-name="Lucida Console"

    text="Current Links List"

    runat="server"

/>

<BR><BR>

<asp:datagrid

    id="dgLinks" 

    runat="server" 

    autogeneratecolumns="True"

/>

<BR><BR>

<A HREF="./addlink.aspx">Add a Link</A>

</form>

</BODY>

</HTML>