Blackk_lightt
سه شنبه 13 فروردین 1387, 15:28 عصر
سلام.
به نظر شما مشگل این کد چیه ؟
<%
Dim conGEFP As SqlConnection
Dim cmdSelect As SqlCommand
Dim dtr As SqlDataReader
conGEFP = New SqlConnection("Server=localhost;uid=Mehdi;pwd=Wicked;database=GEF P ")
conGEFP.Open()
cmdSelect = New SqlCommand("Select * From News ", conGEFP)
dtr = cmdSelect.ExecuteReader()
Dim StrKhabar AsString
Dim StrUrl AsString
Dim StrTitr AsString
While dtr.Read()
StrKhabar = dtr("khabar")
StrTitr = dtr("Titr")
StrUrl = "Khabar.aspx?T=" & StrTitr
Response.Write("<center>" & StrTitr & "</center><br/>")
If StrKhabar.Length > 50 Then
Response.Write("<a href=" & StrUrl & ">" & StrKhabar.Substring(0, 50) & "</a>....<br/><hr/>")
Else
Response.Write("<a href=" & StrUrl & ">" & StrKhabar & "</a><br/><hr/>")
EndIf
EndWhile
dtr.Close()
conGEFP.Close()
%>
برای تیترهای عددی درست کار میکنه.
ولی اگه غیر عددی باشه Url این طوری میشه:
=Khabar.ASPX?T
چرا ؟!!!:عصبانی++::عصبانی++::عصبانی ++:
به نظر شما مشگل این کد چیه ؟
<%
Dim conGEFP As SqlConnection
Dim cmdSelect As SqlCommand
Dim dtr As SqlDataReader
conGEFP = New SqlConnection("Server=localhost;uid=Mehdi;pwd=Wicked;database=GEF P ")
conGEFP.Open()
cmdSelect = New SqlCommand("Select * From News ", conGEFP)
dtr = cmdSelect.ExecuteReader()
Dim StrKhabar AsString
Dim StrUrl AsString
Dim StrTitr AsString
While dtr.Read()
StrKhabar = dtr("khabar")
StrTitr = dtr("Titr")
StrUrl = "Khabar.aspx?T=" & StrTitr
Response.Write("<center>" & StrTitr & "</center><br/>")
If StrKhabar.Length > 50 Then
Response.Write("<a href=" & StrUrl & ">" & StrKhabar.Substring(0, 50) & "</a>....<br/><hr/>")
Else
Response.Write("<a href=" & StrUrl & ">" & StrKhabar & "</a><br/><hr/>")
EndIf
EndWhile
dtr.Close()
conGEFP.Close()
%>
برای تیترهای عددی درست کار میکنه.
ولی اگه غیر عددی باشه Url این طوری میشه:
=Khabar.ASPX?T
چرا ؟!!!:عصبانی++::عصبانی++::عصبانی ++: