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

📄 addgoods.asp

📁 ASP,版本,HUANYING NI DE XIAZAI ! LIANXIFANSHI:BINDIYI@163.COM
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="Cookies.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>

<title>无标题文档</title>
</head>

<body>
<%
goods_id=request("goods_id")
name=request("name")
class1=cint(request("class1"))
class2=cint(request("class2"))
price=cdbl(request("price"))
introduce=request("introduce")
area=request("area")
inventory=request("inventory")
discount=request("discount")
path=request("path")
d=date()

set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from goods "  
rs.open sql,conn,1,3
rs.addnew
rs("name")=name
rs("class1")=class1
rs("class2")=class2
rs("price")=price
rs("introduce")=introduce
rs("area")=area
rs("discount")=discount
rs("path")=path
rs("inventory")=inventory
rs("date")=d
rs("sale_num")=0
rs.update

response.write "<li>添加物品成功。"
response.write "<meta http-equiv=refresh content=""1;URL=goods_manage.asp"">"

'else
'response.write "<li>添加物品失败。"
'response.write "<meta http-equiv=refresh content=""1;URL=goods_manage.asp"">"
'end if
rs.close
set rs=nothing
closedb
%>
</body>
</html>

⌨️ 快捷键说明

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