利用ASP编写动态回复表单

ress")
city = Request.Form("city")
state = Request.Form("state")
zip = Request.Form("zip")
END SUB
（注解：从资料集合对象中将值取出并显示在表单中， strName 代表表单名称， intSize代表表单大小， intMax代表表单所允许输入最大字段长度， Server.HTMLEncode(strValue) 代表表单内容。）
Sub ShowText(strName， strValue， intSize， intMax)
Response.Write "<INPUT TYPE=Text NAME=" & strName & _
" ID=" & strName & _
" onFocus=select()" & _
" SIZE=" & intSize & _
" MAXLENGTH=" & intMax & _
" VALUE=" & chr(34) & Server.HTMLEncode(strValue) & chr(34) & ">"
End Sub  
下面是EditForm子程序，其作用是更新数据区段：
Function EditForm()
注解：定义错误信息字符串变量：
DIM strErr
strErr = ""
IF NOT Len(Request("stor_id")) > 0 THEN
strErr = strErr & "请输入编号.<BR>"
END IF
IF NOT Len(Request("stor_name")) > 0 THEN
strErr = strErr & "请输入名称.<BR>"
END IF
IF NOT Len(Request("stor_address")) > 0 THEN
strErr = strErr & "请输入地址.<BR>"
END IF
IF NOT Len(Request("city")) > 0 THEN
strErr = strErr & "请输入城市名.<BR>"
END IF
IF NOT Len(Request("state")) > 0 THEN
strErr = strErr & "请输入省名.<BR>"
END IF
注解：将表单错误信息传回EditForm：
EditForm = strErr
End Function
下面是InsertForm子程序：
Function InsertForm()
DIM strSQL
strSQL = "proc_insert_store"
注解：以Command对象的CommandText 属性指定对数据库下达的命令是通过proc_insert_store这个预存程序来完成：
Cmd.CommandText = strSQL
注解：以Command对象的CommandType 属性决定对数据库请求的型态是为预存程序：
Cmd.CommandType = adCmdStoredProc
注解：呼叫SetParms子程序：
SetParms
注解：以Command对象的Execute方法执行预存程序：
Cmd.Execute
注解：将SetParms子程序中所附加的msg参数传回给strMsg错误信息字符串变量：
strMsg = cmd.Parameters("msg")
InsertForm = strMsg
End Function
接着是建立setparms子程序：
Sub SetParms()
注解：以Command的Append方法将Parameter对象加到Parameters对象集合中，作为预存程序的输入参数之用这是为了取得表单的内容值，只有在更新资料或加入资料时才必须呼叫这段子程序：
cmd.Parameters.Append cmd.CreateParameter("RETURN_VALUE"， adInteger， adParamReturnValue)
cmd.Parameters.Append cmd.CreateParameter("id"， adChar， adParamInput，4，stor_id)
cmd.Parameters.Append cmd.CreateParameter("stor_name"， adVarChar，adParamInput，40，stor_name)
cmd.Parameters.Append cmd.CreateParameter("stor_address"， adVarChar， adParamInput，40，stor_address)
cmd.Parameters.Append cmd.CreateParameter("city"， adVarChar， adParamInput，20，city)
cmd.Parameters.Append cmd.CreateParameter("state"， adChar， adParamInput，2，state)
cmd.Parameters.Append cmd.CreateParameter("zip"， adChar， adParamInput，5，zip)
cmd.Parameter