📄 testchart.aspx
字号:
<%@ Register TagPrefix="myControl" TagName="Chart"
SRC="chart.ascx" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<Script Runat="Server">
Sub Page_Load
Dim conPubs As SQLConnection
Dim cmdSelect As SQLCommand
conPubs = New SQLConnection( "Server=localhost;UID=sa;PWD=secret;database=Pubs" )
cmdSelect = New SQLCommand( "Select ytd_sales From Titles", conPubs )
conPubs.Open()
ctrlChart.DataSource = cmdSelect.ExecuteReader()
ctrlChart.DataField = "ytd_sales"
ctrlChart.DataBind()
conPubs.Close
End Sub
</Script>
<html>
<head><title>TestChart.aspx</title></head>
<body>
<h2>Year-To-Date Sales</h2>
<myControl:Chart
id="ctrlChart"
BackColor="Orange"
ForeColor="Purple"
Runat="Server" />
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -