📄 securedatabaseservice.aspx
字号:
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<script runat="server">
sub Submit(obj as object, e as eventargs)
dim objService as new TYASPNET.Clients.SecureDatabaseService
dim sHeader as new TYASPNET.Clients.Authenticator
dim objDS as new DataSet
sHeader.Username = tbUser.Text
sHeader.Password = tbPass.Text
objService.AuthenticatorValue = sHeader
try
objDS = objService.SelectSQL(tbQuery.Text)
DataGrid1.DataSource = objDS
DataGrid1.DataMember = "tblUsers"
DataGrid1.Databind()
catch ex as exception
Response.Write("Invalid username or password")
end try
end sub
</script>
<html><body>
<form runat="server">
Username:
<asp:Textbox id="tbUser" runat="server"/><br>
Password:
<asp:Textbox id="tbPass" runat="server"
TextMode="password" /><p>
Enter a query:
<asp:Textbox id="tbQuery" runat="server"/>
<asp:Button id="btSubmit" runat="server"
text="Submit"
OnClick="Submit" />
<p>
<asp:DataGrid id="DataGrid1"
runat="server" BorderColor="black"
GridLines="Vertical" cellpadding="4"
cellspacing="0" width="100%"
Font-Name="Arial" Font-Size="8pt"
HeaderStyle-BackColor="#cccc99"
ItemStyle-BackColor="#ffffff"
AlternatingItemStyle-Backcolor="#cccccc" />
</form>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -