untitled

Size: px

Start display at page:

Download "untitled"

ありさかわらい
5 years ago
Views:

1 Web Web Web Web 1. Web Web Web

2 Web Web ( Web Web Web Web Web Web Web ASP PHP JSP ASP.NET Web Web Web Web Web Web 2 Web 3 4

3 2. Web Photoshop Dreamweaver Web HTML JavaScript Flash Flash swf Web Web Web (1) Web Web ASP ASP (2) SQL Server2000 SQL Server2000 SQL (3) ASPUpload - Web ASPUpload3.0 CPU Web

4 3 Web 4 Web 5 Web 6 7 Photoshop Flash

5 E-R 2 E-R 2 E-R 2 dynasty binding calli_type

6 calli_subtype calligraph_works calligrapher font_img Powerdesign9.0. SQL Server2000 (1) dynasty calligrapher (2) calli_type calli_subtype (3) calli_subtype calligrapher (4) calli_subtype calligraph_works (5) (5) calligrapher calligraph_works (6) binding calligraph_works (7) calligraph_works font_img (8) (8) calli_subtype font_img dynasty: binding: calli_type: calli_subtype: calligraph_works: calligrapher:

7 font_img: 3

8 calli_type calli_type calli_subtype calli_subtype dynasty dynasty binding binding calligraph_works calligraph_works font_img font_img calligrapher calligrapher 2 binding - - binding_id binding_id int 4 TRUE FALSE ID binding_name binding_name nvarchar FALSE FALSE deleted deleted int 4 FALSE FALSE 2 binding_ id add _ binding.asp deleted=0 deleted=1 3 calli_subtype - - subtype_id subtype_id int 4 TRUE FALSE ID ctype_id ctype_id int 4 FALSE TRUE ID subtype_name subtype_name nvarchar(12) 12 FALSE FALSE subtype_description subtype_description nvarchar(500) 500 FALSE FALSE deleted deleted int 4 FALSE FALSE ctype_id add_callisubtype.asp

9 deleted=0 deleted= calli_type - - ctype_id ctype_id int 4 TRUE FALSE ID ctype_name ctype_name nvarchar(10) 10 FALSE FALSE ctype_description ctype_description nvarchar(500) 500 FALSE FALSE deleted deleted int 4 FALSE FALSE ctype_id add_callitype.asp deleted=0 deleted=1 5 dynasty - - dynasty_id dynasty_id int 4 TRUE FALSE ID dynasty_name dynasty_name nvarchar(12) 12 FALSE FALSE dynasty_date dynasty_date nvarchar(50) 50 FALSE FALSE dynasty_description dynasty_description nvarchar(4000) 4000 FALSE FALSE deleted deleted int 4 FALSE FALSE dynasty_id add_dynasty.asp deleted=0 deleted=1

10 6 calligraph_works - - works_id works_id int 4 TRUE FALSE ID works_name works_name nvarchar(50) 50 FALSE FALSE works_version works_version nvarchar(50) 50 FALSE FALSE calligrapher_id calligrapher_id int 4 FALSE FALSE ID works_file_name works_file_name nvarchar(50) 50 FALSE FALSE works_file_location works_file_location nvarchar(200) 200 FALSE FALSE subtype_id subtype_id int 4 FALSE TRUE ID dynasty_name dynasty_name nvarchar(12) 12 FALSE FALSE works_date works_date datetime 8 FALSE FALSE binding_id binding_id int 4 FALSE TRUE ID length_width length_width nvarchar(20) 20 FALSE FALSE * lines lines int 4 FALSE FALSE words words int 4 FALSE FALSE works_content works_content nvarchar(4000) 4000 FALSE FALSE works_review works_review nvarchar(4000) 4000 FALSE FALSE works_collector works_collection nvarchar(100) 100 FALSE FALSE works_content_type works_content_type nvarchar(10) 10 FALSE FALSE works_medium works_medium nvarchar(10) 10 FALSE FALSE works_price works_price int 4 FALSE FALSE works_selloff works_selloff int 4 FALSE FALSE works_quentity works_quentity int 4 FALSE FALSE works_status works_status int 4 FALSE FALSE calligrapher_id subtype_id binding_id workupload.asp workupdeal.asp length_width * (cm) lines words works_content_type works_medium works_status 0= 1= 2=

11 7 calligrapher - - calligrapher_id calligrapher_id int 4 TRUE FALSE ID calligrapher_name calligrapher_name nvarchar(12) 12 FALSE FALSE family_name family_name nvarchar(4) 4 FALSE FALSE formal_name formal_name nvarchar(8) 8 FALSE FALSE word_name word_name nvarchar(4) 4 FALSE FALSE alias alias nvarchar(4) 4 FALSE FALSE signature_name signature_name datetime 8 FALSE FALSE birthday birthday datetime 8 FALSE FALSE deathday deathday nvarchar(12) 12 FALSE FALSE dynasty_id dynasty_id int 4 FALSE TRUE ID dynasty_year dynasty_year nvarchar(20) 20 FALSE FALSE native_place native_place nvarchar(50) 50 FALSE FALSE subtype_id subtype_id int 4 FALSE ID calligrapher_intro calligrapher_intro duction duction nvarchar(4000) 4000 FALSE learn_from learn_from nvarchar(20) 20 FALSE works works nvarchar(100) 100 FALSE link_person link_person nvarchar(12) 12 FALSE link_telephone link_telephone nvarchar(20) 20 FALSE link_fax link_fax nvarchar(20) 20 FALSE link_mobile link_mobile nvarchar(20) 20 FALSE link_ link_ nvarchar(40) 40 FALSE link_qq link_qq nvarchar(20) 20 FALSE QQ deleted deleted int 4 FALSE dynasty_id subtype_id add_calligrapher.asp deleted=0 deleted=1

12 8 font_img - - font_id font_id int 4 TRUE FALSE ID font_char font_char nvarchar(2) 2 FALSE FALSE font_spell font_spell nvarchar(8) 8 FALSE FALSE works_id works_id int 4 FALSE TRUE ID font_file_name font_file_name nvarchar(50) 50 FALSE FALSE font_file_location font_file_location nvarchar(200) 200 FALSE FALSE calligrapher_name calligrapher_name nvarchar(12) 12 FALSE FALSE works_name works_name nvarchar(50) 50 FALSE FALSE works_versin works_versin nvarchar(50) 50 FALSE FALSE dynasty_name dynasty_name nvarchar(12) 12 FALSE FALSE deleted deleted int 4 FALSE FALSE works_id characterupload.asp characterupdeal.asp deleted=0 deleted= IIS Web ASP ADODB.Connection SQL Server 2000 <% Dim db Set db=server.createobject("adodb.connection") ADODB Connection db.open"database=shufa;uid=sa;pwd=;driver={sql Server};Server=(local);" shufa sa null %>

3. 3.1 /xinshang/showcalliworks.asp: /xinshang/works_detail.asp: /shufarenwu/showcalligrapher.asp: /shufarenwu/calligrapher_detail.asp: /add_binding.

13 /xinshang/showcalliworks.asp: /xinshang/works_detail.asp: /shufarenwu/showcalligrapher.asp: /shufarenwu/calligrapher_detail.asp: /add_binding.asp: /add_callitype.asp: /add_callisubtype.asp: /add_dynasty.asp: /showfontimg.asp: /bigfont.asp: shufa calligraph_works calligrapher calli_subtype 4 4

14 4 showcalliworks.asp <% set rs=server.createobject("adodb.recordset") SQL="Select calligraph_works.*,calligrapher.*,calli_subtype.*,binding.* From calligraph_works,calligrapher,calli_subtype,binding where calligraph_works.calligrapher_id=calligrapher.calligrapher_id and calligraph_works.subtype_id=calli_subtype.subtype_id and calligraph_works.binding_id=binding.binding_id" calligraph_works calligrapher calli_subtype rs.open SQL, db, 3, 2 SQL 3 2 rs.pagesize=5 5 If request.querystring("pageno")="" Then pageno=1 pageno=clng(request.querystring("pageno")) ' Cint 1 1 rs.absolutepage=pageno If pageno mod 5 <> 0 Then 5 page=pageno-(pageno mod 5)+1 page=pageno-5+1 response.write "<table><td align=center width=150> " & _ rs.recordcount & " <td align=center width=100> " &rs.pagecount&" " rs.pagecount If page<>1 Then response.write "<td width=60><a href=showcalliworks.asp?pageno=" & page-5 &_"> </a>"

15 response.write "<td width=60> " If rs.pagecount-page>=5 Then response.write "<td width=60><a href=showcalliworks.asp?pageno=" &_page+5&"> </a>" response.write "<td width=60> " For i=page to page+4 Next If i>rs.pagecount Then response.write "<td width=30>" If pageno=i Then If pageno<>1 Then response.write "<td width=30><b>[ " & i & " ] </b>" response.write "<td width=30><a href=showcalliworks.asp?pageno=" & i & _">[ " & i & " ] </a>" response.write "<td width=60><a href=showcalliworks.asp?pageno=" & _ pageno-1 & "> </a>" response.write "<td width=60> " If pageno<>rs.pagecount Then response.write "<td width=60><a href=showcalliworks.asp?pageno=" & _ pageno+1 & "> </a>" response.write "<td width=60> "

16 response.write "</table>"%></td></tr> <tr><td><table> <tr><td ><div align="center"> </div></td> <td><div align="center" > </div></td> <td><div align="center"> </div></td></tr> <%For i=1 to rs.pagesize%> <tr><td><div align="center"><%=rs("works_id")%></div></td> <td><a target="_blank" href="works_detail.asp?id=<%=rs("works_id")%>"> <%=rs("works_name")%></a></td> <td><a target="_blank" href="bigworks.asp?location=<%=rs("works_file_location")%>"> <img src=<%=rs("works_file_location")%> width="150" height="120"></a> </td></tr> <% rs.movenext If rs.eof Then Exit For EOF Next rs.close db.close %> bigworks.asp <%location=request("location")%> <img src=<%=location%>> 5

5 works_detail.asp <% if trim(request("id"))<>"" then set rs=server.createobject("adodb.recordset") sqlstr="select calligraph_works.*,calligrapher.*,calli_subtype.*,binding.

17 5 works_detail.asp <% if trim(request("id"))<>"" then set rs=server.createobject("adodb.recordset") sqlstr="select calligraph_works.*,calligrapher.*,calli_subtype.*,binding.* From calligraph_works,calligrapher,calli_subtype,binding where calligraph_works.calligrapher_id=calligrapher.calligrapher_id and calligraph_works.subtype_id=calli_subtype.subtype_id and calligraph_works.binding_id=binding.binding_id and works_id=" & request("id") calligraph_works calligrapher calli_subtype binding rs.open sqlstr,db,0,1 0 MoveNex GetRows 1 end if %> <form name="f1" action="" method="post"> <table ><tr><td> </td><td><%=rs("works_name")%></td> <td> </td><td><%=rs("lines")%></td></tr> <tr><td colspan="4"> </td></tr>

18 <tr><td colspan="4"> <a target="_blank" href="bigworks.asp?location=<%=rs("works_file_location")%>"> <img src=<%=rs("works_file_location")%> width="150" height="120"></a></td></tr> <tr><td colspan="4"><div align="center"> <a href="javascript:window.close()"> </a></div></td></tr></table></form> 3.2 /workupload.asp: /workupdeal.asp: /add_calligrapher.asp: /add_binding.asp: /add_callitype.asp: /add_callisubtype.asp: /add_dynasty.asp: /characterupload.asp: /characterupdeal.asp: 6

19 6 rkupload.asp <form action="workupdeal.asp" method="post" enctype="multipart/form-data"> <table ><tr><td> </td> <td><input name="works_name" type="text" id="works_name" size="10"></td> <td> </td> <tr><td> </td> <td colspan="3"><input type="file" name="upfile"></td></tr> <tr><td colspan="4"> <input name="submit" type="submit" value=" "> <input type="reset" name="submit" value=" "></td></tr></table></form> ASPUpload workupdeal.asp <% dim upload set upload=server.createobject("persits.upload.1") upload.setmaxsize 8*1024*1024,false 8MByte upload.overwritefiles=true upload.save server.mappath("works") works set rs=server.createobject("adodb.recordset") sqlstr="select * from calligraph_works" rs.open sqlstr,db,2,2 2 2 rs.addnew rs("works_file_location")=upload.files("upfile").path rs("works_name")=upload.form("works_name").value

20 . rs("works_review")=upload.form("works_review").value rs.update rs.close db.close response.redirect../xinshang/showcalliworks.asp showcalliworks.asp set rs=nothing %> 3.3 /showfontimg.asp 7 7 showfontimg.asp <form name="form1" method="post" action="">

21 <input name="fontname" type="text" id="fontname"> <input type="submit" name="submit" value=" "> all </form> <% set rs=server.createobject("adodb.recordset") if request.form("fontname")<>"" then else fontname=request.form("fontname") if fontname=request.querystring("fontname")<>"" then fontname=request.querystring("fontname") end if end if if fontname<>"" then else if fontname="all" then else end if sql="select * from font_img" sql="select * from font_img where font_char like'%" & fontname & "%'" sql="select * from font_img" fontname="all" end if rs.open SQL, db, 1, sql="select * from font_img where font_char like'%" & fontname & "%'" if rs.recordcount<1 then response.write " 您您 " response.end end if rs.movefirst rs.pagesize=9 9 If request.querystring("pageno")="" or request.form("fontname")<> "" Then pageno=1

22 pageno=clng(request.querystring("pageno")) Cint 1 1 rs.absolutepage=pageno If pageno mod 5 <> 0 Then 5 page=pageno-(pageno mod 5)+1 page=pageno-5+1 response.write "<table><td align=center width=100> " & _ rs.recordcount & "<td align=center width=100> " &rs.pagecount rs.pagecount If page<>1 Then response.write "<td width=60><a href=showfontimg.asp? fontname="& fontname & "&pageno=" & page-5 &"> </a>" response.write "<td width=60> " If rs.pagecount-page>=5 Then response.write "<td width=60><a href=showfontimg.asp? fontname="& fontname & "&pageno=" & page+5 & "> </a>" response.write "<td width=60> " For i=page to page+4 If i>rs.pagecount Then response.write "<td width=30>" If pageno=i Then response.write "<td width=30><b>[ " & i & " ] </b>" response.write "<td width=30><a href=showfontimg.asp? fontname="&

23 fontname & "&pageno=" & i &">[ " & i & " ] </a>" Next If pageno<>1 Then response.write "<td width=60><a href=showfontimg.asp? fontname="& fontname & "&pageno=" &pageno-1 & "> </a>" response.write "<td width=60> " If pageno<>rs.pagecount Then response.write "<td width=60><a href=showfontimg.asp? fontname="& fontname & "&pageno=" & pageno+1 & "> </a>" response.write "<td width=60> " response.write"</table>"%> <table><%for i=1 to 3%> 9 3 <tr><% for j=1 to 3%> 9 3 <td><a target="_blank" href="bigfont.asp?font_id=<%=rs("font_id")%>"> <img src=<%=rs("font_file_location")%> width="150" height="120"></a> <%=rs("font_char")%><br> <%=rs("calligrapher_name")%></td> <% rs.movenext if rs.eof then response.end next %></tr> <% Next RS.Close

24 %> db.close 8 8 bigfont.asp works_detail.asp works_detail.asp 3.4 /admin/showcalligrapher.asp: /admin/showcalliworks.asp: /admin/shoefontimg.asp:

/admin/showcallisubtype.asp: /admin/showbinding.asp: /admin/showcallibtype.asp: /admin/ showdynasty.asp: /admin/delbinding.asp: /admin/ showcallisubtype.

25 /admin/showcallisubtype.asp: /admin/showbinding.asp: /admin/showcallibtype.asp: /admin/ showdynasty.asp: /admin/delbinding.asp: /admin/ showcallisubtype.asp: /admin/ showcallitype.asp: /admin/deldynasty.asp: /admin/delgrapher.asp: /admin/delworks.asp: /admin/delfont.asp: /adminlogin.asp: 9 9 showfontimg.asp

<a href="delfont.asp?id=<%=rs("font_id")%>"> </a> delfont.asp <% set rs=server.createobject("adodb.recordset") id=request("id") sqlstr="select * from font_img where font_id=" & id rs.

26 <a href="delfont.asp?id=<%=rs("font_id")%>"> </a> delfont.asp <% set rs=server.createobject("adodb.recordset") id=request("id") sqlstr="select * from font_img where font_id=" & id rs.open sqlstr,db,2,2 2 2 rs.delete rs.update response.redirect "showfontimg.asp" showcalliworks.asp %> admin.asp <% uname=request("uname") upassword=request("upassword") if uname<>"" and upassword<>"" then

27 if uname="admin" and upassword="admin" then uname upassword response.redirect "admin/admin.asp" admin.asp else response.write "!<br>" uname="" upassword="" response.write "<a href='adminlogin.asp'> </a>" response.write "<a href='index.asp'> </a>" response.end end if end if %> : admin : admin 4. ASP Web Web Web

28 ORC ( ) [1] ASP [2] ASP+SQL Server [M] [3] [ ] Khristine Annwn Page Dreamweaver MX [4] [5] [6]

システム分析とデータベース設計

システム分析とデータベース設計システム設計 1. 構造化システム設計 DFD からモジュール設計 2. プログラミング HTML,VBScript,ASP, データベース 3. プログラミング作法レイアウト, プログラム 3 構造 4. プログラミング補題 ( 会員登録 ) システム設計技法 - 受注処理の DFD を例に受注処理の DFD さらなるプロセスの詳細化商品ファイル在庫ファイル会員会員番号商品番号商品番号