%>
7 基础信息主要功能模块详细设计
7.1 商品信息管理设计
用户可以通过单击菜单主导航“基础信息”/“商品信息管理”超链接，进入商品信息管理页面。该页面主要完成商品信息的添加。
商品信息管理页面设计效果如图6所示。
图6 商品信息管理页面设计效果
商品信息管理页面中涉及的HTML表单元素如表3所示。
表3 商品信息管理页面中涉及的HTML表单元素
名称 类型 含义 重要属性
form1 form 表单 action="checkspinfo.asp" method="post"
sel select 供应商全称 <%while not rs.eof%>
<option value=<%=rs("name")%>><%=rs("name")%></option>
<%rs.movenext
wend%>
memo text 备注 onkeyup="if (event.keyCode==13){send()}"
subb button 【保存信息】按钮 onclick="send()"
Res reset 【清除重写】按钮 onclick="res()"
利用java script编写检测用户输入信息是否合法的函数，并通过单击【保存信息】按钮调用该函数，当用户输入合法信息后，提交该表单。关键代码如下：
<!--#include file="spsub.inc"-->
<%
set conn=server.CreateObject("adodb.connection") '创建数据库对象
set rs=server.CreateObject("adodb.recordset") '创建记录集对象
conn.open application("dsn")
sql="select * from tab_gysinfo"
rs.open sql,conn,1,3 '打开记录集
%>
商品信息添加时的数据处理页主要是将用户提交的表单信息保存到数据库中，数据处理页的程序代码如下：
<%
spname=trim(request("spname"))
jc=trim(request("jc"))
cd=trim(request("cd"))
dw=trim(request("dw"))
gg=trim(request("gg"))
bz=trim(request("bz"))
ph=trim(request("ph"))
pzwh=trim(request("pzwh"))
gysname=trim(request("gysname"))
memo=trim(request("memo"))
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
set myrs=server.createobject("adodb.recordset")
set rec=server.createobject("adodb.recordset")
conn.open application("dsn")
sql="select id from tab_spinfo"
rs.open sql,conn,1,3
if not rs.eof then '如果没到记录尾
sql="select max(id) as id from tab_spinfo"
myrs.open sql,conn,1,3
str=myrs("id")
spid=cint(mid(str,3,4))+1
spid="sp"&spid
else
spid="sp1001"
end if
sql="insert into tab_spinfo(id,spname,jc,cd,dw,gg,bz,ph,pzwh,gysname,memo) values('"&spid&"','"&spname&"','"&jc&"','"&cd&"','"&dw&"','"&gg&"','"&bz&"','"&ph&"','"&pzwh&"','"&gysname&"','"&memo&"')" '插入新记录
rec.open sql,conn,1,3
%>
<script language="java script">
alert("商品信息添加成功！"); //弹出对话框
window.location.href="spinfo.asp"; //重新定向指定页面
</script>
商品信息管理页面的运行结果如图7所示。
图7 商品信息管理页面的运行结果
7.2 商品信息查询设计
用户可以通过单击菜单主导航“基础信息”/“商品信息查询”超链接，进入商品信息查询页面。该页面主要完成商品信息的检