<%@ 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>
<%@ 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>
解决方案 »
- 如何获取并展示要查询两次的数据,类似二级联动
- C++ 翻译为 C# 求救 那个大神帮帮忙(翻译好了 在送200分)
- 救命!关于session使用问题!在线等,搞不定今晚不能睡觉了!
- 心情很差 希望各位前辈能给予指点
- 急!在线等!100分诚心求一个dropdownlist得简单数据绑定问题
- 如何让PageLoad()中的某段代码只执行一次呢
- visual studio.net里做好了程序,拷贝到虚拟目录下就出现问题了~~
- 在线求助:一个使用timer控件的问题
- 求 InstallShield 的下载地址 最新版的 免费能用的
- web 页面不向服务器提交
- 登录后返回访问页面
- 如何让日期输出的格式为2008-05-23而不是2008-5-23?
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
<asp:TextBox id="Server" Text="KING" runat="server" /><br>id是不能为Server的
另外,我的DLL是在BIN文件夹下的,但是网站上的文件夹是BIN ,WWW,
ASP是放在WWW目录下,我的DLL放在BIN文件下怎么才能调用到这个DLL