📄 testdata.aspx
字号:
<%@ Page Language="VB" %>
<%@ import Namespace="System.data" %>
<%@ import Namespace="System.data.OleDb" %>
<script runat="server">
' Insert page code here
sub Page_Load(Sender as Object,e as EventArgs)
dim conn as new OleDbConnection()
dim cmd as new OleDbCommand()
dim stu1 as new DataSet()
dim odjr as OleDbDataReader
conn.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("Student.mdb")
conn.Open()
cmd.Connection=conn
cmd.CommandText= "select mname from manage where code=3834881"
cmd.Parameters.Add(New OleDbParameter("@mname",OleDbType.VarChar,10))
textbox1.text=cmd.Parameters("@mname").Value
conn.Close()
End sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
<asp:TextBox id="TextBox1" runat="server" Width="395px" Height="232px"></asp:TextBox>
</p>
<p>
</p>
<!-- Insert content here -->
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -