|
《2yup漂流祈愿瓶大家一齊做》（二）
2003年2月18日 2:50:22(2)
'******************'********************************************
（五）站點工作流程（邊上的號碼是上一講的副程式代號）
一、參加全過程的幅程式
左邊：explain()、MyLinks(L) [12、15]
中上：PageSet()、SearchEngine() [5、6]
右邊：SearchList()、MyLinks(R) [7、15]
二、普通用戶（祈愿者和查詢者）
___翻頁(5)-->結果(3)-->點擊瓶子___
|___搜索(6)-->結果(3)-->點擊瓶子___|-->詳情(4)-|
進入-> 查看(3)-->| |
|___點擊列表名字(7)-->詳情(4)|-----------------|-->[回首頁(3)]
| |
|___點擊紅瓶子-->祈愿輸入界面(1)-->保存(2)-----|
三、管理用戶
[刪除] __查看(3)->點擊瓶子_
___| |-->刪除動作(10)-->[回首頁(3)]
| |__點擊列表名字(7)___|
登入界面(8)->驗證(9)-> |
| __查看(3)->點擊瓶子_
|___| |-->界面(1)-->動作(2)-->[回原頁(3)]
[更改] |__點擊列表名字(7)___|
'***************************************************************
（六）站點網頁制作流程
1、編置頁面版幅(包括編寫 .Css 和 部分的 .js)。
2、依照（四）安置各個副程式在網頁的位置，建立網頁真實構架。
3、依照（一）和構架建立設定區。
4、依照（四）和構架編寫通用函數。
5、依照（四）、（五）和構架編寫各部位程式。
6、調試。
'***************************************************************
（七）站點網頁制作
從這里開始我們就真正的進入網頁實做階段。
一、(步驟1和2)編置頁面版幅和安置副程式，建立網頁真實構架。
(以下是index.asp已經安上了各副程式的html真實架構)
現在做的是上一講中的（四）站點的頁面設計圖表里的html部
分，我們要根據它來設置設定區和編寫副程式等。
'---------------------------------------------------------
<%
'參照上一講的程式名稱和編號
'[1] 代表 在設定區
'[2] 代表 是副程式
'[3] 代表 是通用函數
%>
<html>
<head>
<title><%=PageTitle%><%'[1]網頁標題%></title>
<!-----------------.css 待寫----------------------->
<META http-equiv=Content-Type content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="<%=picPath%>bg.gif<%'[1]圖片路徑%>">
<!-----------------.js 待寫----------------------->
<br>
<p align="center"><%Call top()%><%'[2]頁頭信息副程序13%></p>
<div align="center">
<center>
<%'進入管理提示，以紅色子顯示
If UserName <> "" Then
Response.Write "<font color='red'>您已經進入了管理界面，"
End if
Response.Write "搜索時瓶子會慢速平行漂流便于查看</font>"%>
<TABLE BORDER="1">
<TR>
<!------------------------左邊部分------------------------------->
<TD VALIGN="top">
<TABLE CELLPADDING="5">
<TR>
<TD HEIGHT="20" WIDTH="100%" ALIGN="center">
<B>祈愿瓶使用說明</B>
</TD>
</TR>
<TR>
<TD HEIGHT="248" VALIGN="top">
<%Call explain()%><%'[2]說明文副程序12%>
</TD>
</TR>
<TR>
<TD HEIGHT="*" ALIGN="center">
<%Call MyLinks(L1)%><%'[1][2]左邊自定義本站連接副程序15%>
<%Call MyLinks(L2)%><%'[1][2]左邊自定義本站連接副程序15%>
<%Call MyLinks(L3)%><%'[1][2]左邊自定義本站連接副程序15%>
<BR>
HP Wish Board V1.0
</TD>
</TR>
</TABLE>
</TD>
<!------------------------中間部分------------------------------->
<TD>
<!-----中間上部分------>
<table border="0" cellpadding="0" cellspacing="0" width="400">
<tr>
<td valign="top"><%Call PageSet()%><%'[1][2]翻頁設定副程序5%></td>
<td ALIGN="right"><%Call SearchEngine()%><%'[2]祈愿搜索副程序6%></td>
</tr></form>
<!-----中間下部分------>
<%
Select Case Action '進入輸入和查看詳情時頁面色彩變淡
Case "Wish","EditWish","Save","SaveEdit","detail"
Special = "style=""background-color:white;Filter:Alpha(opacity=50)"""
End Select
%>
<table border="0" cellpadding="0" cellspacing="0" width="400"
background="<%=picPath%><%'[1]圖片路徑%>bg.jpg" height="200"
style="border:1 solid black">
<tr>
<td height="230" <%=special%> ALIGN="center"><P><BR>
<%
Select Case Action
Case "Wish","EditWish"
Call Wish() '[2]祈愿輸入和修改界面副程序1
Case "Save","SaveEdit"
Call SaveWish() '[2]保存祈愿副程序2
Case "detail"
Call ViewDetail()'[2]查看詳情副程序4
Case "login1"
Call login1() '[2]管理登入界面副程序8
Case Else
Call ViewWish() '[2]顯示祈愿副程序3
End Select
Response.Write Msgs
%>
</td>
</tr>
<tr>
<td valign="bottom">
<a href="?action=Wish">
<img src=http://cfan.net.cn/info/"<%=picPath%>reng.gif<%'[1]圖片路徑%>" alt="祈愿"
width="72" height="64" border=0></a></td>
</tr>
</TD>
<!------------------------右邊部分------------------------------->
<TD VALIGN="top">
<TABLE CELLPADDING="5">
<TR>
<TD HEIGHT="20" WIDTH="100%" ALIGN="center">
<B>最后<%=ListNum%><%'[1]表列數%>名許愿者</B>
</TD>
</TR>
<TR>
<TD HEIGHT="248" VALIGN="top">
<%Call SearchList()%><%'[2]最后祈愿列表副程序7%>
</TD>
</TR>
<TR>
<TD HEIGHT="*" ALIGN="center">
<%' 右邊鏈接(管理入口，不用更改)
R1 = "首頁||許愿首頁||index.asp"
R2 = "管理||管理登入||index.asp?Action=login1"
R3 = "退出||退出管理||index.asp?Action=exit"%>
<%Call MyLinks(R1)%><%'[2]本站連接副程序15%>
<%Call MyLinks(R2)%><%'[2]本站連接副程序15%>
<%Call MyLinks(R3)%><%'[2]本站連接副程序15%>
<BR>
HP Wish Board V1.0
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</center>
</div>
<%Call bottom()%><%'[2]版權聲明副程序14%>
</body>
</html>
<%
Call closetable(rs) '[3]關閉臨時表
Call closedb(conn) '[3]關閉數據庫
%>
'---------------------------------------------------------
累了，明天再寫吧。呵、呵、、、我都忘了點原創了。
|
