📄 productedit1.asp

📁 物流进销存系统全功能,MSSQL 2000数据库. 可做物流公司信息系统开发的源程序
💻 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("cInvStd")) = "" 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 YW_CKD_CP where ID = '" & txttitle &"' and cInvStd = "&newcompanyid&""
		rs7.open sql,conn,3,2
		if rs7.eof then
			cCKD_Code = request("cCKD_Code")
			cCKD_Code = replace(cCKD_Code,"'","’")
			cInvCode = replace(trim(Request.Form("cInvCode")),"'","’")
			cInvName = trim(request("cInvName"))
			cInvName = replace(cInvName,"'","’")
			if cInvName = "" then cInvName = " "
			cInvStd = replace(trim(Request.Form("cInvStd")),"'","’")
			cInvM_Unit = replace(trim(Request.Form("cInvM_Unit")),"'","’")
			Value = replace(trim(Request.Form("Value")),"'","’")
			cPrice = replace(trim(Request.Form("cPrice")),"'","’")
			if cInvM_Unit = "" then cInvM_Unit = " "
			if Value = "" then Value = " "
			if cPrice = "" then cPrice = " "
			if cInvCode = "" then
				cInvCode = " "
			end if
			if cInvStd = "" then
			    cInvStd = " "
			end if
			sql = "insert into YW_CKD_CP(ID,cCKD_Code,cInvName,cInvCode,cInvStd,cInvM_Unit,Value,cPrice,iCKD_Kind) VALUES('"&txttitle&"','"&cCKD_Code&"','"&cInvName&"',0,'"&cInvCode&"',"&cInvStd&",'"&cInvM_Unit&"','"&Value&"','"&cPrice&"',"&iCKD_Kind&",'"&iCKD_Kind&"',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("cInvName")) = "" 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 YW_CKD_CP where  iCKD_Kind = '" & txttitle &"' and iCKD_Kind = " &newcompanyid&" and cCKD_Code <> " + curid
				rs7.open sql,conn,3,2
				if rs7.eof then		
		
					cInvStd = request("cInvStd")
					cInvStd = replace(cInvStd,"'","’")
					cInvM_Unit = trim(Request.Form("cInvM_Unit"))
					cInvM_Unit =replace(cInvM_Unit,"'","’")
					cInvCode = trim(request("cInvCode"))
					cInvCode = replace(cInvCode,"'","’")
					if cInvCode = "" then cInvCode = " "					
					Value = trim(Request.Form("beizu"))
					Value = replace(Value,"'","’")
					cPrice = trim(Request.Form("cPrice"))
					cPrice = replace(cPrice,"'","’")
					cInvCode = trim(Request.Form("cInvCode"))
					cInvCode = replace(cInvCode,"'","’")
					iCKD_Kind = trim(Request.Form("iCKD_Kind"))
					iCKD_Kind = replace(iCKD_Kind,"'","’")
					if cPrice = "" then cPrice = " "
					if cInvCode = "" then cInvCode = " "
					if iCKD_Kind = "" then iCKD_Kind = " "
					if cInvM_Unit = "" then
						cInvM_Unit = " "
					end if
					if Value = "" then
						Value = " "
					end if
			 	
					sql = "UPDATE YW_CKD_CP SET "
					sql = sql + "iCKD_Kind = '" + txttitle + "',"
					sql = sql + " cInvStd = '" + cInvStd + "',"
					sql = sql + " cPrice = '" + cPrice + "',"
					sql = sql + " cInvCode = '" + cInvCode + "',"
					sql = sql + " iCKD_Kind = '" + iCKD_Kind + "',"
					sql = sql + " cInvM_Unit = '" + cInvM_Unit + "',"
					sql = sql + " cInvCode = '" + cInvCode + "',"
					sql = sql + " Value = '" + Value + "',"
					sql = sql + " ID = " + selcate + " " 
					sql = sql + " WHERE cCKD_Code = " + 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 YW_CKD_CP  where Value = "&newcompanyid&" and id = 0 order by ID asc,iCKD_Kind 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=#01AD4B><b><font color=yellow>产品编号一览</font></b></td>
</tr>
<tr bgcolor=#01AD4B>
<td align=center><font color=white>产品编号</font></td>
<td align=center><font color=white>所属类别</font></td>
<td align=center><font color=white>品&nbsp;&nbsp;&nbsp;&nbsp;名</font></td>
<td align=center><font color=white>产品型号</font></td>
<td align=center><font color=white>产品颜色</font></td>
<td align=center><font color=white>重&nbsp;&nbsp;&nbsp;&nbsp;量</font></td>
<td align=center><font color=white>体&nbsp;&nbsp;&nbsp;&nbsp;积</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 = 11
rs8.absolutepage = curpage
for i = 1 to rs8.pagesize
cInvName = trim(rs8("cInvName"))
cInvCode = trim(rs8("cInvCode"))
cInvStd = trim(rs8("cInvStd"))
cInvM_Unit = rs8("cInvM_Unit")
%>
<tr>
<td align=center><%= rs8("ID") %></td>
<td align=center>
<%
if cPrice <> ""  then
	sql = "select type_name from cInvStd where id = "&cPrice&""
	set rs_type = conn.execute(sql)
	if not rs_type.eof then
		type_name = rs_type("type_name")
	else
		type_name = "<font color=red>尚未归属</font>"
	end if
	rs_type.close
	set rs_type = nothing
	Response.Write type_name
else
	Response.Write "<font color=red>尚未归属</font>"

end if
%>
</td>
<td align=center>
<%
if pinming <> "" then
	Response.Write pinming
else
	Response.Write "&nbsp;"
end if
 %>
 </td>
<td align=center><%= rs8("iCKD_Kind") %></td>
<td align=center>
<%
if trim(rs8("cInvM_Unit")) <> "" then
	Response.Write trim(rs8("iCKD_Kind"))
else
	Response.Write "&nbsp;"
end if
 %></td>
<td align=center>
<%
if weight <> "" then
	Response.Write weight
else
	Response.Write "&nbsp;"
end if
 %></td>
<td align=center>
<%
if volume <> "" then
	Response.Write volume
else
	Response.Write "&nbsp;"
end if
 %>
</td>
<td align=center><a href='productedit.asp?action=edit&id=<%= rs8("cCKD_Code") %>&page=<%=curpage%>&companyid=<%=newcompanyid%>'>编辑</a> 
</td></tr>
<% rs8.movenext
if rs8.eof then
	i = i + 1
	exit for
end if
next %>
</table>
<%		
		response.write "<p align=center>"
		response.write "第" + cstr(curpage) + "页/总" + cstr(rs8.pagecount) + "页 "
		response.write "本页" + cstr(i-1) + "条/总" + cstr(rs8.recordcount) + "条 "
		if curpage = 1 then 
			response.write "首页 前页 "
		else
			response.write "<a href='productedit.asp?page=1&companyid="&newcompanyid&"'>首页</a> <a href='productedit.asp?page=" + cstr(curpage-1) + "&companyid="&newcompanyid&"'>前页</a> "
		end if
		if  curpage = rs8.pagecount then
			response.write "后页 末页"
		else
			response.write "<a href='productedit.asp?page=" + cstr(curpage+1) + "&companyid="&newcompanyid&"'>后页</a> <a href='productedit.asp?page=" + cstr(rs8.pagecount) + "&companyid="&newcompanyid&"'>末页</a>"
		end if
	End If
	
end if
rs8.close
set rs8 = nothing
 %>
<hr size=1>
<% 
if bedit then
	sql = "SELECT * FROM YW_CKD_CP WHERE cCKD_Code =  "&curid&""
	'set rs9 = conn.execute(sql)
	set rs8 = server.CreateObject("adodb.recordset")
	rs8.open sql,conn,3,2
	if rs8.EOF then
		bedit = false
	end if
end if
 %>
 

<%
if bedit then
	rs8.close
	set rs8 = nothing
end if
call closedatabase
%>
<p align=center>[ <a href='manage.asp'>返回</a> ]
<!--#include file=../data/copyright.asp-->
</body>
</html>
⌨️ 快捷键说明

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