igamebox
/
mtb_crm_asp


			
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378
							<!--#include file="Conn.asp"--><%Checklogin("信息管理")%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>产品信息管理</title>
<link rel="stylesheet" href="css/common.css" type="text/css" />
<script language="javascript" src="js/jquery-1.7.2.min.js"></script>
<script type="text/javascript" src="js/js.js"></script>
<script type="text/javascript" src="js/SearchArea.js"></script>
<script type="text/javascript" src="xheditor-1.1.9/xheditor-1.1.9-zh-cn.min.js"></script>
</head>

<body>
<div id="man_zone">
<%
Act = Request.QueryString("act")
ProductName=TextEnCode(Request.Form("ProductName"))
ProductImg=TextEnCode(Request.Form("ProductImg"))
unit=TextEnCode(Request.Form("unit"))
moq=TextEnCode(Request.Form("moq"))
nosale=Request.Form("nosale")
num=Request.Form("num")
price=Request.Form("price")
note=TextEnCode(Request.Form("note"))
tips=TextEnCode(Request.Form("tips"))

If act = "save" Then
Set Rs = Server.CreateObject("ADODB.RecordSet")

isedit = False
id = Request.Form("id")
If id<>"" And IsNumeric(id) Then isedit = True

	If isedit Then
		Rs.Open "Select * From Products Where id="&id,Conn,1,3
			Rs("ProductName") = ProductName
			Rs("ProductImg") = ProductImg
			Rs("Addtime")=now()
			Rs("moq")=moq		
			Rs("unit")=unit
			Rs("nosale")=nosale
			Rs("note")=note		
			Rs("tips")=tips					
			Rs.Update:Rs.Close
			Set Rs=Nothing
			
			numarr=split(num,",")
			pricearr=split(price,",")
			Conn.execute("delete from price where productId="&id&" and AreaId=0")
			
			For i=0 to ubound(numarr)
				If numarr(i)="" then numarr(i)=0
				If pricearr(i)="" then pricearr(i)=0			
				Conn.execute("insert into price (productId,AreaId,num,price) values("&id&",0,"&numarr(i)&",'"&pricearr(i)&"')")				
			Next			
			Conn.close
			Set Conn=Nothing
			Page = Request.QueryString("Page")
			Keys=Server.UrlEnCode(Request.QueryString("Keys"))
			Response.Redirect "?keys="&Keys&"&Page="&Page&urlStr
			Set Rs=Nothing:Conn.Close:Set Conn=Nothing	
		Else
			Rs.Open "Products",Conn,1,3
			Rs.Addnew()
			Rs("ProductName") = ProductName
			Rs("ProductImg") = ProductImg
			Rs("Addtime")=now()
			Rs("unit")=unit
			Rs("moq")=moq				
			Rs("nosale")=nosale
			Rs("note")=note			
			Rs("tips")=tips					
			Rs.Update:Rs.Close
			
			Rs.open "select top 1 id from Products order by id desc",Conn,1,3
			   id=Rs("id")
			Rs.close
			
			numarr=split(num,",")
			pricearr=split(price,",")			
			For i=0 to ubound(numarr)
				If numarr(i)="" then numarr(i)=0
				If pricearr(i)="" then pricearr(i)=0			
				Conn.execute("insert into price (productId,AreaId,num,price) values("&id&",0,"&numarr(i)&",'"&pricearr(i)&"')")				
			Next	
			Set Rs=Nothing
			Conn.close
			Set Conn=Nothing	
			Page = Request.QueryString("Page")
			Keys=Server.UrlEnCode(Request.QueryString("Keys"))
			Response.Redirect "?keys="&Keys&"&Page="&Page&urlStr
			Set Rs=Nothing:Conn.Close:Set Conn=Nothing	
	End If
Conn.Close:Set Conn=Nothing

Response.End
End If 'end save


If Act = "add" or Act = "edit" Then
id = Request.QueryString("id")
isedit = False
If id<>"" And IsNumeric(id) Then isedit=True
	If isedit Then
		Set Rs = Server.CreateObject("ADODB.RecordSet")
		Rs.Open "Select ProductName,ProductImg,unit,moq,nosale,note,tips from Products Where id="&id,Conn,1,1
		If Not Rs.Bof And Not Rs.Eof Then
			ProductName=TextUnCode(Rs("ProductName"))
			ProductImg=TextUnCode(Rs("ProductImg"))
			unit=Rs("unit")
			moq=TextUnCode(Rs("moq"))		
			nosale=Rs("nosale")
			note=TextUnCode(Rs("note"))
			tips=TextUnCode(Rs("tips"))			
		Else
			isedit = False
		End If
		Rs.Close:Set Rs=Nothing
	End If

Page = Request.QueryString("Page")
Keys=Server.UrlEnCode(Request.QueryString("Keys"))

hrefstr = "?keys="&Keys&"&Page="&Page
%>
	<form name="form1" method="post" action="<%=hrefstr%>&act=save">
	<table width="100%" border="0" cellpadding="3" cellspacing="1" class="table1">
		<tbody>
			<tr>
				<th width="8%">产品名称</th>
				<td ><input type="text" id="ProductName" name="ProductName" value="<%=ProductName%>" class="txt1" /><input type="hidden" name="id" value="<%=id%>" /></td>
			</tr>
			<tr>
				<th width="8%">产品图片</th>
				<td ><input type="text" id="ProductImg" name="ProductImg" placeholder="186x*186px" value="<%=ProductImg%>" class="txt1" style="width:390px;float:left;" /><iframe src="uploadfile.asp" frameborder="0" scrolling="no" style="width:400px;height:22px;float:left;margin-left:10px;"></iframe></td>				
			</tr>
			<tr>
				<th width="8%">计价单位</th>
				<td ><input type="text" id="unit" name="unit" value="<%=unit%>" class="txt1"/></td>				
			</tr>		
			<tr>
				<th width="8%">起订数量</th>
				<td ><input type="text" id="moq" name="moq" value="<%=moq%>" class="txt1"/></td>				
			</tr>				
			<tr>
				<th width="8%">默认售价</th>
				<td >
					<div class="Price">
						<%	If isedit Then 
							Set Rs = Server.CreateObject("ADODB.RecordSet") 
								Rs.open "Select num,price from price where AreaId=0 and productId="&id&" order by num asc",conn,1,1
								If Not Rs.bof and Not Rs.eof Then
								For i=1 to Rs.RecordCount					
						%>					
						<div class="priceitem"><label>≥</label><input type="number" class="txt3 num" name="num" value="<%=Rs("num")%>"><label class="unit"><%=unit%></label> <label>售价</label><input type="text" class="txt3 price" name="price" value="<%=Rs("price")%>"><label>RMB</label><span class="additem"></span><span class="delitem"></span><span class="note"></span></div>
						<%
								Rs.moveNext
								Next
								Rs.close
						    Else
						%>
							<div class="priceitem"><label>≥</label><input type="number" class="txt3 num" name="num"><label class="unit"><%=unit%></label> <label>售价</label><input type="text" class="txt3 price" name="price"><label>RMB</label> <span class="additem"></span><span class="delitem"></span><span class="note"></span></div>						
						<%						
							End If
						Else%>
						<div class="priceitem"><label>≥</label><input type="number" class="txt3 num" name="num"><label class="unit"><%=unit%></label> <label>售价</label><input type="text" class="txt3 price" name="price"><label>RMB</label> <span class="additem"></span><span class="delitem"></span><span class="note"></span></div>						
						<%End If%>
					</div>
				</td>				
			</tr>					
			<tr>
				<th width="8%">不报价地区</th>
				<td >
					<ul class="areadd">
						<% If nosale<>"" Then
							
								Rs.open "select id,countryName from country where id in("&nosale&")",conn,1,1
								Do while not Rs.bof And not Rs.eof
						%>
							<li><input type="hidden" name="nosale" value="<%=Rs("id")%>"><span class="cname"><%=Rs("countryName")%></span><span class="close"></span></li>
						<%		
								Rs.moveNext
								loop
								Rs.close
						  End If		
						%>
					</ul>
					<input type="text" id="AreaSearch" class="fastsearch">
					<div id="arealist" class="productlist"><ul></ul></div>
				</td>
			</tr>		
			<tr>
				<th width="8%">不报价处理方式</th>
				<td><input type="text" id="note" name="note" value="<%=note%>" class="txt1"/></td>
			</tr>		
			<tr>
				<th width="8%">备注</th>
				<td><input type="text" id="tips" name="tips" value="<%=tips%>" class="txt1"/></td>
			</tr>				
			<tr>
				<th></th>
				<td colspan="2">
					<input type="submit" name="save" id="save" value="确定" class="btn1" /> <input type="reset" name="save" id="save" value="重置" class="btn1" /> <input type="button" value="返回" class="btn1" onClick="location.href='<%=hrefstr%>'" />
				</td>
			</tr>
		</tbody>
	</table>
	</form>
</div>
</body>
</html>
<%
	Set Rs=Nothing
	conn.close
	Set conn=Nothing
Response.End
End If 'End Edit


If Act="postchk" Then

Keys = Server.UrlEnCode(Request.QueryString("Keys"))
Page = Request.QueryString("Page")
chkact = Request.Form("chkact")
SqlStr = ""
For i = 1 To Request.Form("chkbox").Count
	If SqlStr<>"" Then
		SqlStr = SqlStr & " Or id="&Request.Form("chkbox")(i)
	Else
		SqlStr = " Where id="&Request.Form("chkbox")(i)
	End If
Next

Select Case chkact
Case "0":SqlStr = "Update customer Set cs_state="&chkact&SqlStr
Case "1":SqlStr = "Update customer Set cs_state="&chkact&SqlStr
Case Else:SqlStr = "Delete From products"&SqlStr
End Select

Conn.Execute(SqlStr):Conn.Close:Set Conn=Nothing
Response.Redirect "?Keys="&Keys&"&Page="&Page
Response.End
End If	'End postchk


Keyscode=TextEnCode(Request.QueryString("Keys"))
Page = Request.QueryString("Page")

sqlStr="Select id,ProductName,ProductImg from Products order by id Desc"	

Set Rs=Server.CreateObject("ADODB.RecordSet")
Keys=Server.UrlEnCode(Request.QueryString("Keys"))
hrefstr = "?keys="&Keys&urlStr
Set Rs1=Server.CreateObject("ADODB.RecordSet")

%>	
	<form id="form1" method="post" action="?act=postchk&Keys=<%=keys%>&Page=<%=Page%>" onSubmit="return false" />
	
		<table width="100%" border="0" cellpadding="3" cellspacing="1" class="table1">
		<thead>
			<tr>
				<th width="4%"><input type="checkbox" name="chkall" id="chkall" onClick="chkboxall(this,'chkbox')" /></th>
				<th width="6%">序号</th>
				<th width="30%">产品名称</th>		
				<th width="40%">图片</th>						
				<th width="20%">操作</th>
			</tr>
		</thead>
		<tbody>

<%
Rs.Open sqlStr,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
	Rs.PageSize = 18
	If Page = "" Then Page = 1
	If Page = "end" Then Page = Rs.PageCount
	If Not IsNumeric(Page) Or Page < 1 Then Page = 1
	Page = Cint(Page)
	If Page > Rs.PageCount Then Page = Rs.PageCount
	Rs.AbsolutePage = Page
	TempNum = Rs.PageSize * (Page - 1)
	
	Set Rs1=Server.CreateObject("ADODB.RecordSet")

	For i=1 To Rs.PageSize
		If Rs.Bof Or Rs.Eof Then Exit For
		TempNum=TempNum+1:classid=Rs(1)
%>
			<tr onMouseOver="this.style.background='#F7FCFF'" onMouseOut="this.style.background='#FFFFFF'">
				<td align="center"><input type="checkbox" name="chkbox" value="<%=Rs(0)%>" /></td>
				<td align="center" ><%=TempNum%></td>
				<td align="center" ><%=Rs("ProductName")%></td>
				<td align="center" ><img src="<%=Rs("productImg")%>" width="80px"></td>				
				<td align="center"><a href="?Keys=<%=keys%>&Page=<%=Page%><%=urlStr%>&act=edit&id=<%=Rs(0)%>" class="ico_edit ico">修改</a>
				</td>
			</tr>
<%
		Rs.MoveNext
	Next
Else
	If Keys="" Then
%>
			<tr>
				<td align="center" colspan="9">Sorry，当前暂无信息</td>
			</tr>

<%
	Else
%>
			<tr>
				<td align="center" colspan="9"><a href="?">Sorry，没有找到“<%=Keyscode%>”相关的信息，点击返回</a></td>
			</tr>
<%
	End If
End If
%>
		</tbody>
		<tfoot>
			<tr>
				<td colspan="9">
					<div class="showpagebox">
<%
If Rs.PageCount > 1 Then
		PageName="?Keys="&Keys&urlStr&"&"
	Pagelen=3
	If Page>1 Then
		Response.Write "<a href="""&PageName&"Page=1"">首页</a>"
		Response.Write "<a href="""&PageName&"Page="&Page-1&""">上一页</a>"
	End If

	If Pagelen*2+1 >= Rs.PageCount Then
		StartPage=1:EndPage=Rs.PageCount
	Else
		If Page<=Pagelen+1 Then
			StartPage=1
			EndPage=Pagelen*2+1
		Else
			StartPage=Page-Pagelen
			EndPage=Page+Pagelen
		End If
		If Page+Pagelen>Rs.PageCount Then StartPage=Rs.PageCount-Pagelen*2:EndPage=Rs.PageCount
	End If

	For i = StartPage To EndPage
		If i = Page Then
			Response.Write "<a class=""current"">"&i&"</a>"
		Else
			Response.Write "<a href="""&PageName&"Page="&i&""">"&i&"</a>"
		End If
	Next

	If Page<Rs.PageCount Then
		If Rs.PageCount - Page > Pagelen Then Response.Write "<a href="""&PageName&"Page="&Rs.PageCount&""">..."&Rs.PageCount&"</a>"
		Response.Write "<a href="""&PageName&"Page="&Page+1&""">下一页</a>"
		Response.Write "<a href="""&PageName&"Page="&Rs.PageCount&""">尾页</a>"
	End If

	Response.Write "<input type=""text"" id=""Pagego"" value="""&Page&""" onFocus=""if(this.value == '"&Page&"'){this.value='';}"" onBlur=""if(this.value == ''){this.value='"&Page&"';}"" onKeyUp=""this.value=this.value.replace(/\D/g,'')"" onKeyDown=""if(event.keyCode==13){location.href='"&PageName&"Page='+document.getElementById('Pagego').value}"" />"
End If
%>					</div>
					<div class="postchkbox">
						<select id="chkact" name="chkact">
							<option value="1">显示</option>
							<option value="0">隐藏</option>
							<option value="-1">删除</option>
						</select>
						<input type="button" value="执行" onClick="postchk(1)" class="btn1" />
						<input type="button" value="新增" onClick="location.href='?act=add'" class="btn1" />
					</div>
				</td>
			</tr>
		</tfoot>
	</table>
	</form>
<%Rs.Close:Set Rs=Nothing:Set Rs1=Nothing:Conn.Close:Set Conn=Nothing%>
</div>
</body>
</html>