Shamim832
پنج شنبه 24 تیر 1389, 22:52 عصر
مهندسین عزیز سلام وخسته نباشید من برای وب سایتم می خواستم یه قسمتی بزارم که لیست لینک های مفید به صورت متحرک ازپایین به بالا حرکت کنن اما یه قسمتی از کدم اشکال داره می تونید کمکم کنید تا رفعش کنم؟
<tr>
<td style="vertical-align:top; line-height:normal;" class ="boxsep ">
<%=Mysite.SDKClass.Links_LinksList()%>
</td>
</tr>
Public Shared Function Links_LinksList() As String
Dim con As New SqlConnection
Dim com As New SqlCommand
Dim Reader As SqlDataReader
Dim Marquee As String = ""
Dim Name As String
Dim Address As String
con.ConnectionString = "server=localhost;Database=MyDataBase;Integrated Security=True"
com.Connection = con
com.CommandType = CommandType.Text
com.CommandText = "Select Address,Name,LinkID From Link where AcceptLink=1"
con.Open()
Reader = com.ExecuteReader
Marquee = "<marquee onmouseover=\"Me.stop()\" onmouseout=\"Me.start()\" direction=\"up\" scrolldelay=\"1\" scrollamount=\"1\" style=\"Width:100%;Height:100%;padding:3px;\">"
If Reader.HasRows = True Then
While Reader.Read()
Address = Reader("Address").ToString()
Name = Reader("Name").ToString()
Marquee += String.Format("<p align=\"center\"><a href=\"{0}\" target=\"_blank\" >{1}</a></p>", Address, Name)
End While
Else
Marquee += "<p align=\"center\" > تاکنون لینکی در سایت ثبت نشده است </p>"
End If
Marquee += "</marquee>"
con.Close()
Reader.Close()
Return Marquee
End Function
البته اینم بگم که اینها همان کدهای آقای فتح الهی هستن که من به دات نت تبدیل کردم ولی اون قسمتی که اشاره کردم رو نمیدونم چطوری درست کنم
<tr>
<td style="vertical-align:top; line-height:normal;" class ="boxsep ">
<%=Mysite.SDKClass.Links_LinksList()%>
</td>
</tr>
Public Shared Function Links_LinksList() As String
Dim con As New SqlConnection
Dim com As New SqlCommand
Dim Reader As SqlDataReader
Dim Marquee As String = ""
Dim Name As String
Dim Address As String
con.ConnectionString = "server=localhost;Database=MyDataBase;Integrated Security=True"
com.Connection = con
com.CommandType = CommandType.Text
com.CommandText = "Select Address,Name,LinkID From Link where AcceptLink=1"
con.Open()
Reader = com.ExecuteReader
Marquee = "<marquee onmouseover=\"Me.stop()\" onmouseout=\"Me.start()\" direction=\"up\" scrolldelay=\"1\" scrollamount=\"1\" style=\"Width:100%;Height:100%;padding:3px;\">"
If Reader.HasRows = True Then
While Reader.Read()
Address = Reader("Address").ToString()
Name = Reader("Name").ToString()
Marquee += String.Format("<p align=\"center\"><a href=\"{0}\" target=\"_blank\" >{1}</a></p>", Address, Name)
End While
Else
Marquee += "<p align=\"center\" > تاکنون لینکی در سایت ثبت نشده است </p>"
End If
Marquee += "</marquee>"
con.Close()
Reader.Close()
Return Marquee
End Function
البته اینم بگم که اینها همان کدهای آقای فتح الهی هستن که من به دات نت تبدیل کردم ولی اون قسمتی که اشاره کردم رو نمیدونم چطوری درست کنم