利用ASP编写动态回复表单
s.Append cmd.CreateParameter("msg"， adVarChar， adParamInput，60， " ")
End Sub
下面是UpdateForm子程序：
Function UpdateForm (intID)
注解：以Command对象的CommandText 属性指定对数据库下达的命令是通过proc_update_store这个预存程序来完成：
Cmd.CommandText = "proc_update_store"
注解：以Command对象的CommandType 属性决定对数据库请求的型态是为预存程序：Cmd.CommandType = adCmdStoredProc
SetParms
Cmd.Execute
注解：将 SetParms子程序中所附加的msg参数传回给 strMsg错误信息字符串变量：
strMsg = cmd.Parameters("msg")
End Function
下面是DeleteForm子程序：
Function DeleteForm (intID)
注解：以Command对象的CommandText 属性指定对数据库下达的命令是通过proc_delete_store这个预存程序来完成：
Cmd.CommandText = "proc_delete_store"
注解：以Command对象的CommandType 属性决定对数据库请求的型态是为预存程序：
Cmd.CommandType = adCmdStoredProc
注解：以Parameters.Append的方法加入一个参数"id"以作为预存程序的输入参数之用：
cmd.Parameters.Append cmd.CreateParameter("id"， adChar， adParamInput，4，stor_id)
注解：以Parameters.Append的方法加入一个参数"msg"以作为预存程序的输出参数之用：
cmd.Parameters.Append cmd.CreateParameter("msg"，adVarChar， adParamOutput，60，"")
Cmd.Execute
注解：将 SetParms子程序中所附加的msg参数传回给 strMsg错误信息字符串变量：
strMsg = cmd.Parameters("msg")
SET Cmd.ActiveConnection = Nothing
Set Cmd = Nothing
END FUNCTION
</script>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title>设定新商店</title>
</head>
<body>
<%
（注解：决定表单内容，表单传送目的为同一个档案。）
%>
<form NAME="StoreForm" ACTION="<%=Request.ServerVariables("PATH_INFO")%>" METHOD="post" >
<%
注解：以表单按钮决定该执行更新加入或删除资料
SELECT CASE Request("Process")
CASE "加入资料"
DIM intNewID
注解：使用者填完表单先呼叫SetFromForm子程序取得表单内容先将表单错误信息传回：
SetFromForm
strStatus = EditForm
注解：如果没有发生表单错误就呼叫InsertForm子程序将资料写入数据库：
IF strStatus = "" THEN
注解：更新数据库设定，显示变量，重新显示表单输入值，并让使用者知道运作情形.
strStatus = InsertForm
intNewID = Cmd.Parameters("RETURN_VALUE")
IF Len(Trim(strStatus)) = 0 THEN
strFeedBack = "名称已建立至数据库.<BR>"
ELSE
strFeedBack = strStatus
END IF
ELSE
注解：设定显示变量，重新显示表单输入值，并让使用者知道运作情形.
strFeedBack = strStatus
END IF
strTitle = "新名称设定完成"
CASE "更新资料"
注解：使用者填完表单先呼叫 SetFromForm子程序取得表单内容先将表单错误信息传回：
SetFromForm
strStatus = EditForm
IF strStatus = "" THEN
strStatus = UpdateForm (stor_id)
IF Len(Trim(strStatus)) = 0 THEN
strFeedBack = "名称资料已经更新.<BR>"
ELSE
strFeedBack = strStatus
END IF
ELSE
strFeedBack = strStatus
END IF
strTitle = "名称资料更新完成"
CASE &quo
End Sub
下面是UpdateForm子程序：
Function UpdateForm (intID)
注解：以Command对象的CommandText 属性指定对数据库下达的命令是通过proc_update_store这个预存程序来完成：
Cmd.CommandText = "proc_update_store"
注解：以Command对象的CommandType 属性决定对数据库请求的型态是为预存程序：Cmd.CommandType = adCmdStoredProc
SetParms
Cmd.Execute
注解：将 SetParms子程序中所附加的msg参数传回给 strMsg错误信息字符串变量：
strMsg = cmd.Parameters("msg")
End Function
下面是DeleteForm子程序：
Function DeleteForm (intID)
注解：以Command对象的CommandText 属性指定对数据库下达的命令是通过proc_delete_store这个预存程序来完成：
Cmd.CommandText = "proc_delete_store"
注解：以Command对象的CommandType 属性决定对数据库请求的型态是为预存程序：
Cmd.CommandType = adCmdStoredProc
注解：以Parameters.Append的方法加入一个参数"id"以作为预存程序的输入参数之用：
cmd.Parameters.Append cmd.CreateParameter("id"， adChar， adParamInput，4，stor_id)
注解：以Parameters.Append的方法加入一个参数"msg"以作为预存程序的输出参数之用：
cmd.Parameters.Append cmd.CreateParameter("msg"，adVarChar， adParamOutput，60，"")
Cmd.Execute
注解：将 SetParms子程序中所附加的msg参数传回给 strMsg错误信息字符串变量：
strMsg = cmd.Parameters("msg")
SET Cmd.ActiveConnection = Nothing
Set Cmd = Nothing
END FUNCTION
</script>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title>设定新商店</title>
</head>
<body>
<%
（注解：决定表单内容，表单传送目的为同一个档案。）
%>
<form NAME="StoreForm" ACTION="<%=Request.ServerVariables("PATH_INFO")%>" METHOD="post" >
<%
注解：以表单按钮决定该执行更新加入或删除资料
SELECT CASE Request("Process")
CASE "加入资料"
DIM intNewID
注解：使用者填完表单先呼叫SetFromForm子程序取得表单内容先将表单错误信息传回：
SetFromForm
strStatus = EditForm
注解：如果没有发生表单错误就呼叫InsertForm子程序将资料写入数据库：
IF strStatus = "" THEN
注解：更新数据库设定，显示变量，重新显示表单输入值，并让使用者知道运作情形.
strStatus = InsertForm
intNewID = Cmd.Parameters("RETURN_VALUE")
IF Len(Trim(strStatus)) = 0 THEN
strFeedBack = "名称已建立至数据库.<BR>"
ELSE
strFeedBack = strStatus
END IF
ELSE
注解：设定显示变量，重新显示表单输入值，并让使用者知道运作情形.
strFeedBack = strStatus
END IF
strTitle = "新名称设定完成"
CASE "更新资料"
注解：使用者填完表单先呼叫 SetFromForm子程序取得表单内容先将表单错误信息传回：
SetFromForm
strStatus = EditForm
IF strStatus = "" THEN
strStatus = UpdateForm (stor_id)
IF Len(Trim(strStatus)) = 0 THEN
strFeedBack = "名称资料已经更新.<BR>"
ELSE
strFeedBack = strStatus
END IF
ELSE
strFeedBack = strStatus
END IF
strTitle = "名称资料更新完成"
CASE &quo