admin_prod.asp

广告策划中心整站程序

end if

if action="SearchTypeAdd" then
call SearchTypeAdd()
end if
%>
     

</td></tr></table>
      
</td></tr>

<tr>
      
    <td  height="10" align=center colspan="2">程序美工设计：风清扬设计工作室</td>
    </tr>
</table>
</body>
</html>


<%
sub listPages() 
if n <= 1 then exit sub 
%>
<p>>> 
<%if currentpage = 1 then%>
<font color=darkgray>首页</font>
<%else%> 
<font color=black face="arial"><a href="<%=request.ServerVariables("script_name")%>?page=1">
首页</font></a>
 <a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage-1%>">
<font color=black face="arial" >前页</a></font>
<%end if%>
<%if currentpage = n then%> 
<font color=darkgray face="arial" >后页</font>
<%else%> 
<font color=black face="arial" ><a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage+1%>">下页</a>
 <a href="<%=request.ServerVariables("script_name")%>?page=<%=n%>">末页</a></font>
<%end if%>
<font color=black face="arial" >
  总:<%=currentpage%>/<%=n%>页&nbsp;&nbsp;总共:<%=totalrec%>个产品 [<%=msg_per_page%>产品/页]</font></p>
<%end sub%>

<%'定义操作动作模块
sub prodclose()
if ProdNum="" or isnull(ProdNum) then
		Response.write "<BLOCKQUOTE><br><br>操作失败，没有选择合适参数！<A HREF='admin_prod.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_prod.asp""></BLOCKQUOTE>"
	else
		Set rs=Server.CreateObject("ADODB.Recordset")
		sql="select * from ProdMain where ProdNum in ("&ProdNum&")"
		rs.open sql,conn,1,3
		if err.number<>0 then '错误处理
			response.write "数据库操作失败：" & err.description
			err.clear
		else
			if rs.eof and rs.bof then
				response.write "<script language='javascript'>"
				response.write "alert('该产品不存在，或者被删除了！');"		
				response.write "</script>"			
			else
				Do while not rs.eof
				rs("online")=false
				rs.update
				rs.movenext
				loop
				
			end if  
			response.write "<script language='javascript'>"
			response.write "alert('产品 离线 设置成功！');"
			response.write "location.href='admin_prod.asp';"			
			response.write "</script>"
			rs.close
			conn.close
			set rs=nothing
			set conn=nothing
		end if
	end if
end sub

sub prodopen()
	if ProdNum="" or isnull(ProdNum) then
		Response.write "<BLOCKQUOTE><br><br>操作失败，没有选择合适参数！<A HREF='admin_prod.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_prod.asp""></BLOCKQUOTE>"
	else
		Set rs=Server.CreateObject("ADODB.Recordset")
		sql="select * from ProdMain where ProdNum in ("&ProdNum&")"
		rs.open sql,conn,1,3
		if err.number<>0 then '错误处理
			response.write "数据库操作失败：" & err.description
			err.clear
		else
			if rs.eof and rs.bof then
				response.write "<script language='javascript'>"
				response.write "alert('该产品不存在，或者被删除了！');"		
				response.write "</script>"			
			else
				Do while not rs.eof
				rs("online")=true
				rs.update
				rs.movenext
				loop			
			end if  
			response.write "<script language='javascript'>"
			response.write "alert('产品 在线显示 设置成功！');"
			response.write "location.href='admin_prod.asp';"			
			response.write "</script>"
			rs.close
			conn.close
			set rs=nothing
			set conn=nothing
		end if
	end if
end sub

sub delother()
conn.execute("delete from fileother where ProdId='"&request("id")&"' and FilePath='"&request("FilePath")&"'")
response.redirect "admin_prod.asp?action=detail&id="&request("id")
end sub

'处理数组函数
function checkreal(v)
dim w
if not isnull(v) then
	w=replace(v,", ",",")
	'w=replace(w," ","")
	checkreal=w
end if
end function

sub prodadd()
	if request("add") ="ok" then	
 	 num = request("i")
	 Dim bbb
	 Dim SearchType
	 bbb=checkreal(request.form("array_num(0)"))
	 for i=1 to num-1 
	   bbb = bbb&","&checkreal(request.form("array_num("&i&")"))
	 next
	 SearchType = mid(bbb,2) '去掉前面的竖号

	 if request("FileOther")="1" then '如果是有多张图片的话，就产生一个事务，同时写入两个表中
		Set rs=Server.CreateObject("ADODB.Recordset")
		sql="select * from ProdMain Where ProdId='"&request("ProdId")&"'"
		rs.open sql,conn,3,3
		Set rsfile=Server.CreateObject("ADODB.Recordset")
		rsfile.open "FileOther" ,conn,3,3

		if not rs.eof then
		response.write "产品编号重复了，请重新填写编号"
		set rs=nothing
		'set rsfile=nothing
		response.end
		end if

		'事务定义开始
		conn.Begintrans
		'操作一 写入产品详细信息
		rs.Addnew
		rs("ProdId")=request.form("ProdId")
		rs("ProdName")=request.form("ProdName")
		rs("Model")=request.form("Model")
		rs("PriceList")=request.form("PriceList")
		rs("LarCode")=request.form("LarCode")		
		rs("MidCode")=request.form("Midcode")
		if SearchType<>"" then rs("SearchType")=SearchType
		rs("ProduceArea")=request.form("ProduceArea")
		rs("ProdDisc")=request.form("ProdDisc")
		rs("ProdLong")=request.form("ProdLong")
		rs("ProdHeight")=request.form("ProdHeight")
		rs("ProdWidth")=request.form("ProdWidth")
		rs("ImgPrev")=request.form("ImgPrev")
		rs("ImgPrevWidth")=request.form("ImgPrevWidth")
		rs("ImgPrevHeight")=request.form("ImgPrevHeight")
		rs("ProdHeight")=request.form("ProdHeight")
		rs("ImgFull")=request.form("ImgFull")
		rs("ImgFullHeight")=request.form("ImgFullHeight")
		rs("ImgFullWidth")=request.form("ImgFullWidth")
		rs("FileOther")=request.form("FileOther")
		rs("Quantity")=request.form("Quantity")
		rs("MemoSpec")=request.form("MemoSpec")
		rs("Remark")=request.form("Remark")
		if error>0 then
		response.write " 操作产品列表生成错误！！"
		return
		end if
		rs.update	

		'擦作二 产品大图片写入另外的表中
		if request.form("Hug")="" then 
		response.write "没有填写产品大图个数！"
		return
		end if
		For m=1 to request.form("Hug")
			rsfile.addnew
			rsfile("FilePath")=request.form("Hug"&m)
			rsfile("ProdId")=request.form("ProdId")
			if error>0 then
			response.write " 操作产品大图列表生成错误！！"
			return
			end if
			rsfile.update
		Next

		'事务操作结束
		conn.CommitTrans		
		rs.close
		rsfile.close
		set rs=nothing
		set rsfile=nothing
		Response.Redirect"admin_prod.asp?action=detail&id="&request.form("ProdId")

	else '如果是选择没有其他图片，则只需要写入主产品资料
				Set rs=Server.CreateObject("ADODB.Recordset")
		sql="select * from ProdMain order by ProdNum asc"
		rs.open sql,conn,1,3
		if err.number<>0 then '错误处理
			response.write "数据库操作失败：" & err.description
			err.clear
		else		
		rs.Addnew
		rs("ProdId")=request.form("ProdId")
		rs("ProdName")=request.form("ProdName")
		rs("Model")=request.form("Model")
		rs("PriceList")=request.form("PriceList")
		rs("LarCode")=request.form("LarCode")		
		rs("MidCode")=request.form("Midcode")
		if SearchType<>"" then rs("SearchType")=SearchType
		rs("ProduceArea")=request.form("ProduceArea")
		rs("ProdDisc")=request.form("ProdDisc")
		rs("ProdLong")=request.form("ProdLong")
		rs("ProdHeight")=request.form("ProdHeight")
		rs("ProdWidth")=request.form("ProdWidth")
		rs("ImgPrev")=request.form("ImgPrev")
		rs("ImgPrevWidth")=request.form("ImgPrevWidth")
		rs("ImgPrevHeight")=request.form("ImgPrevHeight")
		rs("ProdHeight")=request.form("ProdHeight")
		rs("ImgFull")=request.form("ImgFull")
		rs("ImgFullHeight")=request.form("ImgFullHeight")
		rs("ImgFullWidth")=request.form("ImgFullWidth")
		rs("FileOther")=request.form("FileOther")
		rs("Quantity")=request.form("Quantity")
		rs("MemoSpec")=request.form("MemoSpec")
		rs("Remark")=request.form("Remark")
		rs.update	

		rs.close
		conn.close
		set rs=nothing
		set conn=nothing
'		Response.Redirect"admin_prod.asp?action=detail&id="&request.form("ProdId")
		Response.Redirect "admin_prod.asp"
		end if	

	end if
	else
LarCode=request("LarCode")
%>
		<br>
<script language="JavaScript" type="text/JavaScript">
window.name="winprod";
</script>
		<TABLE width="95%" border=1 cellpadding=3 style="border-collapse: collapse" bordercolor="#3D5489" align=center>	   
	 <form name=prodtable method="post" action=""><B><font color="yellow"> 数据表序列ID : <%=NewNum%></font></B>
	 <TR><TD width="20%" align="right">所属大类</TD>
	  <TD width="80%"> 
	<select name="LarCode" onchange="window.location.href='admin_prod.asp?action=加商品&Larcode='+this.options[this.selectedIndex].value; this.selectedIndex=0">
	<option value="未归类" selected>---选择大类---</option>
<%	Dim a,b,c 
	'显示产品类别表
	set rslar=server.createobject("adodb.recordset") 
	set rsmid=server.createobject("adodb.recordset") 
	sqllar="select distinct LarCode,LarSeq from ProdClass order by LarSeq" 
	sqlmid="select distinct LarCode,LarSeq,MidCode,midSeq from ProdClass" 
	if LarCode<>"" then sqlmid=sqlmid&" where LarCode='"&LarCode&"'"
	sqlmid= sqlmid & " order by LarSeq,MIdSeq " 
	rslar.Open sqllar,conn,1,1 
	rsmid.Open sqlmid,conn,1,1 
	if rslar.bof and rslar.eof then
			response.write "<option selected value='未归类'>-暂无分类-</option>"
	else
			Do While Not rslar.eof	
				response.write "<option value="&rslar("LarCode")
				if LarCode=rslar("LarCode") then response.write " selected"
				response.write ">"&rslar("LarCode")&"</option>"
				rslar.movenext
				if rslar.eof then
				exit do
				end if		
			loop
	end if
	response.write "</select>"
	rslar.close
	set rslar=nothing
response.write "</TD></TR><TR><TD width='20%' align='right'>所属中类</TD>	<TD width='80%'>"

	response.write "<select name='MidCode'>"
	response.write	"<option value='未归类' selected>---选择中类---</option>"
	if rsmid.bof and rsmid.eof then
			response.write "<option selected value='未归类'>-暂无分类-</option>"
	else
			Do While Not rsmid.eof	
				response.write "<option value='"&rsmid("MidCode")&"'>"&rsmid("LarCode")&"-"&rsmid("MidCode")&"</option>"
				rsmid.movenext
				if rsmid.eof then
				exit do
				end if		
			loop
	end if
	rsmid.close
	set rsmid=nothing
%>	
</TD></TR>	 
<%
'如果选择了大类则显示该类的搜索类别
 sql="select distinct ID,TypeNo,LarCode,SearchName,SearchContain from SearchType order by LarCode desc"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	count=rs.RecordCount
	response.write "<TR><TD width='20%' align='right' rowspan="&count&">搜索类别(按符合的来选)</TD>"
	IF rs.eof and rs.bof then 
		response.write "<td align=center colspan=2 class=b><a href=admin_prod.asp?action=SearchTypeAdd><b>暂时没有搜索分类，要添加吗？</b></a></td></tr><tr>"
	else
		'Dim array_num()
		for i=1 to count 
			response.write "<td width='80%'>"&rs("SearchName")&":<br>"

			sheet=Split(rs("SearchContain"),"|") '用竖号|转化 上海|北京|南京 为数组
			for j=1 to ubound(sheet)+1