product_list_bak.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<%
FunCode="F999"
session("title")="产品管理"
session("headline")="首页 -> 注册系统 -> 产品管理"
%>
<!--#include file="../inc/head2.asp"-->

<%


ID=request("ID")
if ID="" then
	session("mesg")="产品种类的ID不能为空"
	Response.Redirect "../result.asp"
end if

ProductAction = request("ProductAction")
select case ProductAction
	case	"del"
		call Del()
		call List()
	case	"add_pre"
		call Add_Pre()
	case	"add"
		call	Add()
		call	List()
	case	"edit_pre"
		call	Edit_Pre()
	case	"edit"
		call	Edit()
		call	List()
	case	else
		call List()
end select

sub Del()
	sql = "select * from userorder where applytype='"&request("ProductID")&"'   "
	set rsp = conn.execute(sql)
	if rsp.eof then
		conn.execute ("delete from product where id='"&request("ProductID")&"'")
		conn.execute ("delete from productprice where PID='"&request("ProductID")&"'")
	else
		response.write"<SCRIPT language=JavaScript>alert('该已有该产品订单,不能删除！');</script>"
	end if

end sub

sub Edit()
ProductID=request("ProductID")
strName=request("strname")
strDetail=request("detail")
listID=request("ListID")
status=request("status")
IsTry = request("IsTry")
MPrice=request("MPrice")
newID = request("newID")
priceType = request("priceType")
if priceType ="其它" then priceType = request("priceType2")
applyInfo = request("applyInfo")



if ID="" or listID="" or  strName="" or strdetail="" or status=""  then
	session("mesg")="输入域都不能为空"
	Response.Redirect "../result.asp"
end if


'需要增加字段校验信息
set rs=server.createobject("adodb.recordset")
sql="select * from product where ID='"&ProductID&"'"
rs.open sql,conn,1,3
if rs.eof then
	session("mesg")="该ID的产品不存在"
	Response.Redirect "../result.asp"
end if

rs("listID")=listID
rs("name")=strName
rs("detail")=strDetail
rs("status")=status
rs("class")=newID
strClass=rs("class")
rs("priceType")=priceType
rs("IsTry")=IsTry
rs("MPrice")=MPrice
rs("applyInfo")=applyInfo
rs("A") = request("year1")
rs("B") = request("year2")
rs("C") = request("year3")
rs("D") = request("year4")
rs("E") = request("year5")
rs("F") = request("year6")
rs.update
rs.close
set rs=nothing

conn.execute ("delete from productprice where PID='"&ProductID&"'")
set rsv = conn.execute("select * from userlevel")
		do while not rsv.eof 
			conn.execute("insert productprice (PID,LevelCode)  values ('"&ProductID&"','"&rsv("levelcode")&"')")
			
			priceA = request(rsv("levelcode")&"1")
			priceB = request(rsv("levelcode")&"2")
			priceC = request(rsv("levelcode")&"3")
			priceD = request(rsv("levelcode")&"4")
			priceE = request(rsv("levelcode")&"5")
			
			if isnumeric(priceA) and priceA<> "" then 
				conn.execute("update productprice set A="&priceA&" where PID='"&ProductID&"' and LevelCode='"&rsv("levelcode")&"' ")
			end if
			if isnumeric(priceB) and priceB<> "" then 
				conn.execute("update productprice set B="&priceB&" where PID='"&ProductID&"' and LevelCode='"&rsv("levelcode")&"' ")
			end if
			if isnumeric(priceC) and priceC<> "" then 
				conn.execute("update productprice set C="&priceC&" where PID='"&ProductID&"' and LevelCode='"&rsv("levelcode")&"' ")
			end if
			if isnumeric(priceD) and priceD<> "" then 
				conn.execute("update productprice set D="&priceD&" where PID='"&ProductID&"' and LevelCode='"&rsv("levelcode")&"' ")
			end if
			if isnumeric(priceE) and priceE<> "" then 
				conn.execute("update productprice set E="&priceE&" where PID='"&ProductID&"' and LevelCode='"&rsv("levelcode")&"' ")
			end if
			rsv.movenext
		loop
end sub


sub Edit_Pre()
call 	Check()
set rs=server.createobject("adodb.recordset")
sql="select * from product where ID='"&request("ProductID")&"'"
rs.open sql,conn,1,1
%>
<br><br><br>
	
<form method='POST' name="F1" action='product_list.asp' onsubmit='return check_input()'>
   <table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 
      cellspacing=0 width=80% class='size09' align='center'>
      <tr> 
                  <td colspan="2" bgcolor="#efefef" height="28"> 
                    <div align="center" class="color01">请输入产品信息</div>
                  </td>
                </tr>
	 <tr>
		<td width='25%' bgcolor='#efefef'>产品编号*</td>
		<td width='25%'>
		<input type='hidden' class='form' name=ProductAction value='edit'>
		<input type='hidden' class='form' name='ID' value='<%=ID%>'>
		<input type='hidden' class='form' name='ProductID' value='<%=rs("ID")%>'>
		<%=rs("ID")%>
		</td>
	</tr>
		<tr>
		<td width='25%' bgcolor='#efefef'>产品类型*</td>
		<td width='25%'>
		<select name="newID">
		<%set rsc = conn.execute("select * from productclass order by listid")
		do while not rsc.eof
			if rsc("ID") = ID then
				response.write "<option value="&rsc("ID")&" selected>"&rsc("class")&"</option>"
			else
				response.write "<option value="&rsc("ID")&">"&rsc("class")&"</option>"
			end if
		rsc.movenext
		loop
		rsc.close
		set rsc=nothing
		%>
		</select>
		
		</td>
	</tr>
	 
	<tr>
		<td width='25%' bgcolor='#efefef'>排序*</td>
		<td width='25%'>
<input type='text' class='form' name='listID'  size='5' maxlength="5"  value='<%=rs("ListID")%>'></td>
	</tr>

	<tr>
		<td width='25%' bgcolor='#efefef'>产品*</td>
		<td width='75%'><input type='text' class='form' name='strname' size='20' value='<%=rs("name")%>'></td>
	</tr>

	<tr>
		<td width='25%' bgcolor='#efefef'>产品说明*</td>
		<td width='75%'><input type='text' class='form' name='detail' size='60' value='<%=rs("detail")%>'></td>
	</tr>
	<tr>
		<td width='25%' bgcolor='#efefef'>申请提示*</td>
		<td width='75%'><input type='text' class='form' name='applyInfo' size='60' value='<%=rs("applyInfo")%>'></td>
	</tr>
	<tr>
		<td width='25%' bgcolor='#efefef'>是否支持实时开通*</td>
		<td width='75%'>
		<select name="IsTry">
		<option value="N" <%if rs("IsTry")="N" then response.write "selected" end if%>>不支持</option>
		<option value="Y" <%if rs("IsTry")="Y" then response.write "selected" end if%>>支持</option>
		</select></td>
	</tr>
	<tr>
		<td width='25%' bgcolor='#efefef'>状态*</td>
		<td width='75%'>
		<select name="status" size="1">
		<option value="1" <%if rs("status")="1" then response.write "selected" end if%>>正常</option>
		<option value="0" <%if rs("status")="0" then response.write "selected" end if%>>锁定</option>
		</select>锁定表示不开展该项业务</td>
		
	</tr>
</table>

 <table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 
      cellspacing=0 width=80% class='size09' align='center'>
      <tr> 
                  <td colspan="6" bgcolor="#efefef" height="28"> 
                    <div align="center" class="color01">产品价格设置</div>
                  </td>
       	            </tr>
	<tr>
		<td bgcolor='#efefef'>计价单位*</td>
		<td colspan="5">
		<select name="priceType">
		<option value="年" <%if rs("priceType")="年" then response.write "selected" end if%>>年</option>
		<option value="月" <%if rs("priceType")="月" then response.write "selected" end if%>>月</option>
		<option value="其它" <%if rs("priceType")<>"年" and rs("priceType")<>"月" then response.write "selected" end if%>>其它</option>
		</select>
		其它的计价单位:<input type='text' class='form' name='priceType2' size='20' value='<%if rs("priceType")<>"年" and rs("priceType")<>"月" then response.write rs("priceType")%>'>如:件,个等</td>
	</tr>
	<tr>
		<td bgcolor='#efefef'>市场售价*</td>
		<td  colspan="5"><input type='text' class='form' name='MPrice' size='20' value='<%=rs("MPrice")%>'></td>
	</tr>
	
	  <tr><td>计价级别</td>
	  <td><input name="year1" size="4" maxlength="8" value="<%=rs("A")%>">×计价单位</td><td><input name="year2" size="4" maxlength="8" value="<%=rs("B")%>">×计价单位</td><td><input name="year3" size="4" maxlength="8" value="<%=rs("C")%>">×计价单位</td><td><input name="year4" size="4" maxlength="8" value="<%=rs("D")%>">×计价单位</td><td><input name="year5" size="4" maxlength="8" value="<%=rs("E")%>">×计价单位</td></tr>

	<%set rsv = conn.execute("select * from userlevel")
		do while not rsv.eof 
			set rsp = conn.execute("select * from productprice where PID='"&request("ProductID")&"' and LevelCode='"&rsv("levelcode")&"'")
			if rsp.eof then %>
			<tr><td><%=rsv("levelname")%></td><td><input name="<%=rsv("levelcode")%>1" size="10" maxlength="10" value=""></td><td><input name="<%=rsv("levelcode")%>2" size="10" maxlength="10" value=""></td><td><input name="<%=rsv("levelcode")%>3" size="10" maxlength="10" value=""></td><td><input name="<%=rsv("levelcode")%>4" size="10" maxlength="10" value=""></td><td><input name="<%=rsv("levelcode")%>5" size="10" maxlength="10" value=""></td></tr>
			<%else%>
		<tr><td><%=rsv("levelname")%></td><td><input name="<%=rsv("levelcode")%>1" size="10" maxlength="10" value="<%=rsp("A")%>"></td><td><input name="<%=rsv("levelcode")%>2" size="10" maxlength="10" value="<%=rsp("B")%>"></td><td><input name="<%=rsv("levelcode")%>3" size="10" maxlength="10" value="<%=rsp("C")%>"></td><td><input name="<%=rsv("levelcode")%>4" size="10" maxlength="10" value="<%=rsp("D")%>"></td><td><input name="<%=rsv("levelcode")%>5" size="10" maxlength="10" value="<%=rsp("E")%>"></td></tr>
		<%
			end if
			rsp.close
			set rsp = nothing
		rsv.movenext
		loop
		rsv.close
		set rsv = nothing
		
	%>			
  </table>
 
<p align='center'><input type='submit' value='修  改' name='B1'></p>
</form> 
<%
end sub

sub Add()
ProductID=request("ProductID")
strClass=request("ID")
strName=request("strname")
strDetail=request("detail")
listID=request("ListID")
status=request("status")
IsTry = request("IsTry")
MPrice=request("MPrice")
priceType = request("priceType")
if priceType ="其它" then priceType = request("priceType2")
applyInfo = request("applyInfo")


if priceType = "" or MPrice = "" or ProductID="" or strclass="" or listID="" or  strName="" or strdetail="" or status=""   then
	session("mesg")="输入域都不能为空"
	Response.Redirect "../result.asp"
end if


'需要增加字段校验信息
set rs=server.createobject("adodb.recordset")
sql="select * from product where ID='"&ProductID&"'"
rs.open sql,conn,1,3
if not rs.eof then
rs.close
set rs=nothing
session("mesg")="已经存在编码为["&ProductID&"]的产品"
session("mesgtype")="mesg"
Response.Redirect "../result.asp"
end if
rs.addnew
rs("ID")=ProductID
rs("class")=strclass
rs("listID")=listID
rs("name")=strName
rs("detail")=strDetail