代码如下 我想判断companyyx里面有没有值 如果有前台显示一张图片 没有前台显示另一张图 麻烦大家帮帮忙 详细告诉我怎么写后台代码
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim add As String
Dim idd = Convert.ToString(Request.QueryString("BigClassName"))
Dim page = Convert.ToString(Request.QueryString("page"))
Dim ds As DataSet = New DataSet
Dim myconn As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("connectionString"))
Dim adapter As SqlDataAdapter = New SqlDataAdapter("Select * from CompanyContent where MlbigClassName='" & idd & "' and shenhe=0 order by times Desc", myconn)
If Companyyx = "" Then
tp = "111"
Else
tp = "222"
End If
adapter.Fill(ds, "Orders")
Dim pp As New PagedDataSource
pp.DataSource = ds.Tables("Orders").DefaultView
pp.AllowPaging = True
pp.PageSize = 50
Dim nPageCount As Integer '保存总共的数据页面数目
Dim a = ds.Tables("Orders").Rows.Count '保存记录总数
Dim nPage As Integer '存放要浏览当前数据页面号
If pp.PageCount Mod pp.PageSize > 0 Then
nPageCount = a \ pp.PageSize
nPageCount += 1
End If
nPage = Convert.ToInt32(Request.QueryString("Page"))
If Request.QueryString("Page") < 1 Then
nPage = 1
End If
If Request.QueryString("Page") > nPageCount Then
nPage = nPageCount
End If
pp.CurrentPageIndex = nPage - 1
'lblPageCount.Text = "总共" & a.ToString() + "条纪录"
page = (" " & "页次:" & nPage.ToString() & "/" & nPageCount.ToString())
page += (" <A HREF = """ & Request.CurrentExecutionFilePath & "?BigClassName=" & idd & "&page=" & (1).ToString() & """>首 页 </A >")
' If Not pp.IsFirstPage Then
page += (" <A HREF = """ & Request.CurrentExecutionFilePath & "?BigClassName=" & idd & "&page=" & Convert.ToString(nPage - 1) & """ >上一页</A > ")
' End If
' If Not pp.IsLastPage Then
page += ("<A HREF =""" & Request.CurrentExecutionFilePath & "?BigClassName=" & idd & "&page=" & Convert.ToString(nPage + 1) & """ >下一页</A > ")
' End If
page += ("<A HREF = """ & Request.CurrentExecutionFilePath & "?BigClassName=" & idd & "&page=" & (nPageCount).ToString() & """ >尾 页</A >")
dstmsg.DataSource = pp
dstmsg.DataBind()
End Sub
前台读
<asp:DataList ID="dstmsg" runat="server" BorderColor="ActiveBorder" BorderStyle="None">
<itemtemplate>
<table width="974" border="0" cellpadding="0" cellspacing="0" background="image/bj01.gif">
<tr>
<td width="23" height="20" align="center"><input type="checkbox" value="checkbox" name="checkbox8211"></td>
<td width="67" height="20" align="center"><span class="STYLE3"><span title='<%# Container.DataItem( "run" ).ToString() %>年<%# Container.DataItem( "ruy" ).ToString() %>月<%# Container.DataItem( "rur" ).ToString() %>日'><%# Left(DataBinder.Eval(Container.DataItem,"run").ToString(),4)%>-<%# Left(DataBinder.Eval(Container.DataItem,"ruy").ToString(),4)%></span></td>
<td width="191" height="20"><span class="STYLE3"> <a href='gsjj.aspx?companyid=<%# DataBinder.Eval(Container.DataItem, "companyid") %>'title='<%# Container.DataItem( "companyname" ).ToString() %>' target="_blank"><%# Left(DataBinder.Eval(Container.DataItem,"companyname").ToString(),14)%></a></span></td>
<td width="73" height="20" align="center"><span class="STYLE21"><span title='<%# Container.DataItem( "Companydd" ).ToString() %>'><%# Left(DataBinder.Eval(Container.DataItem,"Companydd").ToString(),5)%></span></span></td>
<td width="73" height="20" align="center"><span class="STYLE3"><span title='<%# Container.DataItem( "companyfr" ).ToString() %>'> <%# Container.DataItem( "companyfr" ).ToString() %></span></span></td>
<td width="72" height="20" align="center"><span class="STYLE3"><span title='<%# Container.DataItem( "companytel" ).ToString() %>'><%# Left(DataBinder.Eval(Container.DataItem,"companytel").ToString(),7)%></span></span></td>
<td width="74" height="20" align="center"><span class="STYLE3"><span title='<%# Container.DataItem( "companycz" ).ToString() %>'><%# Left(DataBinder.Eval(Container.DataItem,"companycz").ToString(),7)%></span></span></td>
<td width="72" height="20" align="center"><span class="STYLE3"><span title='<%# Container.DataItem( "MlbigClassName" ).ToString() %>'><%# container.dataitem("MlbigClassName").ToString()%></span></span></td>
<td width="74" height="20" align="center"><span class="STYLE3"><span title='<%# Container.DataItem( "companylx" ).ToString() %>'><%# Left(DataBinder.Eval(Container.DataItem,"companylx").ToString(),4)%></span></span></td>
<td width="72" height="20" align="center"><span class="STYLE3"><span title='<%# Container.DataItem( "gueimo" ).ToString() %>'><%# Left(DataBinder.Eval(Container.DataItem,"gueimo").ToString(),6)%></span></span></td>
<td width="73" height="20" align="center" valign="middle"><span class="STYLE3"><span title='<%# Container.DataItem( "companyrs" ).ToString() %>'><%# Left(DataBinder.Eval(Container.DataItem,"companyrs").ToString(),7)%></span></span></td>
<td width="74" height="20" align="center" valign="top"><img src="image/qq.gif" width="54" height="15"></td>
<td width="36" height="20" align="center"><a href="mailto:<%# Container.DataItem( "companyyx" ).ToString() %>"></a><%# Container.DataItem( "companyyx" ).ToString() %>
</TD></TR></TABLE></ITEMTEMPLATE></ASP:DATALIST>
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim add As String
Dim idd = Convert.ToString(Request.QueryString("BigClassName"))
Dim page = Convert.ToString(Request.QueryString("page"))
Dim ds As DataSet = New DataSet
Dim myconn As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("connectionString"))
Dim adapter As SqlDataAdapter = New SqlDataAdapter("Select * from CompanyContent where MlbigClassName='" & idd & "' and shenhe=0 order by times Desc", myconn)
If Companyyx = "" Then
tp = "111"
Else
tp = "222"
End If
adapter.Fill(ds, "Orders")
Dim pp As New PagedDataSource
pp.DataSource = ds.Tables("Orders").DefaultView
pp.AllowPaging = True
pp.PageSize = 50
Dim nPageCount As Integer '保存总共的数据页面数目
Dim a = ds.Tables("Orders").Rows.Count '保存记录总数
Dim nPage As Integer '存放要浏览当前数据页面号
If pp.PageCount Mod pp.PageSize > 0 Then
nPageCount = a \ pp.PageSize
nPageCount += 1
End If
nPage = Convert.ToInt32(Request.QueryString("Page"))
If Request.QueryString("Page") < 1 Then
nPage = 1
End If
If Request.QueryString("Page") > nPageCount Then
nPage = nPageCount
End If
pp.CurrentPageIndex = nPage - 1
'lblPageCount.Text = "总共" & a.ToString() + "条纪录"
page = (" " & "页次:" & nPage.ToString() & "/" & nPageCount.ToString())
page += (" <A HREF = """ & Request.CurrentExecutionFilePath & "?BigClassName=" & idd & "&page=" & (1).ToString() & """>首 页 </A >")
' If Not pp.IsFirstPage Then
page += (" <A HREF = """ & Request.CurrentExecutionFilePath & "?BigClassName=" & idd & "&page=" & Convert.ToString(nPage - 1) & """ >上一页</A > ")
' End If
' If Not pp.IsLastPage Then
page += ("<A HREF =""" & Request.CurrentExecutionFilePath & "?BigClassName=" & idd & "&page=" & Convert.ToString(nPage + 1) & """ >下一页</A > ")
' End If
page += ("<A HREF = """ & Request.CurrentExecutionFilePath & "?BigClassName=" & idd & "&page=" & (nPageCount).ToString() & """ >尾 页</A >")
dstmsg.DataSource = pp
dstmsg.DataBind()
End Sub
前台读
<asp:DataList ID="dstmsg" runat="server" BorderColor="ActiveBorder" BorderStyle="None">
<itemtemplate>
<table width="974" border="0" cellpadding="0" cellspacing="0" background="image/bj01.gif">
<tr>
<td width="23" height="20" align="center"><input type="checkbox" value="checkbox" name="checkbox8211"></td>
<td width="67" height="20" align="center"><span class="STYLE3"><span title='<%# Container.DataItem( "run" ).ToString() %>年<%# Container.DataItem( "ruy" ).ToString() %>月<%# Container.DataItem( "rur" ).ToString() %>日'><%# Left(DataBinder.Eval(Container.DataItem,"run").ToString(),4)%>-<%# Left(DataBinder.Eval(Container.DataItem,"ruy").ToString(),4)%></span></td>
<td width="191" height="20"><span class="STYLE3"> <a href='gsjj.aspx?companyid=<%# DataBinder.Eval(Container.DataItem, "companyid") %>'title='<%# Container.DataItem( "companyname" ).ToString() %>' target="_blank"><%# Left(DataBinder.Eval(Container.DataItem,"companyname").ToString(),14)%></a></span></td>
<td width="73" height="20" align="center"><span class="STYLE21"><span title='<%# Container.DataItem( "Companydd" ).ToString() %>'><%# Left(DataBinder.Eval(Container.DataItem,"Companydd").ToString(),5)%></span></span></td>
<td width="73" height="20" align="center"><span class="STYLE3"><span title='<%# Container.DataItem( "companyfr" ).ToString() %>'> <%# Container.DataItem( "companyfr" ).ToString() %></span></span></td>
<td width="72" height="20" align="center"><span class="STYLE3"><span title='<%# Container.DataItem( "companytel" ).ToString() %>'><%# Left(DataBinder.Eval(Container.DataItem,"companytel").ToString(),7)%></span></span></td>
<td width="74" height="20" align="center"><span class="STYLE3"><span title='<%# Container.DataItem( "companycz" ).ToString() %>'><%# Left(DataBinder.Eval(Container.DataItem,"companycz").ToString(),7)%></span></span></td>
<td width="72" height="20" align="center"><span class="STYLE3"><span title='<%# Container.DataItem( "MlbigClassName" ).ToString() %>'><%# container.dataitem("MlbigClassName").ToString()%></span></span></td>
<td width="74" height="20" align="center"><span class="STYLE3"><span title='<%# Container.DataItem( "companylx" ).ToString() %>'><%# Left(DataBinder.Eval(Container.DataItem,"companylx").ToString(),4)%></span></span></td>
<td width="72" height="20" align="center"><span class="STYLE3"><span title='<%# Container.DataItem( "gueimo" ).ToString() %>'><%# Left(DataBinder.Eval(Container.DataItem,"gueimo").ToString(),6)%></span></span></td>
<td width="73" height="20" align="center" valign="middle"><span class="STYLE3"><span title='<%# Container.DataItem( "companyrs" ).ToString() %>'><%# Left(DataBinder.Eval(Container.DataItem,"companyrs").ToString(),7)%></span></span></td>
<td width="74" height="20" align="center" valign="top"><img src="image/qq.gif" width="54" height="15"></td>
<td width="36" height="20" align="center"><a href="mailto:<%# Container.DataItem( "companyyx" ).ToString() %>"></a><%# Container.DataItem( "companyyx" ).ToString() %>
</TD></TR></TABLE></ITEMTEMPLATE></ASP:DATALIST>
<img id="image" src=' <%# Container.DataItem( "companyyx" ).ToString()==""?"在此写有数据的图片路径":"务数据的图片路径" %> ' />
tp = "111"
Else
tp = "222"
End If 这些我怎么看都不明白,可能是因为我本身是学C#的吧
给你思想吧,把结果放到DataTable里,如,DT
则for(int i=0;i<DT.Rows.Count;i++)
{
if((DT.Rows[i]["Companyyx"].ToString())=="")
{
//这里自己放代码
}
}
tp = "111"
Else
tp = "222"
End If
Companyyx的值是從哪裡獲得的 啊Dim adapter As SqlDataAdapter = New SqlDataAdapter("Select * from CompanyContent where MlbigClassName='" & idd & "' and shenhe=0 order by times Desc", myconn)
Dim ds As DataSet = new DataSet()
adapter.fill(ds)
Companyyx=ds.tables.Row["companyyx"].toString()