|
《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]关闭数据库
%>
'---------------------------------------------------------
累了，明天再写吧。呵、呵、、、我都忘了点原创了。
|
