理金老年

Size: px

Start display at page:

Download "理金老年"

杰荀
5 years ago
Views:

1 理金老年

2 錄論料料料理料論識六立行行料

3 說說立料行參錄

4 論 1 年 ASP Visual Basic 1.0 Microsoft ASP.net Visual Studio.NET 2003 理路力力精理度料量識料料數路便流都料來 Internet HTML Hyper Text Markup LanguageWeb 讀見行留論料理

5 HTML 行不參數連料若不不來 Web 參行行益更 Web 料錄 Web 來錄來料錄更益

6 2 利 HTML Hyper Text Markup Language VB Visual Basic ASP.NET Active Server Page.NET 料 1 了料 2 ASP.NET 識 ASP.NET ASP 料兩 ASP.NET 立 3 不行力錄便了狀

7 料 1 料料來料 Database 料度不不度料行料料理來立料 1 料 2 料 3 料 4 5 料易理 6 料理

8 2 料理料理 Data Base Management System DBMS 利立料列 1 料 2 料錄 3 料數料 4 列料理利理料

9 3 料料料料理料理料不了料了料料錄料料錄裡料 Meta-Data 了料錄 DBMS DBMS 不料 DBMS 錄料料理料 DBMS 錄裡料利行不料

10 料利理料料料料來羅崙

11 ASP.NET 論 1 識 ASP ASP.NET Active Server Pages ASP 路 IIS Internet Information Services Web 理 ASP 行都 HTML 路行 Internet Explorer Netscape ASP 行 ASP 行來行 VBScript JavaScript 不 ASP 不 Client 行若 VBScript 來 Client IE 行若 Client 若 Netscape 來行 VBScript 行

12 說 ASP 來立行 Web 來令 HTML COM ASP Scripting Language HTML Embeded HTMLCOM ASP ADO Recordset 料易料易 ASP 不理行 COM 行 ADO 離理力不 XML 不 ASP 了 ADO 路異料 2002 年.NET Framework 來.asp.aspx 料易 ASP Active Server Pages 路 IIS Internet Information Services Web 理

13 ASP.NET ASP 良良度.NET Framework Windows2000 了.NET Framework 類便.NET 例 ASP.NET VB.NET VC#.NET 都類類 ASP 1 ASP Windows 例 FrontPage... 都 2 ASP 路行行 HTML 不 3 ASP ActiveX Script 都了 HTML VB Script Java Script Active X 來 Plug-In Third Party

14 4 HTML ASP 不 ASP Web Server 行 HTML Client ASP 不易見 5 易料 ASP 易 ODBC Open Database Connectivity 連不料例 Access FoxPro dbase Oracle...ASP Excel 料 6 易 ASP Object-Oriented 易 ASP 了便力 Request Response Server Application Session 若 ASP Application Session 來 ASP

15 ASP.NET 1 ASP.NET Common Language Runtime 行不 ASP.NET 利 Early Binding Just-In-Time Compilation Native 行更 2 ASP.NET Framework Visual Studio 見 WYSIWYG 3 ASP.NET Common Language Runtime Web.NET Framework 類 Class Library 料都 Web ASP.NET

16 4 ASP.NET 行 Authentication 例 ASP.NET 邏 Visual Basic 理理 5 理 ASP.NET 利來 Web 不理理理 ASP.NET Framework ASP.NET Framework 6 ASP.NET Scalability 量理 ASP.NET Runtime 理理 Process 理異狀漏立理

17 7 ASP.NET 良離 ASP.NET Runtime 狀便 8 了 Windows

18 VB.NET Visual Basic 7.0 C# ASP C++ Visual Studio.NET VB.NET Visual 立不來便念 VB BASIC Windows GUI VB.NET 了 BASIC 列 BASIC 1 VB.NET 行滑行不 BASIC 說行流了 VB.NET 行流行來流

19 2 VB.NET 不便 BASIC 力 3 來 BASIC VB.NET Windows 行不 4 行理 BASIC 行 Windows VB.NET 理 VB.NET 行不 VB.NET 更行行行 5 NET Framework 類.NET Framework 了類 VB.NET.NET Framework 類來行理不 Windows API 了更類立行便

20 6 力 VB.NET 滑理 7 路 Internet VB.NET Internet 易路 8 Component Object Model ActiveX VB.NET 了 COM 行 N-Tiers 更 VB.NET 來 ActiveX ActiveX Control 路 Internet Explorer 行 VB.NET 9 連 DLL VB.NET 連 Dynamic Link Library:DLL 行更率更 10 料連 VB.NET 類料 Access Dbase SQL 便料料欄連料料連料理 VB.NET 更了 ADO.NET 更路料不料路料

21 更 11 IIS Windows NT + IIS ASP Active Server Page 來類 WWW CGI Common Gateway Interface VB.NET Web Class ASP 來 IIS ASP.NET 類 12 Visual Basic 行.NET Framework MSIL Microsoft Intermediate Language 行 MSIL JIT Just In Time 行 13 VB.NET VB Visual C++ C# Visual FoxPro.NET Framework 都類行更利

22 1 CPU Intel Pentium III 1GHz 理度 MB RAM 3 路連 1 Windows 2000 Server Windows.NET Server Windows XP Professional Windows Server 2003 IIS IIS IIS Internet Information Services Windows WWW 3.NET Framework Microsoft.NET Framework 立 XML Web Services Microsoft Windows Web 4 MDAC MDAC Microsoft Data Access Components 料料了 OLE DB ODBC ADO RDO

23 5.NET Framework SDK.NET Framework SDK 便參 6 Microsoft Office Access Microsoft 料理料料 7 Windows 8 Internet Explorer 6 Internet Explorer 路

24 六 ASP.NET 立立行 ASP.NET 路行 Internet Explore 5.5 IIS 5.0.NET Framework MDAC 1 Windows 2000 Professional Windows.NET Server Windows XP Professional IIS Internet Explorer NET Framework 4 MDAC 5 IIS 5.0 IIS 5.0 Visual Studio.NET Windows Component Update.NET Framework MDAC.NET Framework SDK

25 行 1 IIS IIS Internet Information Services Windows WWW Windows 2000 Windows XP Professional IIS Windows 1 / Windows 2 Windows 精靈 Internet Information Services IIS IIS 3 IIS Internet Information Services 立 Inetpub 料了 wwwroot 料行 ASP.NET 都 wwwroot 料行 2.NET Framework.NET Framework fault.asp

26 .NET Framework 3 MDAC MDAC 3-c795-4b7d-b d c&displaylang=zh-tw MDAC 4.NET Framework SDK.NET Framework SDK &FamilyID=9B3A2CA F41-A333C6B9181D 5 Visual Studio.NET Visual Studio.NET Visual Studio.NET Windows Component Update ASP.NET

27 行 ASP.NTE ASP.NET 行來不行 ASP.NET 行 ASP.asp ASP.NET.aspx ASP ASP.NET C:\Inetpub\wwwroot 料料行

28 料 aspx C:\Inetpub\wwwroot 料行若 aspx 料連料料更行 ASP.NET 行 1 Inetpub 料 wwwroot 料列 2 wwwroot 路料路更

29 說 1

30 2 說 Login Choose Testing Score Database Login Choose 年行 Testing 亂數來說都行都不 Database 料料來 Score 來來 Database 料來料錄

31 3 立料利 Access 立 quiz 料料料 basic 錄料 subjec 料 itembank 料 score scoretable scoretable 來錄料立料

32 quiz 料立料立料立

33 basic 料來錄料欄料類欄說 Stdid 欄 10 Name 欄 12 Passwd 欄 12 Class 欄 20 Grade 欄數年 basic 料料 basic 料立 login basic 料料

34 subject 料欄欄料類欄說 cid 欄 20 索不 Coursename 欄 50 subject 料 choose subject 料 cid cursename 欄

Itembank 料錄欄欄料類欄說 No 欄數 cid 欄 10 索不 stem 欄 255 option1 欄 255 1 option2

35 Itembank 料錄欄欄料類欄說 No 欄數 cid 欄 10 索不 stem 欄 255 option1 欄 option2 欄 option3 欄 option4 欄 itembank 料 itembank 料 option1 便欄 testing

36 score 料錄料欄欄料類欄說 No 欄數 stdid 欄 20 cid 欄 20 score 數欄數 ) testdate now scoretable 來錄料立 scoretable score subject basic 料欄來立 scoretable 欄料欄來來列錄 testdat 欄欄

37 料料料欄聯

39 行

41 1 login.aspx Web check_password 讀 bassic 料欄 choose_topic.aspx 來 login.asxp Namespace="System.Data"%> Namespace="System.Data.OleDb"%> <Script Language="VB" Runat="Server"> Dim tk_provider = "Provider=Microsoft.Jet.OLEDB.4.0" Dim tk_database = "Data Source=" & Server.MapPath( "quiz.mdb" ) Sub check_password(sender As Object,e As EventArgs) Dim tk_conn As OleDbConnection Dim tk_command As OleDbCommand Dim tk_reader As OleDbDataReader Dim tk_sql,str1 As String ' 料 tk_conn = New OleDbConnection( tk_provider & ";" & tk_database ) tk_conn.open() tk_sql = "Select * From basic Where stdid='" & stdid.text & "' And passwd='" & passwd.text & "'" tk_command = New OleDbCommand( tk_sql, tk_conn ) tk_reader= tk_command.executereader() ' 利 tk_reader 讀料欄

42 If tk_reader.read() Then Session.TimeOut=10 Session("stdname")=tk_reader.Item("name") str1 = "choose_topic.aspx" & "?stdid=" & stdid.text Response.Redirect( str1 ) Else show_message.text = "!" End If tk_conn.close() End Sub </Script> <HTML> <TITLE> 理 </TITLE> <BODY bgcolor="#ff,99,33"> <H2 ALIGN="CENTER"> <img border="0" src="images/logo.gif" width="148" height="42"> 理 </H2><HR> <H3 align="center"><span style="font-weight: 400"> </span></h3> <FORM Runat="Server"> <BLOCKQUOTE> <P align="center"><asp:textbox Runat="Server" Id=stdid/></P> <P align="center"><asp:textbox Runat="Server" TextMode="Password" Id=passwd/></P> <center><asp:button Runat="Server" Text=" " OnClick="check_password"/><center> <p></p>

43 </BLOCKQUOTE> <asp:label Runat="Server" Id=show_message ForeColor=Red/> </FORM> <HR> <p align="center"><font color="#ffffff" size="2">## 理! ##</font></p> </BODY> </BODY> </HTML>

44 2 choose_topic.aspx 來 Page_Load subject 料 cid coursename 欄 Web tesing testing.aspx 來 choose_topic.aspx Namespace="System.Data"%> Namespace="System.Data.OleDb"%> <Script Language="VB" Runat="Server"> Dim tk_provider = "Provider=Microsoft.Jet.OLEDB.4.0" Dim tk_database = "Data Source=" & Server.MapPath( "quiz.mdb" ) Dim tk_stdid As String Sub Page_Load(Sender As Object,e As EventArgs) Dim tk_conn As OleDbConnection Dim tk_command As OleDbCommand Dim tk_reader As OleDbDataReader Dim tk_rlist As RadioButtonList Dim tk_sql As String Dim str1 As String Dim I As Integer tk_stdid = Request("stdid") If tk_stdid = "" Then Response.Redirect("login.aspx") End If ' 料 tk_conn = New OleDbConnection( tk_provider & ";" & tk_database ) tk_conn.open() tk_sql = "Select * From subject" tk_command = New OleDbCommand(tk_sql, tk_conn) tk_reader = tk_command.executereader() I=1 tk_rlist = New RadioButtonList ' 利 tk_reader 讀料欄, While tk_reader.read() tk_rlist.items.add( Server.HTMLEncode(tk_reader.Item("cid") & " " & tk_reader.item("coursename") ))

45 tk_rlist.items(i-1).value = I I +=1 datapanel.controls.add(tk_rlist) End While tk_reader.close() tk_conn.close() End Sub ' testing.aspx Sub testing(sender As Object,e As EventArgs) Dim tk_list As ListControl = datapanel.controls(0) Dim str1 As String If Not tk_list.selecteditem Is Nothing Then str1 = "testing.aspx" & "?stdid=" & tk_stdid & "&subject=" & left(tk_list.selecteditem.text,3) Session("topicname")=Mid(tk_list.SelectedItem.Text,5) Response.Redirect(str1) End If End Sub </Script> <HTML> <TITLE> 理 </TITLE> <BODY bgcolor="#ff9933"> <H2 ALIGN="CENTER"> <img border="0" src="images/logo.gif" width="148" height="42"> 理 </H2><HR> <H3> </H3> <FORM Runat="Server"> <BLOCKQUOTE> <asp:panel Runat="Server" Id=datapanel/> <asp:button Runat="Server" Text=" " OnClick="testing"/> </BLOCKQUOTE> <asp:label Runat="Server" Id=show_message ForeColor=Red/> </FORM> </BODY> <script language="javascript"> <!-- document.write('<div align="center"><font size="2">'); document.write("<span id='clock'></span>"); var now,hours,minutes,seconds,timevalue; function showtime(){ now = new Date(); hours = now.gethours();

46 minutes = now.getminutes(); seconds = now.getseconds(); timevalue = (hours >= 12)? " " : " "; timevalue += ((hours > 12)? hours - 12 : hours) + " "; timevalue += ((minutes < 10)? " 0" : " ") + minutes + " "; timevalue += ((seconds < 10)? " 0" : " ") + seconds + " "; clock.innerhtml = timevalue; settimeout("showtime()",100); } showtime(); document.write('</font></div>'); //--> </script> </HTML>

47 3 行 testing.aspx Panel Id itempane 利 1~4 亂數立 scoring 料 score 料 Web scoring show_score.aspx 來 testing.aspx Namespace="System.Data"%> Namespace="System.Data.OleDb"%> <Script Language="VB" Runat="Server"> Dim tk_provider = "Provider=Microsoft.Jet.OLEDB.4.0" Dim tk_database = "Data Source=" & Server.MapPath( "quiz.mdb" ) Dim tk_stdid,tk_cid As String Dim tk_items,tk_score As Integer Sub Page_Load(Sender As Object,e As EventArgs) Dim tk_conn As OleDbConnection Dim tk_command As OleDbCommand Dim tk_reader As OleDbDataReader Dim tk_sql As String Dim I,J,X,no As Integer tk_stdid = Request("stdid") tk_cid = Request("subject") If tk_stdid = "" Or tk_cid="" Then Response.Redirect("login.aspx") End If topicname.text=session("topicname") tk_conn = New OleDbConnection( tk_provider & ";" & tk_database )

48 tk_conn.open() tk_sql = "Select * From itembank Where cid='" & tk_cid & "'" tk_command = New OleDbCommand(tk_sql, tk_conn ) tk_reader = tk_command.executereader() tk_items=0 ' 利 tk_reader 讀 itembank 料欄 While tk_reader.read() Dim tk_lit1 As New LiteralControl Dim tk_lit2 As New LiteralControl Dim tk_rlist As RadioButtonList Dim olist()={1,2,3,4} ' 亂數 For I=0 To 3 J=Fix(Rnd*4) X=olist(I) olist(i)=olist(j) olist(j)=x Next I ' tk_rlist = New RadioButtonList tk_lit1.text = "<B>" & tk_items+1 & "." tk_lit1.text &= Server.HTMLEncode(tk_reader.Item("stem")) tk_lit1.text &= "</B><BLOCKQUOTE>" tk_lit2.text = "</BLOCKQUOTE>" For I = 1 To 4 tk_rlist.items.add( Server.HTMLEncode(tk_reader.Item("option" & olist(i-1))) ) tk_rlist.items(i-1).value = I If olist(i-1)=1 Then If Not IsPostBack Then answer.text &= I End If

49 End If Next I ' 料 itempanel itempanel.controls.add(tk_lit1) itempanel.controls.add(tk_rlist) itempanel.controls.add(tk_lit2) tk_items +=1 End While tk_reader.close() tk_conn.close() End Sub Sub scoring(sender As Object,e As EventArgs) Dim tk_sql As String Dim tk_conn As OleDbConnection Dim tk_command As OleDbCommand Dim I As Integer ' tk_score=0 For I=0 To tk_items-1 Dim lt As ListControl = itempanel.controls(3*i+1) If Not lt.selecteditem Is Nothing Then If Mid(answer.Text,I+1,1) = lt.selecteditem.value Then ' 數 tk_score+=10 End If End If Next I ' score 料 tk_conn = New OleDbConnection( tk_provider & ";" & tk_database )

50 tk_conn.open() tk_sql = "INSERT INTO score (stdid, cid, score) VALUES (?,?,?)" tk_command = New OleDbCommand( tk_sql, tk_conn ) tk_command.parameters.add( New OleDbParameter("@stdid", OleDbType.Char, 255)) tk_command.parameters.add( New OleDbParameter("@cid", OleDbType.Char, 255)) tk_command.parameters.add( New OleDbParameter("@score", OleDbType.SmallInt)) tk_command.parameters(0).value = tk_stdid tk_command.parameters(1).value = tk_cid tk_command.parameters(2).value = tk_score tk_command.executenonquery() tk_conn.close() Response.Redirect( "show_score.aspx?stdid=" & tk_stdid) End Sub </Script> <HTML> <TITLE> 理 </TITLE> <BODY bgcolor="#ff9933"> <html> <head> <script> y=-1 function countmin( ) { y = y + 1 document.displaymin.displaybox.value=y settimeout("countmin( )",100) }

51 </script> </head> <body bgcolor=lightcyan text=black> <p> <script> countmin( ) </script></body></html><HEAD><SCRIPT LANGUAGE="JavaScript"> <!-- Original Administrator!-- Begin var up,down; var min1,sec1; var cmin1,csec1,cmin2,csec2; function Minutes(data) { for(var i=0;i<data.length;i++) if(data.substring(i,i+1)==":") break; return(data.substring(0,i)); } function Seconds(data) { for(var i=0;i<data.length;i++) if(data.substring(i,i+1)==":") break; return(data.substring(i+1,data.length)); } function Display(min,sec) { var disp; if(min<=9) disp=" 0"; else disp=" "; disp+=min+":"; if(sec<=9) disp+="0"+sec; else disp+=sec; return(disp); } function Up() { cmin1=0; csec1=0; min1=0+minutes(document.sw.beg1.value); sec1=0+seconds(document.sw.beg1.value);

52 UpRepeat(); } function UpRepeat() { csec1++; if(csec1==60) { csec1=0; cmin1++; } document.sw.disp1.value=display(cmin1,csec1); if((cmin1==min1)&&(csec1==sec1)) alert("timer-countup Stopped"); else up=settimeout("uprepeat()",1000); } function Down() { cmin2=1*minutes(document.sw.beg2.value); csec2=0+seconds(document.sw.beg2.value); DownRepeat(); } function DownRepeat() { csec2--; if(csec2==-1) { csec2=59; cmin2--; } document.sw.disp2.value=display(cmin2,csec2); if((cmin2==0)&&(csec2==0)) alert("timer-countdown Stopped"); else down=settimeout("downrepeat()",1000); } // End --> </SCRIPT><BODY><FORM name="sw"> <TABLE border="3" width="495"> <TR><TH width="481"> <p align="left"><font size="4"> 10 </font><br> <input type="text" name="beg1" size="7" value="10:00"> &n bsp; <input type="text" name="disp1" size="9"> <input type="button" value=" " onclick="up()"></th></tr> </TABLE> </FORM>

53 <FORM Runat="Server"> <P><asp:Button Runat="Server" Text=" " OnClick="scoring"/></P> <asp:textbox Runat="Server" Id=answer Visible=False/><P> <H2> <asp:label Runat=Server Id=topicname/></H2><HR> <BLOCKQUOTE> <asp:panel Runat="Server" Id=itempanel/> <P><asp:Button Runat="Server" Text=" " OnClick="scoring"/></P> </BLOCKQUOTE> <asp:label Runat="Server" Id=show_message ForeColor=Red/> </FORM> </BODY>

54 4 show_score.aspx 讀料料 HTML Repeater Id itempanel itempanel 料利 Repeater 來料欄 show_score.aspx Namespace="System.Data"%> Namespace="System.Data.OleDb"%> <Script Language="VB" Runat="Server"> Dim tk_provider = "Provider=Microsoft.Jet.OLEDB.4.0" Dim tk_database = "Data Source=" & Server.MapPath( "quiz.mdb" ) Sub Page_Load(Sender As Object,e As EventArgs) Dim tk_conn As OleDbConnection Dim tk_adpt As OleDbDataAdapter Dim tk_ds As DataSet Dim tk_sql As String If Request("stdid") = "" Then Response.Redirect("login.aspx") End If stdid.text=request("stdid") stdname.text=session("stdname") tk_conn = New OleDbConnection( tk_provider & ";" & tk_database ) tk_conn.open() ' scoretable 料料 tk_sql = "Select * From scoretable Where stdid='" & Request("stdid") & "'" tk_adpt = New OleDbDataAdapter( tk_sql, tk_conn )

55 tk_ds = New Dataset() tk_adpt.fill(tk_ds, "scoretable") ' 料 itemrepeater itemrepeater.datasource = tk_ds.tables( "scoretable" ).DefaultView itemrepeater.databind() tk_conn.close() End Sub Sub choose_topic(sender As Object, e As EventArgs) Dim str1 As String str1 = "choose_topic.aspx" & "?stdid=" & Request("stdid") Response.Redirect(str1) End Sub </Script> <HTML> <TITLE> 理 </TITLE> <BODY bgcolor="#ff9933"> <H2 align="center"> <img border="0" src=" width="148" height="42"> 理 </h2> <HR> <FORM Runat="Server"> <BLOCKQUOTE> <H2><asp:Label Runat="Server" Id=stdid/> <asp:label Runat="Server" Id=stdname/></H2> <TABLE BORDER=1 CELLPADDING="2" CELLSPACING="0"> <TR BGCOLOR=YELLOW><TD ALIGN=CENTER> </TD><TD ALIGN=CENTER> </TD><TD

56 ALIGN=CENTER> </TD><TD ALIGN=CENTER> </TD></TR> <asp:repeater Runat="Server" Id=itemrepeater> <ItemTemplate> <TR> <TD ALIGN=CENTER><%#Container.DataItem("cid")%> </TD> <TD ALIGN=LEFT><%#Container.DataItem("coursename")%> </TD> <TD ALIGN=CENTER><%#Container.DataItem("score")%> </TD> <TD ALIGN=CENTER><%#Container.DataItem("testdate")%> </TD> </TR> </ItemTemplate> </asp:repeater> </TABLE> <P><asp:Button Runat="Server" Text=" " OnClick="choose_topic"/></P> </BLOCKQUOTE> </FORM> </BODY> </HTML>

57 Internet 更更易路來理識歷 Access 獵不料識更練 ASP.NET 爲了更了識不來更更

58 路不都領了不更了 Microsoft Office Access ASP.NET VB Visual Basic 都力了力了路益益來

59 力來了便了便理都不了不不都來了流了

60 參 [1] ASP [2]ASP.NET 若 [3]ASP.NET SQL Server 李 [4]ASP&ACP 路林李 [5].NET Framewor [6]Microsoft ASP.NET [7] 料 [8] --ASP

61 錄料欄 1 basic 料錄料欄欄說欄欄說 stdid sex name class passwd grade 年 2 subject 料欄 cid Coursename 欄說年度 3 itembank 料錄欄欄說 No cid 年度 Stem option1 1 option2 2 option3 3 option4 4 4 score 料錄料欄 no stdid cid score testdate 欄說年度

untitled

untitled 參例邏說邏 () 1. VB 2005 Express 說 2. 1 3. 2 4 4. 3 理念說識量李龍老立 1. 理料 2. 理料 3. 數料 4. 流邏念 5. 良 6. 讀行行 7. 行例來邏 1. 說 2. 說理類 3. 良 4. 流邏念 5. 說邏理力令 1. 2. 3. 4. 5. 1 參料念 1. ( Visual Basic

理 金 老 年

理金老年