1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100
|
<%@ Page Language="VB" %>
<%@ Register TagPrefix="wmx" Namespace="Microsoft.Matrix.Framework.Web.UI" Assembly="Microsoft.Matrix.Framework, Version=0.6.0.0, Culture=neutral, PublicKeyToken=6f763c9966660626" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<%@ import Namespace="System.Web.Mail" %>
<%@ import Namespace="System.IO" %>
<%@ import Namespace="System.DirectoryServices" %>
<%@ import Namespace="System.Configuration" %>
<%@ import Namespace="System.Net" %>
<%@ import Namespace="System" %>
<%@ import Namespace="System.Net.DNS" %>
<%@ import Namespace="System.ComponentModel" %>
<%@ import Namespace="System.Management" %>
<%@ import Namespace="System.Runtime.InteropServices" %>
<%@ import Namespace="System" %>
<%@ import Namespace="ActiveDs" %>
<%@ import Namespace="System.Text" %>
<%@ import Namespace="System.Net.NetworkInformation" %>
<%@ import Namespace="System.Net.Sockets" %>
<script runat="server">
' Insert page code here
'
Sub Button1_Click(sender As Object, e As EventArgs)
Dim ipadress As String
Dim nom As String
Dim Sql As String
SqlDataSourceControl1.ConnectionString="server='(local)'; trusted_connection=true; database='pspintranet'"
try
SqlDataSourceControl1.SelectCommand="Select nom_id,nom, solution from Servers where freetext (solution, '" & "'" & SQLQuote(TextBox1.Text) & "'" & "' )"
SqlDataSourceControl1.SelectCommand="Select nom_id,nom, solution from ServerCache where freetext (solution, '" & "'" & SQLQuote(TextBox1.Text) & "'" & "' )"
'('" & "'" & SQLQuote(TextBox1.Text) & "'" & "')
MxDataGrid1.DataBind()
Catch ex As Exception
If IsNothing(ex.InnerException) Then
Response.write("A clause of the query contained only ignored words.")
Else
Response.write("Could not get initial data:" & ex.InnerException.Message)
End if
End Try
End Sub
Public Function SQLQuote(Chaine As String)
SQLQuote = "'" & Replace(Chaine,"'","''") & "'"
End Function
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
</p>
<p>
</p>
<p>
</p>
<p>
<asp:TextBox id="TextBox1" runat="server"></asp:TextBox>
</p>
<p>
<asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Research"></asp:Button>
<wmx:SqlDataSourceControl id="SqlDataSourceControl1" runat="server"></wmx:SqlDataSourceControl>
</p>
<p>
</p>
<p>
<wmx:MxDataGrid id="MxDataGrid1" runat="server" AllowPaging="True" AllowSorting="True" CellPadding="3" DataKeyField="nom_id" DataSourceControlID="SqlDataSourceControl1" DataMember="Servers" BackColor="White" BorderColor="#CCCCCC" BorderWidth="1px" BorderStyle="None">
<FooterStyle backcolor="White" forecolor="#000066"></FooterStyle>
<HeaderStyle backcolor="#006699" font-bold="True" forecolor="White"></HeaderStyle>
<ItemStyle forecolor="#000066"></ItemStyle>
<PagerStyle mode="NumericPages" horizontalalign="Center" backcolor="White" forecolor="#000066"></PagerStyle>
<SelectedItemStyle backcolor="#669999" font-bold="True" forecolor="White"></SelectedItemStyle>
</wmx:MxDataGrid>
</p>
<p>
<asp:HyperLink id="HyperLink2" runat="server" FormatString="servermgt" NavigateUrl="servermgt2.aspx"> Back to server management</asp:HyperLink>
<br />
<asp:HyperLink id="HyperLink3" runat="server" FormatString="usersmgt" NavigateUrl="users2.aspx"> Back to users management</asp:HyperLink>
<br />
</p>
<!-- Insert content here -->
</form>
</body>
</html> |
Partager