《2yup漂流祈愿瓶大家一齐做》（四）


'***************************************************************
以下是全部的副程式部分：
[说明]副程式调用是以参数Action为依据，这在第二讲中已经很清楚地表达出来了。

请将他们依照第一讲的位置各就各位放好，让页面必要时候调用。按固定的位置放好，以后只要拿出规划图就知道在那个位置，维护起来就容易了。

<%
'**************************
'***** 副程式部分 *****
'**************************
%>


<%
''================祈愿输入和修改界面1================
Sub Wish()
'如果是修改就读出原数据，并将Action设定成SaveEdit(保存修改)
'否则，将Action设定成Save(保存新数据)
if UserName <> "" and Action = "EditWish" and id <> "" then
name = Rs("name")
Sex = Rs("Sex")
mail = Rs("mail")
purpose = Rs("purpose")
live = Rs("live")
Content = Rs("Content")
My_Age = MyAge(Rs("Birthday"))
Action = "SaveEdit"
else
Action = "Save"
end if
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="1">
<tr><FORM method='post' action='<%=Request.ServerVariables("URL")%>'>
<INPUT TYPE="hidden" NAME="Action" VALUE="<%=Action%>">
<INPUT TYPE="hidden" NAME="id" VALUE="<%=id%>">
<td align="right">名字：</td>
<td><input type="text" size="12" maxlength="12" name="name"
VALUE="<%=name%>" onclick="Javascript:this.value='';">   </td>
<td align="right">性别：</td>
<td><select name="sex" size="1">
<%If Sex <> "" Then%>
<option value="<%=Sex%>" Selected><%=Sex%></option>
<%End If%>
<option value="">-请选择-</option>
<option value="先生">男　　生</option>
<option value="小姐">女　　生</option>
</select></td>
</tr>
<tr>
<td align="right">信箱：</td>
<td><input type="text" size="12" name="mail" VALUE="<%=mail%>"
onclick="Javascript:this.value='';"></td>
<td align="right">目的：</td>
<td><select name="purpose" size="1">
<%'转换英文名称为中文
If purpose <> "" Then
Select Case purpose
Case "family"
Chinese_purpose = "家庭"
Case "friend"
Chinese_purpose = "朋友"
Case "future"
Chinese_purpose = "将来"
Case "health"
Chinese_purpose = "健康"
Case "life"
Chinese_purpose = "生活"
Case "love"
Chinese_purpose = "恋爱"
Case "study"
Chinese_purpose = "学业"
Case "wealth"
Chinese_purpose = "财富"
Case "work"
Chinese_purpose = "事业"
End Select%>
<option value="<%=purpose%>" Selected><%=Chinese_purpose%></option>
<%End If%>
<option value="">-请选择-</option>
<option value="love">恋　　爱</option>
<option value="study">学　　业</option>
<option value="health">健　　康</option>
<option value="family">家　　庭</option>
<option value="work">事　　业</option>
<option value="future">将　　来</option>
<option value="wealth">财　　富</option>
<option value="life">生　　活</option>
<option value="friend">朋　　友</option>
</select></td>
</tr>
<tr>
<td align="right">年龄：</td>
<td><input type="text"