为什么点了按钮没反应呀.只是当页刷新.

这是HTML页..很简单的.只用三个label 和一个表格.<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" Inherits="lady.WebForm1"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>WebForm1</title>
<meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
<meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<FONT face="宋体">
<TABLE id="Table1" cellSpacing="1" cellPadding="1" width="300" border="1">
<TR>
<TD><asp:label id="lb1" runat="server"></asp:label></TD>
</TR>
<TR>
<TD style="HEIGHT: 16px"><asp:label id="lb2" runat="server"></asp:label></TD>
</TR>
<TR>
<TD><asp:label id="lb3" runat="server"></asp:label></TD>
</TR>
</TABLE>
</FONT>
</form>
</body>
</HTML>-------------------------------------------------------------------------------------VB代码页....
Imports System.Data
Imports System.Data.SqlClientPublic Class WebForm1
    Inherits System.Web.UI.Page#Region " Web 窗体设计器生成的代码 "    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()    End Sub
    Protected WithEvents lb1 As System.Web.UI.WebControls.Label
    Protected WithEvents lb3 As System.Web.UI.WebControls.Label
    Protected WithEvents lb2 As System.Web.UI.WebControls.Label    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub#End Region    Dim sqlstr As String
    Dim cnn As New SqlConnection
    Dim cmd As New SqlCommand
    Dim adp As New SqlDataAdapter
    Dim myds As DataSet
    Dim cnnstr As String
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i, j As Integer        cnnstr = "server=127.0.0.1;uid=sa;pwd=sa;database=lady_poll; "
        cnn = New SqlConnection(cnnstr)
        myds = New DataSet
        sqlstr = " select top 1000 * from poll_ladyInfo where class='KTV小姐' order by voteCount desc"
        cmd = New SqlCommand(sqlstr, cnn)
        adp = New SqlDataAdapter(sqlstr, cnn)
        adp.Fill(myds, "poll_ladyInfo")
        i = myds.Tables("poll_ladyInfo").Rows.Count
        lb1.Text = "<table width='927' height='220' border='1'><tr><td colspan='5'>KTV小姐</td><td width='90'>更多>>>></td></tr><tr>"
        If i >= 6 Then
            i = 6
        End If
        For j = 0 To i - 1
            lb1.Text += "<td width='134' height='202'><table width='134' border='1'><tr><td><img border='0' width='134' height='202 src='photo/" & myds.Tables("poll_ladyInfo").Rows(j).Item("photo1") & "'></td></tr>"
            lb1.Text += "<tr><td>" & myds.Tables("poll_ladyInfo").Rows(j).Item("id") & "&nbsp;&nbsp;&nbsp;&nbsp;" & myds.Tables("poll_ladyInfo").Rows(j).Item("ladyName") & "</td></tr>"
            lb1.Text += "<tr><td>" & myds.Tables("poll_ladyInfo").Rows(j).Item("voteCount") & "</td></tr>"
            lb1.Text += "<tr><td><input type='image' src='image/xx.gif' runat='server' onserverclick='voteLady()'></td></tr></table></td>"
        Next
        lb1.Text += "</tr></table>"
    End Sub    Sub voteLady()
        Response.Redirect("WebForm2.aspx")    End SubEnd Class---------------------------------------------------------------------------------
能告诉这里哪里出错了吗??怎么点按钮只是刷新的..而不执行 voteLady()
............

解决方案 »

  1.   

    你点按纽的时候又重新执行了：Private Sub Page_Load里的代码。那个按纽又被重置了。
      

  2.   

    If Page.IsPostBack = False Then
               '里面写初次载入页面的代码
                BtnEnd.Attributes.Add("onclick", "window.close();return false;")
                SetFocus(TxtUserId.ID, Me)
            End If
      

  3.   

    netzhoush(思华www.zjoa.cn) ( ) 信誉：95  2006-04-11 17:25:00  得分: 0  
     
     
       AUTOPOST属性改一下。
      
    不行的.我试过的..
    问题已解决了.
    把   lb1.Text += "<tr><td><input type='image' src='image/xx.gif' runat='server' onserverclick='voteLady()'></td></tr></table></td>"
    换成.
                lb1.Text += "<tr><td><a href='WebForm2.aspx?id=" & myds.Tables("poll_ladyInfo").Rows(j).Item("id") & "'><img src='image/xx.gif' border='0'></a></td></tr></table></td>"就行了呀....谢谢大家的帮忙了