📄 spinfo.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/sell.asp" -->
<%'查询最大的商品编号
set rsmaxid = Server.CreateObject("ADODB.Recordset")
sql_max= "SELECT MAX(ID) AS MAXID FROM dbo.tab_brand"
rsmaxid.open sql_max,conn,1,3
%>
<%'查询供应商信息
set rsgysname = Server.CreateObject("ADODB.Recordset")
sql_gys = "SELECT gysname FROM dbo.tab_supplier"
rsgysname.open sql_gys,conn,1,3
%>
<%'保存商品信息
if request.Form("spname")<>"" then
spname=request.Form("spname")
jc=request.Form("jc")
cd=request.Form("cd")
dw=request.Form("dw")
gg=request.Form("gg")
bz=request.Form("bz")
ph=request.Form("ph")
pzwh=request.Form("pzwh")
gysname=request.Form("gysname")
memo=request.Form("memo")
sql_Ins = "Insert into dbo.tab_brand values('"&session("autospid")&_
"','"&spname&"','"&jc&"','"&cd&"','"&dw&"','"&gg&"','"&bz&"','"&ph&_
"','"&pzwh&"','"&gysname&"','"&memo&"')"
conn.execute(sql_Ins)
response.Write("<script language='javascript'>")
response.Write("alert("""&"数据保存成功！"&""");")
response.Write("window.location.href='spinfo.asp'")
response.Write("</script>")
end if %>
<% '自动生成七位的商品编号
Dim no,cno,intno
no=trim(rsmaxid("MAXID"))
select case len(int(Right(no,5)+1))
case 1
cno="0000"+Cstr(int(Right(no,5)+1))
case 2
cno="000"+Cstr(int(Right(no,5)+1))
case 3
cno="00"+Cstr(int(Right(no,5)+1))
case 4
cno="0"+Cstr(int(Right(no,5)+1))
case 5
cno=Cstr(int(Right(no,5)+1))
case Else
cno="00001"
end select
intno="SP"+cno
session("autospid")=intno
%>
<html>
<head>
<title>明日企业网上销售管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet">
<script language="javascript">
function check()
{
if (form1.spname.value=="")
{ alert("请输入商品名称！");form1.spname.focus();return;}
if (form1.jc.value=="")
{ alert("请输入商品简称！");form1.jc.focus();return;}
if (form1.dw.value=="")
{ alert("请输入单位！");form1.dw.focus();return;}
if (form1.cd.value=="")
{alert("请输入产地！");form1.cd.focus();return;}
if (form1.gg.value=="")
{alert("请输入商品规格！");form1.gg.focus();return;}
form1.submit();}
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" background="../../images/bg.gif">
<table width="590" border="0" cellspacing="-2" cellpadding="-2" height="311">
<tr>
<td height="40">
<h2 style="filter:glow(color=#ccccff,strength=5);height:1pt"align="center">
<font size="2" color=#000099>
商品信息登记</font></h2>
</td>
</tr>
<tr>
<td valign="top">
<table width="590" border="0" cellspacing="-2" cellpadding="-2" height="21">
<tr>
<td width="117" height="22"> </td>
<td width="473" height="22"><font color="#00CCFF">注：带*号项必须填写。</font></td>
</tr>
<tr>
<td height="78" colspan="2">
<div align="center">
<form method="POST" action="spinfo.asp" name="form1">
<table align="center" width="383">
<tr valign="baseline">
<td nowrap align="right" height="27" width="76">
<div align="left">商品名称：</div>
</td>
<td height="27" width="295">
<input name="spname" type="text" value="" size="32" maxlength="50">
<font color="#00CCFF"> *</font>
<input type="hidden" name="spid" value="<%=session("autospid")%>">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right" height="27" width="76">
<div align="left">简 称：</div>
</td>
<td height="27" width="295">
<input name="jc" type="text" value="" size="32" maxlength="50">
<font color="#00CCFF">*</font></td>
</tr>
<tr valign="baseline">
<td nowrap align="right" height="27" width="76">
<div align="left">产 地：</div>
</td>
<td height="27" width="295">
<input type="text" name="cd" value="" size="32">
<font color="#00CCFF">*</font> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right" height="27" width="76">
<div align="left">计量单位：</div>
</td>
<td height="27" width="295">
<input name="dw" type="text" value="" size="32" maxlength="10">
<font color="#00CCFF"> *</font> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right" height="27" width="76">
<div align="left">规 格：</div>
</td>
<td height="27" width="295">
<input name="gg" type="text" value="" size="32" maxlength="50">
<font color="#00CCFF"> *</font> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right" height="27" width="76">
<div align="left">包 装：</div>
</td>
<td height="27" width="295">
<input name="bz" type="text" value="" size="32" maxlength="50">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right" height="27" width="76">
<div align="left">批 号：</div>
</td>
<td height="27" width="295">
<input name="ph" type="text" value="" size="32" maxlength="50">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right" height="27" width="76">
<div align="left">批准文号：</div>
</td>
<td height="27" width="295">
<input name="pzwh" type="text" value="" size="32" maxlength="50">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right" height="27" width="76">
<div align="left">供应商全称：</div>
</td>
<td height="27" width="295">
<select name="gysname">
<% While (NOT rsgysname.EOF)%>
<option value="<%=rsgysname("gysname") %>" selected >
<%=rsgysname("gysname")%></option>
<% rsgysname.MoveNext()
Wend %>
</select>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right" height="27" width="76">
<div align="left">备 注：</div>
</td>
<td height="27" width="295">
<input name="memo" type="text" value="" size="32" maxlength="255">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right" colspan="2">
<div align="center">
<input type="button" value="保存信息" onclick=check() name="Button">
<input type="reset" name="Reset" value="清除重填">
</div>
</td>
</tr>
</table>
</form>
<p> </p>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -