<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQLClient" %>
<%@ Import Namespace="SelectTable" %><HTML>
<script language="VB" runat="server">
  Dim ServerStr As String
  Dim UserNameStr As String
  Dim passwordStr As String
  Dim TableNameStr As String
 
  Public Sub Submit_Click(Sender As Object, E As EventArgs)
      Try
        ServerStr = Server.Text
        UserNameStr = UserName.Text
        passwordStr = password.value
        TableNameStr = TableName.Text
      Catch Exp As Exception
          ' Ignored
      End Try      Dim Service As SelectTable.SelectTable = New SelectTable.SelectTable()
      Dim DS As DataSet = Service.ViewTable(ServerStr,UserNameStr,passwordStr,TableNameStr)      MyDataGrid.DataSource=DS
      MyDataGrid.DataBind()
  End Sub
</script>
<body style="FONT: 10.5pt 宋体">
<form runat="server" ID="Form1">
<div style="BORDER-RIGHT:black 1px solid; PADDING-RIGHT:15px; BORDER-TOP:black 1px solid; PADDING-LEFT:15px; PADDING-BOTTOM:15px; BORDER-LEFT:black 1px solid; WIDTH:300px; PADDING-TOP:15px; BORDER-BOTTOM:black 1px solid; BACKGROUND-COLOR:beige">
服务器名:<br>
<asp:TextBox id="Server" Text="KING" runat="server" /><br>
用户名:<br>
<asp:TextBox id="UserName" Text="SA" runat="server" /><br>
密码:<br>
<input type="password" id="password" value="" runat="server"><br>
数据表名称:<br>
<asp:TextBox id="TableName" Text="X806" runat="server" /><p>
<input type="submit" id="DGrid" value="数据表" OnServerClick="Submit_Click" runat="server"
NAME="DGrid">
<p>
<ASP:DataGrid id="MyDataGrid" runat="server" Width="100%" BackColor="#ccccff" BorderColor="black"
ShowFooter="false" CellPadding="3" CellSpacing="0" Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaaadd"
EnableViewState="false" /></p>
</div>
</form>
</body>
</HTML>

解决方案 »

  1.   

    <%@ WebService Language="VB" Class="SelectTable" %>
    Imports System
    Imports System.Data
    Imports System.Data.SqlClient
    Imports System.Web.ServicesPublic Class SelectTable : Inherits WebService
        <WebMethod()> Public Function ViewTable(ByVal ServerName As String,ByVal UserName As String,ByVal PassWord As String,ByVal TableName As String) As DataSet 
            Dim myConnection As SqlConnection
            Dim myDataAdapter As SqlDataAdapter
            myConnection = New SqlConnection("Server=" & ServerName & ";uid=" & UserName & ";pwd=" & PassWord & ";DataBase=SkPort")
            myConnection.Open()
            myDataAdapter = New SqlDataAdapter("select top 1000 * FROM " & TableName, myConnection)
            Dim DS As New DataSet()
            myDataAdapter.Fill(DS, "VT805")
            Return DS
        End Function
    End Class
      

  2.   

    汗~~~自己搞定了`~~
    <asp:TextBox id="Server" Text="KING" runat="server" /><br>id是不能为Server的
      

  3.   

    顺便问一问`~~如何要上到网上执行的话,我要上传哪几个文件?
    另外,我的DLL是在BIN文件夹下的,但是网站上的文件夹是BIN ,WWW,
    ASP是放在WWW目录下,我的DLL放在BIN文件下怎么才能调用到这个DLL