利用ASP编写动态回复表单

t;删除资料"
注解：先呼叫SetFromForm子程序取得表单内容再将表单错误信息传回：
SetFromForm
注解：呼叫DeleteForm将子程序并将数据库中stor_id字段值等于表单名称为stor_id之值的资料删除并将数据库错误信息传回：
strStatus = DeleteForm (Request("stor_id"))
IF strStatus = "" THEN
注解：数据库运作无误：
strFeedback = "<B>名称资料已经删除.</B><BR>"
ELSE
注解：设定显示参数并重新显示表单内容让使用者了解问题所在
strFeedback = strStatus
END IF
strTitle = "名称删除完成"
CASE ELSE
strTitle = "名称维护与管理"
strFeedback = "不被认可的维护管理程序: <B>" & Request("Process") & "</B>.
<BR>"
END SELECT  
注解：显示表单错误信息和数据库错误信息：
Response.Write "<H3>" & strTitle & "</H3><BR>"
Response.Write "<B>" & strFeedBack & "</B><BR>"
注解：如果管理程序不为删除程序则显示表单：
IF Request("Process") <> "删除资料" THEN
%>
<table border="0" width="100%">
<tr>
<td align="left">
编号：
</td>
<td align="left">
<%ShowText "stor_id"， stor_id， 4， 4 %>
</td>
</tr>
<tr>
<td align="left">
名称：
</td>
<td align="left">
<%ShowText "stor_name"， stor_name， 40， 40 %>
</td>
</tr>
<tr>
<td align="left">
通信地址：
</td>
<td align="left">
<%ShowText "stor_address"， stor_address， 40， 40 %>
</td>
</tr>
<tr>
<td align="left">
城市:
</td>
<td align="left">
<%ShowText "city"， city， 20， 20 %>
</td>
</tr>
<tr>
<td align="left">
省:
</td>
<td align="left">
<%ShowText "state"， state， 2， 2%>
</td>
</tr>
<tr>
<td align="left">
邮政编码:
</td>
<td align="left">
<%ShowText "zip"， zip， 5， 5 %>  
</td>
</tr>
</table>
<table border="0" width="100%">
<tr>
<td><center>
<% IF IsNumeric(stor_id) AND stor_id > 0 THEN  
注解：如果使用者已经将资料加入数据库就显示更新资料和删除资料的按钮
%>
<input type="submit" value="更新资料" name="Process">  
<input type="submit" value="删除资料" name="Process" tabindex="36">
<% ELSE %>
<input type="submit" value="加入资料" name="Process" tabindex="36">
<% END IF %>
<input type="reset" value="清除资料" name="Reset" tabindex="37">
</center>
</td>
</tr>
</table>
<