<!-моя первая программа ASP+
<!-Если есть перепечатка, укажите источник! Автор: Природа Домашняя страница: http://zhanzhen.wayall.com Добро пожаловать
<!-Автор написал это слепо: такая программа заняла у меня долгое время. Сущность хорошо. Сущность Основная причина в том, что я не знаю много о ADO+. Сущность После использования оригинального режима ADO он был действительно неудобным сразу: (и это VS7, хотя это удобно писать ASP+, кажется, что его легко разрушить, но немного хорошо запустить программу сразу после коллапса .
<!-Функция программы: используйте панель на панели ASP +, веб-управление для достижения переключения трех окон, так что функция нашего истца для реализации с тремя страницами в ASP (если трудно сделать изображение, это нормально , но не будь слишком сложным), теперь вы можете закончить его до одной страницы. Затем используйте набор данных ADO+и DataTable Control, чтобы завершить работу базы данных->
<!-
Предварительная работа: создайте базу данных MyTest в SQL Server, а затем поместите этот раздел в SQL Analyzer Analyzer
Создать таблицу [DBO].
[Intid] [int] идентичность (1, 1) не нулевой,
[Vcuserid] [varchar] (20) не нулевой,
[vcpassword] [varchar] (20) не null,
[vcname] [varchar] (20) null,
[vctel] [varchar] (20) null,
[vcaddr] [varchar] (50) NULL
) На [первичный]
ИДТИ
Затем вы можете вставить несколько тестовых данных.
->
< %@ Import namespace = system.data.ado %>
< %@ Import namespace = system.data %>
<html>
<голова>
<meta name = Generator Content = Microsoft Visual Studio.net 7.0>
<meta name = code_language content = Visual Basic 7.0>
<Название> изменить личную базовую информацию </title>
</head>
<тело>
<Form id = panelsc method = post runat = server>
<!-Войдите в окно->
<ASP: панель идентификатор = step1 runat = server>
Шаг 1: (Введите учетную запись и пароль) <p>
<BlockQuote>
Номер учетной записи: <ASP: TextBox ID = USERID RUNAT = SERVER> </ASP: TextBox> <p>
Пароль: <ASP: TextBox ID = Password Runat = Server TextMode = Password> </asp: Textbox> <p>
<input id = button1 type = value = log in runat = server onserverclick = button1_click> </p>
</blockquote>
<div id = div1 runat = server> </div>
</asp: панель>
<!-изменить окно->
<ASP: панель идентификатор = step2 runat = server>
Шаг 2: (Пожалуйста, измените имя, телефон, адрес) <p>
<blockquuote>
Имя: <ASP: TextBox ID = имя Runat = Server Text => </asp: TextBox> <p>
Тел: <ASP: TextBox ID = TEL RUNAT = SERVER TEXT => </asp: TextBox> <p>
Адрес: <ASP: TextBox ID = Addr Runat = Server Text => </asp: TextBox> <p>
<input id = button2 type = значение кнопки = изменить runat = server onserverclick = button2_click>
</blockquote>
<div id = div2 runat = server> </div>
</asp: панель>
<!-Подтвердите окно->
<ASP: панель идентификатор = step3 runat = server>
Шаг 3: (Пожалуйста, подтвердите введенные вами данные <p>
<BlockQuote>
<div id = div3 runat = server> </div>
<input id = button3 type = value = ok runat = server onserverclick = button3_click>
</blockquote>
</asp: панель>
<!-Успешное окно->
<ASP: панель идентификатор = step4 runat = server>
<BlockQuote>
<div id = div4 runat = server> </div>
</blockquote>
</asp: панель>
</form>
</body>
</html>
<script language = vb runat = server>
sub page_load (отправитель как объект, e As EventArgs)
Если не page.ispostback, тогда
step1.visible = true
step2.visible = false
step3.visible = false
конец, если
Конец суб
sub button1_click (отправитель как объект, e As EventArgs)
Dim Connstr, SQLQUERY AS String
Dim i как целое число = 0
connstr = {sql server};
sqlquery = select vcname, vctel, vcaddr от tb_user, где vcuserid = '& userid.text &' и vcpassword = '& password.text &'
Dim Cmd как adodatasetcommand = new AdodatasetCommand (SQLQUERY, CONNSTR)
Dim RS как набор данных = новый набор данных ()
cmd.filldataset (rs, tb_user)
Dim dt as datatable = rs.tables (tb_user)
I = dt.rows.count
Если я = 1, тогда
name.text = dt.rows (0) .item (0)
tel.text = dt.rows (0) .Item (1)
addr.text = dt.rows (0) .item (2)
step1.visible = false
step2.visible = true
step3.visible = false
еще
step1.visible = true
step2.visible = false
step3.visible = false
Div1.innerhtml = Войдите в систему!
конец, если
Конец суб
sub button2_click (отправитель как объект, e As EventArgs)
step1.visible = false
step2.visible = false
step3.visible = true
div3.innerhtml = номер счета: & userid.text & <br>
div3.innerhtml & = name: & name.text & <br>
div3.innerhtml & = tel: & tel.text & <br>
div3.innerhtml & = адрес: & addr.text & <p>
Конец суб
sub button3_click (отправитель как объект, e As EventArgs)
Dim Connstr, SQLQUERY AS String
connstr = {sql server};
sqlquery = update tb_user set vcname = '& name.text &', vctel = '& tel.text &', vcaddr = '& addr.text &'
Dim Cmd как adocommand = new Adocommand (sqlquery, connstr)
cmd.activeconnection.open ()
cmd.execute ()
Если cmd. recordsafted = 1, то тогда
div4.innerhtml = ваш профиль был правильно изменен!
еще
div4.innerhtml = ошибки происходят!
конец, если
Конец суб
</script>