测试程序 解决缩率图问题 Default.ASPX <%@ Page Title="Home Page" Language="VB" MasterPageFile="~/Site.Master" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> <asp:Content ID="HeaderContent" runat="server" ContentPlaceHolderID="HeadContent"> </asp:Content> <asp:Content ID="BodyContent" runat="server" ContentPlaceHolderID="MainContent"> <h2> Welcome to ASP.NET! </h2> <p> <asp:DataGrid ID="DataGrid1" runat="server" DataSourceID="SqlDataSource1" AutoGenerateColumns="false" OnItemCommand="DataGrid1_ItemCommand" > <Columns> <asp:BoundColumn HeaderText="picname" DataField="picname"> </asp:BoundColumn> <asp:ButtonColumn ButtonType="LinkButton" Text="Set Thumbnail" CommandName="setThumbnail"> <ItemStyle HorizontalAlign="Center" CssClass="bodyTextBold"></ItemStyle> </asp:ButtonColumn> <asp:BoundColumn HeaderText="picorder" DataField="picorder"> </asp:BoundColumn> </Columns> </asp:DataGrid> </p> <p> <asp:Label ID="Label1" runat="server" Text="Label"></asp:Label> </p> <p> </p> <p> <asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:db_02ConnectionString %>" SelectCommand="SELECT [picname], [thumbnail], [picorder] FROM [propertypicture] ORDER BY [picorder]"> </asp:SqlDataSource> </p> </asp:Content> Default.aspx.vb Imports System.Data.SqlClient Imports System.Data Partial Class _Default Inherits System.Web.UI.Page Public Sub DataGrid1_ItemCommand(ByVal sender As System.Object, ByVal e As DataGridCommandEventArgs) Select Case e.CommandName Case "setThumbnail" Dim objconnection As SqlConnection = New SqlConnection() objconnection.ConnectionString = "Data Source=KIDD/KIDD;Initial Catalog=db_02;Persist Security Info=True;User ID=sa;Password=19860914" objconnection.Open() Dim adapt1 As SqlDataAdapter adapt1 = New SqlDataAdapter("UPDATE propertypicture SET thumbnail = '0',picorder= (select picorder from propertypicture where picname='" & e.Item.Cells(0).Text.ToString() & "') where thumbnail = '1' ", objconnection) Dim daset1 As DataSet = New DataSet() adapt1.Fill(daset1, "propertypicture") Dim adapt As SqlDataAdapter adapt = New SqlDataAdapter("UPDATE propertypicture SET picorder = '1', thumbnail = '1' where picname = '" & e.Item.Cells(0).Text.ToString() & "'", objconnection) Dim daset As DataSet = New DataSet() adapt.Fill(daset, "propertypicture") Response.Redirect("Default.aspx") End Select End Sub End Class