<!-첫 번째 ASP+프로그램->
<!-재 인쇄가있는 경우 소스를 표시하십시오! 저자 : 자연 홈페이지 : http://zhanzhen.wayall.com 환영합니다
<!-저자는 그것을 맹목적으로 썼습니다. 그러한 프로그램은 오랫동안 N을 가져갔습니다. 본질 잘. 본질 주된 이유는 ADO+에 대해 많이 알지 못합니다. 본질 원래 Ado 모드를 사용한 후에는 한 번에 불편했습니다. (및 VS7, ASP+를 작성하는 것이 편리하지만 붕괴하기가 쉽지만 붕괴 직후 프로그램을 시작하는 것이 약간 좋습니다. .) --->
<!-프로그램 기능 : ASP + 패널에서 패널을 사용하여 웹 컨트롤을 사용하여 3 개의 창을 전환하여 ASP에서 3 페이지로 구현할 수있는 원고의 기능 (사진을 만들기 어려운 경우 괜찮습니다. , 그러나 너무 복잡하지는 않습니다.) 이제 한 페이지만큼 끝날 수 있습니다. 그런 다음 ADO+DATASET 및 DATATABLE CONTROL을 사용하여 데이터베이스 작업을 완료하십시오.
<!-
예비 작업 : SQL Server에서 MyTest 데이터베이스를 작성한 다음이 섹션을 SQL 쿼리 분석기에 넣습니다.
테이블 [DBO] [TB_USER] (TB_USER].
[intid] [int] Identity (1, 1) null,
[vcuserid] [varchar] (20) null,
[vcpassword] [Varchar] (20) null,
[vcname] [varchar] (20) null,
[vctel] [varchar] (20) null,
[vcaddr] [Varchar] (50) null
)에서 [1 차]
가다
그런 다음 몇 가지 테스트 데이터를 삽입 할 수 있습니다.
->
< %@ import namespace = system.data.ado %>
< %@ 가져 오기 네임 스페이스 = System.Data %>
<html>
<헤드>
<meta name = Generator Content = Microsoft Visual Studio.net 7.0>
<meta name = code_language content = Visual Basic 7.0>
<title> 개인 기본 정보 수정 </title>
</head>
<body>
<form id = panelsc method = post runat = server>
<!-창에 로그인하십시오.>
<ASP : 패널 id = 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>
<입력 id = button1 유형 = 버튼 값 = 로그인 runat = 서버 onserverclick = button1_click> </p>
</blockquote>
<div id = div1 runat = server> </div>
</asp : 패널>
<!-창을 수정하십시오
<ASP : 패널 id = step2 runat = server>
2 단계 : (이름, 전화, 주소를 수정하십시오) <p>
<blockquuote>
이름 : <asp : textbox id = name runat = 서버 텍스트 => </asp : textbox> <p>
전화 : <asp : textbox id = tel runat = 서버 텍스트 => </asp : textbox> <p>
주소 : <asp : textbox id = addr runat = 서버 텍스트 => </asp : textbox> <p>
<입력 id = button2 유형 = 버튼 값 = runat = server onserverclick = button2_click> 수정
</blockquote>
<div id = div2 runat = server> </div>
</asp : 패널>
<!-확인 창->
<ASP : 패널 id = step3 runat = server>
3 단계 : (입력 한 데이터를 확인하십시오 <p>
<blockquote>
<div id = div3 runat = server> </div>
<입력 id = button3 type = button value = OK runat = Server onserverClick = button3_click>
</blockquote>
</asp : 패널>
<!-성공적인 창->
<ASP : 패널 id = 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
끝 If
종료 서브
sub button1_click (객체로서 발신자, e aventArgs)
Dim Connstr, sqlQuery는 문자열로
Dim I는 정수 = 0입니다
connstr = {sql server};
sqlquery = tb_user에서 vcname, vctel, vcaddr vcuserid = '& userid.text &'및 vcpassword = '& password.text &'를 선택하십시오.
dim cmd as adodatasetcommand = 새로운 adodatasetcommand (sqlquery, connstr)
dim rs as as dataset = new DataSet ()
CMD.FillDataset (RS, TB_USER)
dim dt as datatable = rs.tables (tb_user)
i = dt.rows.count
I = 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 = 로그인이 실패했습니다!
끝 If
종료 서브
sub button2_click (객체로서 발신자, e eventargs)
step1.visible = false
step2.visible = false
step3.visible = true
div3.innerhtml = 계정 번호 : & userid.text & <br>
div3.innerhtml & = 이름 : & name.text & <br>
div3.innerhtml & = 전화 : & tel.text & <br>
div3.innerhtml & = 주소 : & addr.text & <p>
종료 서브
서브 버튼 3_click (객체로서 발신자, e aventArgs)
Dim Connstr, sqlQuery는 문자열로
connstr = {sql server};
sqlquery = update tb_user set vcname = '& name.text &', vctel = '& tel.text &', vcaddr = '& addr.text &'
dim cmd as adocommand = new AdoCommand (SqlQuery, Connstr)
cmd.activeConnection.open ()
cmd.execute ()
cmd.recordsaffed = 1 인 경우
div4.innerhtml = 프로필이 올바르게 수정되었습니다 <a href = panelsc.aspx> 로그인으로 돌아갑니다
또 다른
div4.innerhtml = 오류가 발생합니다!
끝 If
종료 서브
</스크립트>