📄 productedit.asp
字号:
<%@ LANGUAGE="VBScript"%>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<%const title="修改产品编号"%>
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title><%=title%></title>
<link rel=stylesheet type=text/css href=../data/forum.css>
</head>
<body topmargin="0" onload="javascript:document.input1.txttitle.focus();">
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<%
'on error resume next
Showtitle(title)
dim curaction, curid, bedit, founderr, errmsg
curaction = request("action")
curid = request("id")
curid = replace(curid,"'","")
'Response.Write curid
bedit = false
founderr = false
if curaction = "edit" then
bedit = true
end if
newcompanyid = request("companyid")
if newcompanyid = "" then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""请先选择公司再做此步操作！"");"
Response.write "history.go(-1);"
Response.Write "</script>"
Response.End
elseif not isnumeric(newcompanyid) then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""companyid必须为整数！"");history.go(-1);"
Response.Write "</script>"
Response.End
else
newcompanyid = cint(newcompanyid)
end if
dim sql
'添加记录
if curaction = "newsave" then
if trim(request("txttitle")) = "" or trim(request("prod_type")) = "" or request("selcate") = 0 then
founderr = true
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""请填写完整的产品资料！"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
'errmsg = "<center><p><font color=red>请填写完整的产品资料！</font></p></center>"
end if
if founderr then
response.write errmsg
else
set rs7=server.CreateObject("ADODB.recordset")
txttitle = request.form("txttitle")
txttitle = replace(txttitle,"'","’")
selcate = request("selcate")
sql = "select * from product where prod_no = '" & txttitle &"' and prod_companyid = "&newcompanyid&""
rs7.open sql,conn,3,2
if rs7.eof then
prod_type = request("prod_type")
prod_type = replace(prod_type,"'","’")
prod_color = replace(trim(Request.Form("prod_color")),"'","’")
prod_batch = trim(request("prod_batch"))
prod_batch = replace(prod_batch,"'","’")
if prod_batch = "" then prod_batch = " "
prod_beizu = replace(trim(Request.Form("beizu")),"'","’")
prod_pinming = replace(trim(Request.Form("prod_pinming")),"'","’")
prod_weight = replace(trim(Request.Form("prod_weight")),"'","’")
prod_volume = replace(trim(Request.Form("prod_volume")),"'","’")
if prod_pinming = "" then prod_pinming = " "
if prod_weight = "" then prod_weight = " "
if prod_volume = "" then prod_volume = " "
if prod_color = "" then
prod_color = " "
end if
if prod_beizu = "" then
prod_beizu = " "
end if
sql = "insert into product(prod_no,prod_type,prod_color,prod_disabled,prod_beizu,prod_companyid,prod_pinming,prod_weight,prod_volume,prod_flag,prod_batch,prod_dir_flag) VALUES('"&txttitle&"','"&prod_type&"','"&prod_color&"',0,'"&prod_beizu&"',"&newcompanyid&",'"&prod_pinming&"','"&prod_weight&"','"&prod_volume&"',"&selcate&",'"&prod_batch&"',0)"
conn.execute sql
if err.number <> 0 then
rs7.close
set rs7 = nothing
call closedatabase
response.write "<p>无法保存,数据库操作出错:" + err.description + "</p>"
Response.End
else
response.write "<center><p>记录已经添加到数据库。</p></center>"
end if
else
rs7.close
set rs7 = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""该产品编号已存在，请用其它的产品编号！"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
'response.write "<center>该产品编号已存在，请用其它的产品编号！</center>"
end if
rs7.close
set rs7 = nothing
end if
end if
'保存记录
if curaction = "editsave" then
if trim(request("txttitle")) = "" or trim(request("prod_type")) = "" or request("selcate") = 0 then
founderr = true
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""请填写完整的产品资料！"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
end if
if founderr then
response.write errmsg
else
selcate = request("selcate")
set rs7=server.CreateObject("ADODB.recordset")
txttitle = request.form("txttitle")
txttitle = replace(txttitle,"'","’")
sql = "select * from product where prod_no = '" & txttitle &"' and prod_companyid = " &newcompanyid&" and prod_id <> " + curid
rs7.open sql,conn,3,2
if rs7.eof then
prod_type = request("prod_type")
prod_type = replace(prod_type,"'","’")
prod_color = trim(Request.Form("prod_color"))
prod_color =replace(prod_color,"'","’")
prod_batch = trim(request("prod_batch"))
prod_batch = replace(prod_batch,"'","’")
if prod_batch = "" then prod_batch = " "
prod_beizu = trim(Request.Form("beizu"))
prod_beizu = replace(prod_beizu,"'","’")
prod_pinming = trim(Request.Form("prod_pinming"))
prod_pinming = replace(prod_pinming,"'","’")
prod_weight = trim(Request.Form("prod_weight"))
prod_weight = replace(prod_weight,"'","’")
prod_volume = trim(Request.Form("prod_volume"))
prod_volume = replace(prod_volume,"'","’")
if prod_pinming = "" then prod_pinming = " "
if prod_weight = "" then prod_weight = " "
if prod_volume = "" then prod_volume = " "
if prod_color = "" then
prod_color = " "
end if
if prod_beizu = "" then
prod_beizu = " "
end if
sql = "UPDATE product SET "
sql = sql + "prod_no = '" + txttitle + "',"
sql = sql + " prod_type = '" + prod_type + "',"
sql = sql + " prod_pinming = '" + prod_pinming + "',"
sql = sql + " prod_weight = '" + prod_weight + "',"
sql = sql + " prod_volume = '" + prod_volume + "',"
sql = sql + " prod_color = '" + prod_color + "',"
sql = sql + " prod_batch = '" + prod_batch + "',"
sql = sql + " prod_beizu = '" + prod_beizu + "',"
sql = sql + " prod_flag = " + selcate + " "
sql = sql + " WHERE prod_id = " + curid
conn.execute sql
sql = "update inventory set inve_flag = "&selcate&" where inve_prod_id = "&curid&" and inve_companyid = "&newcompanyid&""
conn.execute sql
if err.number <> 0 then
rs7.close
set rs7 = nothing
call closedatabase
response.write "无法保存,数据库操作出错:" + err.description
Response.End
else
response.write "<center>记录已经更新到数据库。</center>"
end if
else
rs7.close
set rs7 = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""该产品编号已存在，请用其它的产品编号！"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
end if
rs7.close
set rs7 = nothing
end if
end if
%>
<%
dim rs, rs1, sql1, strtype, strvalue
set rs8=server.CreateObject("ADODB.recordset")
sql = "SELECT * FROM product where prod_companyid = "&newcompanyid&" and prod_dir_flag = 0 order by prod_flag asc,prod_no asc"
rs8.open sql, conn, 3, 2
if err.number <> 0 then
rs8.Close
set rs8 = nothing
call closedatabase
response.write "数据库操作失败："&err.description & "<br>"
Response.Write "错误程序：" & Err.Source & "<br>"
Response.End
else
if rs8.eof and rs8.bof then
response.write "没有记录"
else
%>
<table border='1' width=90% align='center' cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC'>
<tr>
<td colspan=8 align=center bgcolor=red><b><font color=yellow>产品编号一览</font></b></td>
</tr>
<tr bgcolor=#0000A0>
<td align=center><font color=white>产品编号</font></td>
<td align=center><font color=white>所属类别</font></td>
<td align=center><font color=white>品 名</font></td>
<td align=center><font color=white>产品型号</font></td>
<td align=center><font color=white>产品颜色</font></td>
<td align=center><font color=white>重 量</font></td>
<td align=center><font color=white>体 积</font></td>
<td align=center><font color=white>操作</font></td></tr>
<%
dim curpage, i
if request("page")="" then
curpage = 1
else
curpage = clng(request("page"))
end if
rs8.pagesize = 8
rs8.absolutepage = curpage
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -