User669521406 posted
here the the html and asp.net code
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Bid.aspx.vb" Inherits="Bid" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:ScriptManager ID="SM1" runat="server">
</asp:ScriptManager>
<asp:repeater id="Repeater1" OnItemCommand="Repeater1_ItemCommand" runat="server">
<HeaderTemplate>
<ul>
</HeaderTemplate>
<ItemTemplate>
<li> <a href="ProductDetails.aspx?ItemID=<%# Eval("ItemID") %>"> <asp:Image id="Image1" runat="server" ImageUrl="~/Seller/audio.gif" /></a>
<div class="product-info">
<h3>
<asp:Label ID="Label1" runat="server" Text='<%# Eval("Name")%>'></asp:Label> </h3>
<div class="product-desc">
<h4>Bid</h4>
<asp:TextBox ID="txtbid" runat="server"></asp:TextBox>
<asp:HiddenField ID="HiddenField1" Value='<%#Eval("EndDate")%>' runat="server" />
<asp:Label ID="lblauction" Visible="false" Text='<%#Eval("AuctionID")%>' runat="server" />
<asp:Label ID="Label4" Visible="false" Text='<%#Eval("Price")%>' runat="server" />
<asp:Label ID="Label2" Visible="false" Text='<%#Eval("Status")%>' runat="server" />
<a href='<%#GenerateURL(Eval("AuctionID"))%>' style="border: 0 none white"><img id="Img1" src="~/Styles/Images/add_to_cart.gif" runat="server" alt="" style="border-width: 0" /></a><br />
<br/> <p>
<asp:Label ID="Label3" runat="server" ></asp:Label>
</li>
<asp:UpdatePanel id="updPnl" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Label ID="lblTimer" runat="server"></asp:Label>
<asp:Button ID="btnSave" runat="server" CommandName="Save" Text="btnSave" />
</ContentTemplate>
<triggers>
<asp:asyncpostbacktrigger ControlID="timer1" eventname="tick" />
</triggers>
</asp:UpdatePanel>
</ItemTemplate>
<FooterTemplate>
</ul>
</FooterTemplate>
</asp:repeater>
<asp:Timer ID="timer1" Interval="2000" OnTick="timer1_tick" runat ="server">
</asp:Timer>
</div>
</form>
</body>
</html>
Kaushalparik i have a problem with the code when i put a picture it is as if it look as a watch, for each second the image appear and disapear
but i have a way to avoid it but i don't how to rebind the data to the repeater when one item is expired can you help please
here are the code
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Net.Mail
Imports System.Web.Configuration
Imports System.Web.Script.Services
Imports System.Web.Services
Partial Class Bid
Inherits System.Web.UI.Page
Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("VirgoPlaza").ToString())
Dim EndDate As DateTime
Dim auction As Integer
Private ReadOnly _start As String
Public Sub New()
_start = WebConfigurationManager.ConnectionStrings("VirgoPlaza").ConnectionString
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Using con1 As New SqlConnection(_start)
Dim sql1 As String = "SELECT Item.ItemID,Item.Price,Item.Name, Item.Description, Item.Price,Auction.EndDate,Auction.AuctionID,Auction.Status FROM Item INNER JOIN Auction ON Item.ItemID = Auction.ItemID Where Auction.Status='Valid' AND Auction.EndDate>=@endate "
Dim myCommand1 As New SqlCommand(sql1, con1)
myCommand1.Parameters.AddWithValue("@endate", DateTime.Now)
myCommand1.CommandType = CommandType.Text
con1.Open()
Dim category As SqlDataReader
category = myCommand1.ExecuteReader()
'binding data from category table to ddlcategory
Repeater1.DataSource = category
Repeater1.DataBind()
End Using
End If
End Sub
Public Function GenerateURL(ByVal Auction As Object) As String
'Create URL for each product link
Dim strProdUrl As String = "Wishlist.aspx?Pid=" & Auction
Return strProdUrl
End Function
Protected Sub Repeater1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.RepeaterCommandEventArgs) Handles Repeater1.ItemCommand
If e.CommandName.Equals("Save") Then
Dim BiddingPrice As String
Dim dataToSave As String = TryCast(e.Item.FindControl("txtbid"), TextBox).Text
Dim auction As String = TryCast(e.Item.FindControl("lblauction"), Label).Text
Dim price As String = TryCast(e.Item.FindControl("Label4"), Label).Text
Dim labelMsg As String = TryCast(e.Item.FindControl("Label3"), Label).Text
Dim constr As String = ConfigurationManager.ConnectionStrings("VirgoPlaza").ConnectionString
Dim con As New SqlConnection(constr)
Dim Price1 As Integer = Convert.ToInt32(price)
Dim Biddingcmd As New SqlCommand("SELECT BID.BiddingPrice FROM Item INNER JOIN Auction ON Item.ItemID = Auction.ItemID INNER JOIN BID ON Auction.AuctionID = BID.AuctionID WHERE (Auction.AuctionID = @auction)")
Biddingcmd.CommandType = CommandType.Text
Biddingcmd.Parameters.AddWithValue("@auction", auction)
con.Open()
Biddingcmd.Connection = con
Dim result21 As String = Biddingcmd.ExecuteScalar()
BiddingPrice = result21
Dim txtbid As Integer = Convert.ToInt32(dataToSave)
Dim auction1 As Integer = Convert.ToInt32(auction)
Dim con1 As New SqlConnection(constr)
con1.Open()
If (txtbid > Price1) And (BiddingPrice = "") Then
Dim cmd As New SqlCommand("INSERT INTO BID VALUES(@Date, @BiddingPrice,@Status,@AuctionID,@BuyerID,@WinningPrice)")
cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue("@Date", DateTime.Now)
cmd.Parameters.AddWithValue("@BiddingPrice", dataToSave)
cmd.Parameters.AddWithValue("@Status", "Available")
cmd.Parameters.AddWithValue("@AuctionID", auction1)
cmd.Parameters.AddWithValue("@BuyerID", 1)
cmd.Parameters.AddWithValue("@WinningPrice", "")
cmd.Connection = con1
cmd.ExecuteNonQuery()
MsgBox("SAVE")
ElseIf (txtbid > price) And (txtbid > Convert.ToInt32(BiddingPrice)) And BiddingPrice <> "" Then
Dim cmd As New SqlCommand("INSERT INTO BID VALUES(@Date, @BiddingPrice,@Status,@AuctionID,@BuyerID,@WinningPrice)")
cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue("@Date", DateTime.Now)
cmd.Parameters.AddWithValue("@BiddingPrice", dataToSave)
cmd.Parameters.AddWithValue("@Status", "Available")
cmd.Parameters.AddWithValue("@AuctionID", auction1)
cmd.Parameters.AddWithValue("@BuyerID", 1)
cmd.Parameters.AddWithValue("@WinningPrice", "")
cmd.Connection = con1
cmd.ExecuteNonQuery()
MsgBox("Save")
Else
MsgBox("bID IS TOO LOW")
End If
End If
End Sub
Protected Sub timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
For Each item As RepeaterItem In Repeater1.Items
Dim hidden = TryCast(item.FindControl("HiddenField1"), HiddenField)
Dim label2 = TryCast(item.FindControl("lblTimer"), Label)
'Grab your DateTime object (checking that it exists)'
'Store your TimeSpan Difference'
Dim ts = (DateTime.Now - DateTime.Parse(hidden.Value))
Dim travelTime As New TimeSpan(0, 0, 0, 0)
Dim result2 As Integer = TimeSpan.Compare(ts, travelTime)
If result2 <= 0 Then
'Now you can output your time as you please (excluding any decimal points)'
label2.Text = String.Format("Time Left: {0:dd\:hh\:mm\:ss}", ts)
Else
timer1.Enabled = True
Using con1 As New SqlConnection(_start)
Dim sql12 As String = "SELECT Auction.AuctionID FROM Item INNER JOIN Auction ON Item.ItemID = Auction.ItemID Where Auction.Status='Valid' AND Auction.EndDate<=@endate "
Dim cmd12 As New SqlCommand(sql12, con1)
con1.Open()
cmd12.Parameters.AddWithValue("@endate", DateTime.Now)
Dim query As Integer = cmd12.ExecuteScalar
Dim sql123 As String = "UPDATE Auction SET Status ='Expired' WHERE AuctionID =@auction"
Dim cmd21 As New SqlCommand(sql123, con1)
cmd21.Parameters.AddWithValue("@auction", query)
cmd21.ExecuteNonQuery()
''query = Convert.ToInt32(HiddenItem.Value).ToString look in finalcoursework
End Using
End If
Next
End Sub
Function CalculateWinningPrice(ByVal query As Integer) As Integer
Dim price As Integer
Using con1 As New SqlConnection(_start)
con1.Open()
Dim sql1 As String = "SELECT MAX(BiddingPrice) AS Expr1 FROM BID WHERE (AuctionID = @auction)"
Dim cmd1 As New SqlCommand(sql1, con1)
cmd1.Parameters.AddWithValue("@auction", query)
Dim max As Double = Convert.ToDouble(cmd1.ExecuteScalar)
Dim cmd2 As New SqlCommand("SELECT MAX(BiddingPrice) AS Expr1 FROM BID WHERE (BiddingPrice <( SELECT MAX(BiddingPrice) AS Expr2 FROM BID AS BID_1 WHERE (AuctionID = @auction)))", con1)
cmd2.Parameters.AddWithValue("@auction", query)
Dim second As Double = Convert.ToDouble(cmd2.ExecuteScalar)
Dim cmd3 As New SqlCommand("SELECT BuyerID FROM BID WHERE(BiddingPrice =(SELECT MAX(BiddingPrice) AS Expr1 FROM BID AS BID_1 WHERE(AuctionID = @auction)))", con1)
cmd3.Parameters.AddWithValue("@auction", query)
Dim Buyer As Integer = Convert.ToInt32(cmd3.ExecuteScalar)
If max - second = 1 Then
price = second
Else
If max - second > 10 Then
price = second + 1
Else
If max - second > 100 Then
price = second + 10
Else
If max - second > 1000 Then
price = second + 1000
End If
End If
End If
End If
Dim cmd As New SqlCommand("INSERT INTO BID VALUES(@Date, @BiddingPrice,@Status,@AuctionID,@BuyerID,@WinningPrice)")
cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue("@Date", DateTime.Now)
cmd.Parameters.AddWithValue("@BiddingPrice", max)
cmd.Parameters.AddWithValue("@Status", "Won")
cmd.Parameters.AddWithValue("@AuctionID", query)
cmd.Parameters.AddWithValue("@BuyerID", Buyer)
cmd.Parameters.AddWithValue("@WinningPrice", price)
cmd.Connection = con1
cmd.ExecuteNonQuery()
End Using
Return price
End Function
End Class
