📄 admin_insert_database.aspx
字号:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Globalization" %>
<HTML>
<script language="VB" runat="server">
Dim myConnection As SqlConnection
Sub Page_Load(Sender As Object, E As EventArgs)
myConnection = New _
SqlConnection("workstation id=SONGWEI;packet size=4096;user id=sa;password=sql;data source=SONGWEI;persist se" & _
"curity info=False;initial catalog=vodweb")
if pagemode2.checked then
MyDataGrid.pagerstyle.mode=pagermode.numericpages
else
MyDataGrid.pagerstyle.mode=pagermode.nextprev
MyDataGrid.pagerstyle.prevpagetext="上一页"
MyDataGrid.pagerstyle.nextpagetext="下一页"
end if
If Not (IsPostBack)
BindGrid("userid")
End If
End Sub
Sub AddAuthor_Click(Sender As Object, e As EventArgs)
Dim myCommand As SqlCommand
Dim insertCmd As String
' Check that four of the input values are not empty. If any of them
' is empty, show a message to the user and rebind the DataGrid.
If (userid.Value = "" Or password.Value = "" ) Then
Message.InnerHtml = "错误: userid,password 均不能为空"
Message.Style("color") = "red"
BindGrid("userid")
Exit Sub
End If
' Build a SQL INSERT statement string for all the input-form
' field values.
insertCmd = "insert into reg(userid,password,Email,addr,phone,sex,birth)values (@Userid,@Password,@Email,@Addr,@Phone,@Sex,@Birth);"
' Initialize the SqlCommand with the new SQL string.
myCommand = New SqlCommand(insertCmd, myConnection)
' Create new parameters for the SqlCommand object and
' initialize them to the input-form field values.
myCommand.Parameters.Add(New SqlParameter("@Userid", SqlDbType.NChar, 10))
myCommand.Parameters("@Userid").Value = userid.Value
myCommand.Parameters.Add(New SqlParameter("@Password", SqlDbType.NChar, 10))
myCommand.Parameters("@Password").Value = password.Value
myCommand.Parameters.Add(New SqlParameter("@Email", SqlDbType.NVarChar, 50))
myCommand.Parameters("@Email").Value = Email.Value
myCommand.Parameters.Add(New SqlParameter("@Addr", SqlDbType.NVarChar, 50))
myCommand.Parameters("@Addr").Value = addr.Value
myCommand.Parameters.Add(New SqlParameter("@Phone", SqlDbType.NVarChar, 20))
myCommand.Parameters("@Phone").Value = phone.Value
myCommand.Parameters.Add(New SqlParameter("@Sex", SqlDbType.NChar, 10))
myCommand.Parameters("@Sex").Value = sex.Value
myCommand.Parameters.Add(New SqlParameter("@Birth", SqlDbType.NChar, 10))
myCommand.Parameters("@Birth").Value = birth.Value
' Test whether the new row can be added and display the
' appropriate message box to the user.
myCommand.Connection.Open()
Try
myCommand.ExecuteNonQuery()
Message.InnerHtml = "<b>添加记录</b><br>" & insertCmd
Catch ex As SqlException
If ex.Number = 2627 Then
Message.InnerHtml = "错误:该编号的记录已存在，请更换编号 "
Else
Message.InnerHtml = "错误:不能插入记录，请确保正确填写字段"
Message.Style("color") = "red"
End If
End Try
myCommand.Connection.Close()
BindGrid("userid")
End Sub
' BindGrid connects to the database and implements a SQL
' SELECT query to get all the data in the "Authors" table
' of the database.
Sub BindGrid(SortField as string)
Dim DS As DataSet
Dim MyCommand As SqlDataAdapter
MyCommand = new SqlDataAdapter("select * from reg", MyConnection)
DS = new DataSet()
MyCommand.Fill(DS, "用户信息")
dim source as dataview=DS.Tables("用户信息").DefaultView
MyDataGrid.DataSource=source
source.sort=SortField
MyDataGrid.DataBind()
End Sub
sub MyDataGrid_PageIndexChanged(sender as object ,e as datagridpagechangedeventargs)
MyDataGrid.currentpageindex=e.newpageindex
BindGrid("file_id")
end sub
Sub MyDataGrid_Sort(Src As Object, E As DataGridSortCommandEventArgs)
BindGrid(E.SortExpression)
End Sub
</script>
<body style="FONT: 10pt verdana">
<form id="Form1" runat="server">
<h3><font face="Verdana">管理员添加记录</font></h3>
<span id="Message" runat="server" EnableViewState="false"></span>
<p><table width="95%">
<tr>
<td valign="top">
<ASP:DATAGRID id="MyDataGrid" runat="server" DataKeyField="userid" HeaderStyle-BackColor="#aaaadd"
Font-Size="8pt" Font-Name="Verdana" CellPadding="3" BorderColor="Black" BackColor="#CCCCFF"
Width="800px" OnSortCommand="MyDataGrid_Sort" OnPageIndexChanged="MyDataGrid_PageIndexChanged"
Font-Names="Verdana" AllowPaging="True" AllowSorting="True">
<HeaderStyle BackColor="#AAAADD"></HeaderStyle>
</ASP:DATAGRID>
</td>
</tr>
</table>
<center>页码模式：
<asp:radiobutton id="pagemode2" Text="上下页模式" GroupName="页码模式" Checked="True" AutoPostBack="True"
Runat="server"></asp:radiobutton><asp:radiobutton id="pagemode1" Text="数字模式" GroupName="页码模式" Checked="True" AutoPostBack="True" Runat="server"></asp:radiobutton></center>
<br>
<td valign="top">
<table style="FONT: 8pt verdana" border="1">
<tr>
<td colspan="2" bgcolor="#aaaadd">
添加记录:</td>
</tr>
<tr>
<td nowrap>
userid:
</td>
<td><input type="text" id="userid" runat="server" NAME="userid"></td>
</tr>
<tr>
<td nowrap>
password:
</td>
<td><INPUT id="password" type="text" name="password" runat="server"></td>
</tr>
<tr nowrap>
<td>
Email:
</td>
<td><input type="text" id="Email" runat="server" NAME="Email"></td>
</tr>
<tr>
<td>addr:
</td>
<td><input type="text" id="addr" runat="server" NAME="addr"></td>
</tr>
<tr>
<td>phone:
</td>
<td><input type="text" id="phone" runat="server" NAME="phone"></td>
</tr>
<tr>
<td>sex:
</td>
<td><input type="text" id="sex" runat="server" NAME="sex"></td>
</tr>
<tr>
<td>birth:
</td>
<td><input type="text" id="birth" runat="server" NAME="birth"></td>
</tr>
<tr>
<td></td>
<td>
<input type="submit" OnServerClick="AddAuthor_Click" value="添加" runat="server" ID="Submit1"
NAME="Submit1">
</td>
</tr>
<tr>
<td colspan="2" align="center">
<span id="Span1" EnableViewState="false" runat="server" />
</td>
</tr>
</table>
</td>
</form>
</body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -