2yup Drifting Prayer Bottle Everybody do it together (d)

"2yup Drifting Prayer bottle Everybody do Together" (four)


'***************************************************************
The following are all the sub-program sections:
[Description] The applet call is based on the parameter action, which is clearly expressed in the second lecture.

Please put them in place according to the first speaking position and let the page be called when necessary. Put it in a fixed position, then just take out the plan to know in that position, maintenance is easy.

<%
'**************************
' * * * Deputy Program Part * * *
'**************************
%>


<%
"================ pray input and modify interface 1================
Sub Wish ()
' If you are revising to read out the original data and set the action to Saveedit (save changes)
' Otherwise, set the action to save (save the new data)
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%>" >
&LT;TD align= "Right" > name:</td>
<td><input type= "text" size= "a" maxlength= "a" name= "name"
Value= "<%=name%>" onclick= "javascript:this.value="; > </td>
&LT;TD align= "right" > Sex:</td>
<td><select name= "Sex" size= "1" >
<%if Sex <> "" then%>
<option value= "<%=Sex%>" selected><%=sex%></option>
<%end if%>
<option value= "" >-Please choose-</option>
<option value= "Mr." > Boy </option>
<option value= "Miss" > Girl </option>
</select></td>
</tr>
<tr>
&LT;TD align= "Right" > Mailbox:</td>
<td><input type= "text" size= "Name=" "Mail" value= "<%=mail%>"
onclick= "javascript:this.value= ';" ></td>
&LT;TD align= "Right" > Purpose:</td>
<td><select name= "Purpose" size= "1" >
<% ' Convert English name to Chinese
If purpose <> "" Then
Select Case Purpose
Case "Family"
Chinese_purpose = "Family"
Case "Friend"
Chinese_purpose = "Friend"
Case "Future"
Chinese_purpose = "Future"
Case "Health"
Chinese_purpose = "Health"
Case "Life"
Chinese_purpose = "Life"
Case of "Love"
Chinese_purpose = "Love"
Case "study"
Chinese_purpose = "study"
Case "wealth"
Chinese_purpose = "wealth"
Case "Work"
Chinese_purpose = "Career"
End Select%>
<option value= "<%=purpose%>" selected><%=chinese_purpose%></option>
<%end if%>
<option value= "" >-Please choose-</option>
<option value= "Love" > </option>
<option value= "Study" > Academic </option>
<option value= "Health" > Health </option>
<option value= "Family" > Family </option>
<option value= "Work" > Career </option>
<option value= "Future" > Future </option>
<option value= "Wealth" > Wealth </option>
<option value= "Life" > Living </option>
<option value= "friend" > Friends </option>
</select></td>
</tr>
<tr>
&LT;TD align= "Right" > Age:</td>
<td><input type= "Text"