addproduct.asp

1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /WIN2000 WITH IIS 4.0 OR LATER /WIN9X+PWS 2. 数 据 库：Access2000

<!-- #include file="setup.asp" -->
<!-- #include file="inc/upfile.asp" -->
<!-- #include file="inc/function.asp" -->
<%
validate "Login.asp",1
'----------------------------------------------读取价格名称--------------------------------------------
menu=Server.HTMLEncode(Trim(Request.QueryString("menu")))
Sortid=Trim(Request.QueryString("Sortid"))

if IsNumEric(Sortid) Then
	ThSort=Conn.Execute("Select SortMan From Product_Sort where SortID = "&Sortid)(0)
	if Request.Cookies("Product") < 4 and instr(ThSort,Request.Cookies("User"))=0 Then Error 2,"您无权限修改产品！",""
End if

sql="Select FunctionInfo From Functions where FunctionID Between 13 and 15"
Set Rs = Conn.Execute(sql)
ProductI=Rs("FunctionInfo")
rs.movenext
ProductII=Rs("FunctionInfo")
rs.movenext
ProductIII=Rs("FunctionInfo")
Set Rs = Nothing

if Request.ServerVariables("request_method")="POST" then
set FileUP=new Upload_file 
FileUP.GetDate(-1)
formPath="UpProductimg/"

if FileUP.form("menu")="edit" then
	Menu=trim(FileUP.form("menu"))
	Editid=trim(FileUP.form("Editid"))
	ImgnameI=trim(FileUP.form("ImgnameI"))
	ImgnameII=trim(FileUP.form("ImgnameII"))
	D1=trim(FileUP.form("D1"))
	D2=trim(FileUP.form("D2"))
	SortID=trim(FileUP.form("SortID"))
end if

ProductNew=Server.HTMLEncode(trim(FileUP.form("ProductNew")))
ProductNum=Server.HTMLEncode(trim(FileUP.form("ProductNum")))
ProductCnName=Server.HTMLEncode(trim(FileUP.form("ProductCnName")))
ProductEnName=Server.HTMLEncode(trim(FileUP.form("ProductEnName")))
ProductI=Server.HTMLEncode(trim(FileUP.form("ProductI")))
ProductII=Server.HTMLEncode(trim(FileUP.form("ProductII")))
ProductIII=Server.HTMLEncode(trim(FileUP.form("ProductIII")))
ProductCommend=Server.HTMLEncode(trim(FileUP.form("ProductCommend")))
ProductConceal=Server.HTMLEncode(trim(FileUP.form("ProductConceal")))
ProductSf=Server.HTMLEncode(trim(FileUP.form("ProductSf")))
ProductPacking=Server.HTMLEncode(trim(FileUP.form("ProductPacking")))
ProductArrange=Server.HTMLEncode(trim(FileUP.form("ProductArrange")))
ProductSort=Server.HTMLEncode(trim(FileUP.form("ProductSort")))
ProductInfo=Server.HTMLEncode(trim(FileUP.form("ProductInfo")))

EMessage=""
if Request.Cookies("Product") < 4 and instr(ThSort,Request.Cookies("User"))=0 Then Error 2,"您无权限管理产品！",""
if conn.execute("Select count(ProductID)from Product_Info where ProductNum='"&ProductNum&"'")(0)>1 Then EMessage=EMessage&"商品货号不能重复！\n"
if isnumeric(ProductI)=false or isnumeric(ProductII)=false or isnumeric(ProductIII)=false then EMessage=EMessage&"价格输入错误！\n"
if instr(ProductCnName," ")>0 then EMessage=EMessage&"中文名称请勿包含空格！\n"
if ProductCnName="" and ProductEnName="" then EMessage=EMessage&"请输入产品名称！\n"
if ProductI="" and ProductII="" and ProductIII="" then EMessage=EMessage&"请输入产品价格！\n"
if ProductSort="" then EMessage=EMessage&"请选择产品类别！"
if EMessage<>"" then Error 2,"关于错误的原因！\n\n"&EMessage,""

ThSort=Conn.Execute("Select SortMan From Product_Sort where SortID = "&ProductSort)(0)

set file=FileUP.file("ProductImgI")
	if file.filesize then
		if file.filesize > 20480 then Error 2,"小图片不得超过 20 K\n当前的文件大小为 "&int(file.filesize/1024)&" K",""
		if LCase(file.FileExt) <> "jpg" and LCase(file.FileExt) <> "gif" Then Error 2,"图片必须为GIF或JPG格式！",""
	
		if ImgnameI<>"" then DelFile "UpProductimg/S/",ImgnameI
		ProductImgI=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"."&file.FileExt
		filename=formPath&"s/"&ProductImgI
		file.SaveToFile Server.mappath(filename)
	else
		if D1="ON" then
		DelFile "UpProductimg/S/",ImgnameI
		else
		ProductImgI=ImgnameI
		end if
	end if
	
	set file1=FileUP.file("ProductImgII")
	if file1.filesize then
		if file1.filesize > 102400 then Error 2,"大图片不得超过 100 K\n当前的文件大小为 "&int(file.filesize/1024)&" K",""
		if LCase(file1.FileExt) <> "jpg" and LCase(file1.FileExt) <> "gif" Then Error 2,"图片必须为GIF或JPG格式！",""
	
		if ImgnameII<>"" then DelFile "UpProductimg/B/",ImgnameII
		randomize
		ranNum=int(90000*rnd)+1
		ProductImgII=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&file1.FileExt
		filename1=formPath&"b/"&ProductImgII
		file1.SaveToFile Server.mappath(filename1)
	else
		if D2="ON" then
		DelFile "UpProductimg/B/",ImgnameII
		else
		ProductImgII=ImgnameII
		end if
	
	end if
	Set rs = Server.CreateObject("ADODB.Recordset")
	if Menu="edit" then
	sql="Select ProductNum,ProductCnName,ProductEnName,ProductI,ProductII,ProductIII,ProductCommend,ProductConceal,ProductNew,ProductSf,ProductPacking,ProductArrange,ProductSort,ProductInfo,ProductImgI,ProductImgII from Product_Info where ProductID="&Editid
	rs.open sql,conn,1,3
	else
	sql="Select ProductNum,ProductCnName,ProductEnName,ProductI,ProductII,ProductIII,ProductCommend,ProductConceal,ProductNew,ProductSf,ProductPacking,ProductArrange,ProductSort,ProductInfo,ProductImgI,ProductImgII from Product_Info"
	rs.open sql,conn,1,3
	rs.addnew
	end if
	rs("ProductNum")=ProductNum
	rs("ProductCnName")=ProductCnName
	rs("ProductEnName")=ProductEnName
	rs("ProductI")=ProductI
	rs("ProductII")=ProductII
	rs("ProductIII")=ProductIII
		if ProductCommend="true" then
			rs("ProductCommend")=true
		else
			rs("ProductCommend")=false
		end if
		
		if ProductConceal="true" then
			rs("ProductConceal")=true
		else
			rs("ProductConceal")=false
		end if
		
		if ProductNew="true" then
			rs("ProductNew")=true
		else
			rs("ProductNew")=false
		end if
	rs("ProductSf")=ProductSf
	rs("ProductPacking")=ProductPacking
	rs("ProductArrange")=ProductArrange
	rs("ProductSort")=ProductSort
	rs("ProductInfo")=HTMLEncode(ProductInfo)
	rs("ProductImgI")=ProductImgI
	rs("ProductImgII")=ProductImgII
	rs.update
	rs.close
	Set Rs = Nothing
	Application(registered&"NewP")=""
	
	if Request.Cookies("UserMaster") <> "" Then
		response.redirect "Management_1.asp?menu=ment&id="&ProductSort&"&page="&Request.QueryString("page")
	Else
		if Menu="edit" then
			response.redirect "Management.asp?menu=ment&id="&ProductSort
		else
			response.redirect "ProductSort.asp"
		end if
	End if
	Response.end
end if

Sub TTmenu
	TMenu=Split(Request.Cookies("UserMaster"),",")
	For i = 0 to Ubound(TMenu)-1
	if Conn.Execute("Select count(SortID) From Product_Sort where SortID="&TMenu(i))(0) > 0 Then
	TSort=Conn.Execute("Select SortCnName From Product_Sort where SortID="&TMenu(i))(0)
	Response.write " <option value="&TMenu(i)&">&nbsp;&nbsp;"&TSort&"</option>"
	end if
	Next
End Sub

if menu="edit" then
id=Request.QueryString("id")
sql="select ProductNum,ProductCnName,ProductEnName,ProductCommend,ProductNew,ProductConceal,ProductI,ProductII,ProductIII,ProductSf,ProductPacking,ProductArrange,ProductSort,ProductImgI,ProductImgII,ProductInfo from Product_Info where ProductID="&id
Set rs = Conn.Execute(sql)
	ProductNum=rs("ProductNum")
	ProductCnName=rs("ProductCnName")
	ProductEnName=rs("ProductEnName")
	ProductCommend=rs("ProductCommend")
	ProductNew=Rs("ProductNew")
	ProductConceal=rs("ProductConceal")
	nProductI=rs("ProductI")
	nProductII=rs("ProductII")
	nProductIII=rs("ProductIII")
	ProductSf=rs("ProductSf")
	ProductPacking=rs("ProductPacking")
	ProductArrange=rs("ProductArrange")
	ProductSort=rs("ProductSort")
	ProductImgI=rs("ProductImgI")
	ProductImgII=rs("ProductImgII")
	ProductInfo=rs("ProductInfo")
rs.close
Set Rs = Nothing
end if

%>
	<META http-equiv=Content-Type content=text/html;charset=gb2312>
	<link href=css.css rel=stylesheet>
	<body topmargin=0>
<%Call top
Call table()%>
<center>
<form method="POST" name="form" onsubmit="return Submit.disabled = true;" enctype="multipart/form-data">
<%Response.write "<input name=SortID type=hidden value="&Sortid&">"
if menu="edit" then
Response.write "<input name=menu type=hidden value=edit>"
Response.write "<input name=Editid type=hidden value="&id&">"
end if%>
	<table border="0" cellspacing="0" width="100%" style="border-collapse: collapse" bordercolor="#BBD0EC" cellpadding="0" bgcolor="#BBD0EC">
	<tr>
	<td width="100%">
	<table width="100%" cellspacing=1 cellpadding=4 border=0 height="146">
	<tr>
	<td height="16" align="center" colspan="2" background=images/title_sub.gif width="975">
	<b>产品增加</b></td>
	</tr>
	<tr bgcolor="#FFFFFF">
	<td colspan="2" height="16" align="left"><b>&nbsp;<img src="images/2.gif" width="60" height="9">产品详细信息</b></td>
	</tr>
	<tr>
	<td bgcolor=#f2f8ff height="19" align="right" valign="middle" width="368">货号:</td>
	<td bgcolor=#f2f8ff height="19" align="left" valign="middle" width="598">
	&nbsp;
	<input type="text" name="ProductNum" size="12" maxlength="10" value="<%=ProductNum%>"></td>
	</tr>
	<tr>
	<td bgcolor=#ECF5FF height="20" align="right" valign="middle" width="368">名称[CN]:</td>
	<td bgcolor=#ECF5FF height="20" align="left" valign="middle" width="598">
	&nbsp;
	<input type="text" name="ProductCnName" size="20" maxlength="20" value="<%=ProductCnName%>">&nbsp; 

	<%	if Trim(Request.Cookies("UserMaster")) = "" or Request.Cookies("Product") > 4 Then%>推荐:<input type="checkbox" name="ProductCommend" value="true" <%if ProductCommend=True  then Response.write "checked"%>> <%End if%>
	隐藏:<input type="checkbox" name="ProductConceal" value="true" <%if ProductConceal=True  then Response.write "checked"%>>
	上架:
	<%if menu="edit" then%>
	<input type="checkbox" name="ProductNew" value="true" <%if ProductNew=True  then Response.write "checked"%>>
	<% Else %>
		<input type="checkbox" name="ProductNew" value="true"checked>
	<% End If %>

	</td>
	</tr>
	
	<tr>
	<td bgcolor=#f2f8ff height="19" align="right" valign="middle" width="368">名称[EN]:</td>
	<td bgcolor=#f2f8ff height="19" align="left" valign="middle" width="598">
	&nbsp;
	<input type="text" name="ProductEnName" size="20" maxlength="20" value="<%=ProductEnName%>"></td>
	</tr>
	
	<tr>
	<td bgcolor=#f2f8ff height="17" align="right" valign="middle" width="368"><%=ProductI%>:</td>
	<td bgcolor=#f2f8ff height="17" align="left" valign="middle" width="598">
	&nbsp;
	<input type="text" name="ProductI" size="20" maxlength="9" value="<%=nProductI%>" onkeyup="if(isNaN(this.value)) this.value='<%=nProductI%>';" >
	</td>
	</tr>
	<tr bgcolor="#ECF5FF">
	<td height="19" align="right" valign="middle" width="368"><%=ProductII%>:</td>
	<td height="19" align="left" valign="middle" width="598" bgcolor="#ECF5FF">
	&nbsp;
	<input type="text" name="ProductII" size="20"  maxlength="9" value="<%=nProductII%>" onkeyup="if(isNaN(this.value)) this.value='<%=nProductII%>';" >
	</td>
	</tr>
	
	<tr>
	<td bgcolor=#f2f8ff height="19" align="right" valign="middle" width="368"><%=ProductIII%>:</td>
	<td bgcolor=#f2f8ff height="19" align="left" valign="middle" width="598">
	&nbsp;
	<input type="text" name="ProductIII" size="20"  maxlength="9" value="<%=nProductIII%>" onkeyup="if(isNaN(this.value)) this.value='<%=nProductIII%>';" >
	</td>
	</tr>
	<tr bgcolor="#ECF5FF">
	<td height="16" align="right" valign="middle" width="368">产品规格:</td>
	<td height="16" align="left" valign="middle" width="598"> &nbsp;
	<input type="text" name="ProductSf" size="20"  maxlength="30" value="<%=ProductSf%>"></td>
	</tr>
	<tr bgcolor="#ECF5FF">
	<td height="7" align="right" valign="middle" width="368">产品包装:</td>
	<td height="7" align="left" valign="middle" width="598"> &nbsp;
	<input type="text" name="ProductPacking" size="20"  maxlength="30" value="<%=ProductPacking%>"></td>
	</tr>
	<tr>
	<td bgcolor=#f2f8ff height="19" align="right" valign="middle" width="368">产品排序:</td>
	<td bgcolor=#f2f8ff height="19" align="left" valign="middle" width="598">
	&nbsp;
	<input type="text" name="ProductArrange" size="10"  maxlength="9" value=<%=cint(ProductArrange)%> onkeyup="if(isNaN(this.value)) this.value='<%=cint(ProductArrange)%>';" ></td>
	</tr>
	<tr bgcolor="#ECF5FF">
	<td height="10" align="right" valign="top" width="368">所属类别:</td>
	<td height="10" align="left" valign="middle" width="598"> &nbsp;
	<select size="1" name="ProductSort">
	<option value="">产品所在类别</option>
<%Select case menu
case "sort"
Response.write "<option value="&Sortid&" selected>"&Request.QueryString("sortname")&"</option>"
case "edit"
Response.write "<option value="&ProductSort&" selected>"&conn.execute("Select SortCnName from Product_Sort where SortID="&ProductSort)(0)&"</option>"
End Select

	if Request.Cookies("UserMaster") <> "" Then
	TMenu=Split(Request.Cookies("UserMaster"),",")
	For i = 0 to Ubound(TMenu)-1
	if Conn.Execute("Select count(SortID) From Product_Sort where SortID="&TMenu(i))(0) > 0 Then
	TSort=Conn.Execute("Select SortCnName From Product_Sort where SortID="&TMenu(i))(0)
	Response.write " <option value="&TMenu(i)&">&nbsp;&nbsp;"&TSort&"</option>"
	end if
	Next
	else
	listsort
	end if
%>
	</select></td>
	</tr>
	<tr bgcolor="#ECF5FF">
	<td height="8" align="right" valign="top" width="368">产品图(小):</td>
	<td height="8" align="left" valign="middle" width="598"> &nbsp; 
	<input type="file" name="ProductImgI"  size="20"> <%if ProductImgI<>"" then Response.write "<a target=_blank href=UpProductimg/s/"&ProductImgI&">点击查看原图！</a><input name=ImgnameI type=hidden value="&ProductImgI&"> 删除 <input type=checkbox name=D1 value=ON>"%></td>
	</tr>
	<tr bgcolor="#ECF5FF">
	<td height="19" align="right" valign="top" width="368">产品图(大):</td>
	<td height="19" align="left" valign="middle" width="598"> &nbsp; 
	<input type="file" name="ProductImgII"  size="20"> <%if ProductImgII<>"" then Response.write "<a target=_blank href=UpProductimg/b/"&ProductImgII&">点击查看原图！</a><input name=ImgnameII type=hidden value="&ProductImgII&"> 删除 <input type=checkbox name=D2 value=ON>"%></td>
	</tr>
	<tr bgcolor="#ECF5FF">
	<td height="108" align="right" valign="top" width="368">产品说明:</td>
	<td height="108" align="left" valign="middle" width="598"> &nbsp;
	<textarea name="ProductInfo" cols="42" rows="8" id="info"><%=Replace(ProductInfo,"<BR>",vbCrlf)%></textarea></td>
	</tr>
	<tr bgcolor="#FFFFFF" align="center">
	<td height="21" valign="middle" colspan="2" width="975">
	<input type="submit" name="Submit" value=" 完 成 "> <input type="button" name=re value="取 消" Onclick=javascript:history.back();>
	</td>
	</tr>
	</table>
	</td>
	</tr>
	</table>
	</form>
<%htmlend%>