⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 input_product_sav.asp

📁 oracle9i程序事例集
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
  dim conn
  dim connstr
  Set conn=Server.CreateObject("ADODB.Recordset")
  connstr="Driver={Microsoft ODBC for Oracle};server=mylink;uid=system;pwd=system;"
 %>
<html>
<head>
<title>输入产品信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../Css/bd_font_size.css" rel="stylesheet" type="text/css">
</head>

<body background="../img/inputBG.gif">
<%
  dim id,isdel,rs,sql,PRO_ID1,PRO_NAME1,PRO_KINDNUM1,BURN_ABILITY1,MEDIA1,TEMP1,PRO_KIND1,PRICE1,REPAIRTIME1,PICPATH1,REMARK1

  set rs=server.createobject("adodb.recordset")

  if trim(request("PRO_ID"))="" then
    errmsg=errmsg+"<br>"+"<li>产品ID不能为空"
    founderr=true
  else
    PRO_ID1=trim(request("PRO_ID"))
  end if
  
  sql="select * from GSCOTT.PRODUCT_INFO_TABLE where PRODUCT_ID='"&PRO_ID1&"'"
  rs.open sql,connstr
  if not rs.eof then
    errmsg=errmsg+"<br>"+"<li>已经有这个产品的信息了"
    founderr=true
  end if
  rs.close
  
  if trim(request("PRO_NAME"))="" then
    errmsg=errmsg+"<br>"+"<li>产品名称不能为空"
    founderr=true
  else
    PRO_NAME1=trim(request("PRO_NAME"))
  end if
  
  if trim(request("PRO_KINDNUM"))="" then
    errmsg=errmsg+"<br>"+"<li>产品型号不能为空"
    founderr=true
  else
    PRO_KINDNUM1=trim(request("PRO_KINDNUM"))
  end if
  
  if trim(request("BURN_ABILITY"))="" then
    errmsg=errmsg+"<br>"+"<li>产品的燃烧能力不能为空"
    founderr=true
  else
    BURN_ABILITY1=trim(request("BURN_ABILITY"))
  end if
  
  if trim(request("MEDIA"))="" then
    errmsg=errmsg+"<br>"+"<li>产品适用介质不能为空"
    founderr=true
  else
    MEDIA1=trim(request("MEDIA"))
  end if
  
  if trim(request("TEMP"))="" then
    errmsg=errmsg+"<br>"+"<li>产品的适用风温不能为空"
    founderr=true
  else
    TEMP1=trim(request("TEMP"))
  end if
  
  
  if trim(request("PRICE"))="" then
    errmsg=errmsg+"<br>"+"<li>产品的价格不能为空"
    founderr=true
  else
    PRICE1=trim(request("PRICE"))
  end if
  
  if trim(request("REPAIRTIME"))="" then
    errmsg=errmsg+"<br>"+"<li>产品的保修期不能为空"
    founderr=true
  else
    REPAIRTIME1=trim(request("REPAIRTIME"))
  end if
  
  if trim(request("PICPATH"))="" then
    PICPATH1="../pic/nopic.gif"
  else
    PICPATH1=trim(request("PICPATH"))
  end if
  
    REMARK1=trim(request("REMARK"))
%>

<div align="center">
<center>
<table border="0" width="494" height="750"cellspacing="0" cellpadding="0">
 <!--DWLayoutTable-->




<%  
  if founderr=false then
    sql="select * from GSCOTT.PRODUCT_INFO_TABLE order by PRODUCT_ID"
    rs.open sql,connstr,3,3
    rs.addnew
    rs("PRODUCT_ID")=PRO_ID1
    rs("PRODUCT_NAME")=PRO_NAME1
    rs("PRODUCT_BURN_ABILITY")=BURN_ABILITY1
	rs("PRODUCT_MEDIA_INUSE")=MEDIA1
	rs("PRODUCT_TEMP_INUSE")=TEMP1
	rs("PRODUCT_PRICE")=PRICE1
	rs("PRODUCT_REPAIRTIME")=REPAIRTIME1
    rs("PRODUCT_KINDNUM")=PRO_KINDNUM1
    rs("PRODUCT_PICPATH")=PICPATH1
	rs("PRODUCT_REMARK")=REMARK1
	rs("PRODUCT_ISDEL")="n"
	rs("PRODUCT_TIME")=now
	rs("PRODUCT_SALENUM")=0
	rs("PRODUCT_STOCKNUM")=0
	ptime=rs("PRODUCT_TIME")
	salenum=rs("PRODUCT_SALENUM")
    rs.update
    rs.close
	set rs=nothing
%>
  <tr align="center" bgcolor="#FFFF00">
    <td height="73" colspan="2" align="center" valign="middle"><strong><font color="#000000" size="6" face="黑体">产品信息输入成功</font></strong></td>
    </tr>
  <tr align="center">
    <td height="138" colspan="2" align="center" valign="middle"><img src="<%=PICPATH1%>"></td>
    </tr>
  <tr align="center">
    <td width="174" height="27" align="right" valign="middle" bgcolor="#FFFFC1" class="bd_font_size">产品ID:</td>
    <td width="320" align="center" valign="middle" bgcolor="#FFFFC1" class="bd_font_size"><%=PRO_ID1%></td>
  </tr>
  <tr align="center">
    <td height="27" align="right" valign="middle" bgcolor="#FFFF66" class="bd_font_size">产品名称:</td>
    <td valign="middle" bgcolor="#FFFF66" class="bd_font_size"><%=PRO_NAME1%></td>
  </tr>
  <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFFC1" class="bd_font_size">产品型号:</td>
    <td align="center" valign="middle" bgcolor="#FFFFC1" class="bd_font_size"><%=PRO_KINDNUM1%></td>
  </tr>
  <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFF66" class="bd_font_size">产品燃烧能力:</td>
    <td align="center" valign="middle" bgcolor="#FFFF66" class="bd_font_size"><%=BURN_ABILITY1%></td>
  </tr>
  <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFFC1" class="bd_font_size">产品适用介质:</td>
    <td align="center" valign="middle" bgcolor="#FFFFC1" class="bd_font_size"><%=MEDIA1%> </td>
  </tr>
  <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFF66" class="bd_font_size"><div align="right">产品适应风温:</div></td>
    <td align="center" valign="middle" bgcolor="#FFFF66" class="bd_font_size"><%=TEMP1%> </td>
  </tr>
  <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFFC1" class="bd_font_size"><div align="right">产品类别: </div></td>
    <td align="center" valign="middle" bgcolor="#FFFFC1" class="bd_font_size"><%=PRO_KIND1%> </td>
  </tr>
  <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFF66" class="bd_font_size"><div align="right">价格: </div></td>
    <td align="center" valign="middle" bgcolor="#FFFF66" class="bd_font_size"><%=PRICE1%> </td>
    </tr>
  <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFFC1" class="bd_font_size"><div align="right">保修期: </div></td>
    <td align="center" valign="middle" bgcolor="#FFFFC1" class="bd_font_size"><%=REPAIRTIME1%> </td>
  </tr>
  <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFF66" class="bd_font_size">销售数量:</td>
    <td align="center" valign="middle" bgcolor="#FFFF66" class="bd_font_size"><%=salenum%></td>
  </tr>
  <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFFC1" class="bd_font_size">添加时间:</td>
    <td align="center" valign="middle" bgcolor="#FFFFC1" class="bd_font_size"><%=ptime%></td>
    </tr>
  <tr>
    <td height="27" align="center" valign="middle" bgcolor="#FFFF66" class="bd_font_size"><div align="right">备注:</div></td>
    <td align="center" valign="middle" bgcolor="#FFFF66" class="bd_font_size"><%=REMARK1%></td>
  </tr>
  <tr align="center" valign="middle" bgcolor="#FFFFC1" class="bd_font_size">
    <td height="30" colspan="2">
	修改信息&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
	<a href="input_product.asp">继续输入</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
	<a href="../index.asp">返回首页</a></td>
  </tr>
  <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFF66" class="bd_font_size">输入信息有错误:</td> 
  <td align="center" valign="middle" bgcolor="#FFFF66" class="bd_font_size"><%=errmsg%></td>
</tr>
  <tr bgcolor="#FFFFC1">
    <td height="12" colspan="2" align="center" valign="top"><a href='javascript:history.go(-1)'><font size="-1">三秒钟后自动返回到上一页,如果您的浏览器没有返回,请单击此处</font></a></td>
  </tr>
<%else%>
<meta http-equiv="refresh" content="3;url=javascript:history.go(-1)">
<%end if%>
</table>
</center>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -