addforced.asp

来自「1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /W」· ASP 代码 · 共 412 行 · 第 1/2 页

<!-- #include file="setup.asp" -->
<!-- #include file="inc/upfile.asp" -->
<!-- #include file="inc/function.asp" -->
<%validate "Login.asp",1
if conn.execute("Select FunctionOC from Functions where FunctionID=30")(0) = False Then Error 2,"很抱歉，本社区不开放用户拍卖功能！",""

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


	Forced_Title=Server.HTMLEncode(trim(FileUP.form("Forced_Title")))
	Forced_NO=Server.HTMLEncode(trim(FileUP.form("Forced_NO")))
	Forced_ProName=Server.HTMLEncode(trim(FileUP.form("Forced_ProName")))
	Forced_Stat=Server.HTMLEncode(trim(FileUP.form("Forced_Stat")))
	Forced_OK=Server.HTMLEncode(trim(FileUP.form("Forced_OK")))
	Forced_StTimeY=Server.HTMLEncode(trim(FileUP.form("Forced_StTimeY")))
	Forced_StTimeM=Server.HTMLEncode(trim(FileUP.form("Forced_StTimeM")))
	Forced_StTimeD=Server.HTMLEncode(trim(FileUP.form("Forced_StTimeD")))
	Forced_OvTimeY=Server.HTMLEncode(trim(FileUP.form("Forced_OvTimeY")))
	Forced_OvTimeM=Server.HTMLEncode(trim(FileUP.form("Forced_OvTimeM")))
	Forced_OvTimeD=Server.HTMLEncode(trim(FileUP.form("Forced_OvTimeD")))
	Forced_DiQu=Server.HTMLEncode(trim(FileUP.form("Forced_DiQu")))
	Forced_QU=Server.HTMLEncode(trim(FileUP.form("Forced_QU")))
	Forced_GX=Server.HTMLEncode(trim(FileUP.form("Forced_GX")))
	Forced_BZ=Server.HTMLEncode(trim(FileUP.form("Forced_BZ")))
	Forced_New=Server.HTMLEncode(trim(FileUP.form("Forced_New")))
	Forced_info=Server.HTMLEncode(trim(FileUP.form("Forced_info")))
	Forced_Nums=Server.HTMLEncode(trim(FileUP.form("Forced_Nums")))
	Forced_Go=FileUP.form("Forced_Go")
	Forced_info=Replace(Forced_info,vbcrlf,"<br>")
	Forced_info=Replace(Forced_info," ","&nbsp;")
	Forced_info=Replace(Forced_info,"'","’")



	Editid=trim(FileUP.form("Editid"))
	Menu=trim(FileUP.form("menu"))


	EMessage=""
	if len(Forced_NO) < 3 or len(Forced_NO) > 20 Then EMessage=EMessage&"产品货号不可少于3个字符或大于20个字符！\n"
	if Len(Forced_Title) < 3 or Len(Forced_Title) > 200 then EMessage=EMessage&"标题不可少于3个字符或超过200个字符！！\n"
	if len(Forced_ProName) < 2 or len(Forced_ProName) > 45 Then EMessage=EMessage&"商品名称不能少于2个字符或大于45个字符！！\n"
	if isnumeric(Forced_Nums)=False or Forced_Nums<1 Then EMessage=EMessage&"商品数量输入错误！\n"
	if isnumeric(Forced_Stat)=false Then EMessage=EMessage&"商品起始价格输入错误！\n"
	if isnumeric(Forced_OK)=false Then EMessage=EMessage&"商品一口价输入错误！\n"
	if Forced_Stat="" Then EMessage=EMessage&"商品起始价格输入错误！\n"
	if Forced_OK="" Then EMessage=EMessage&"商品一口价输入错误！\n"
	if Forced_Go < 1 or len(Forced_Go) > 4	then EMessage=EMessage&"请正确输入每次拍卖的最少涨幅！\n"
	if EMessage<>"" then Error 2,"关于错误的原因！\n\n"&EMessage,""

	Forced_StTime=Forced_StTimeY&"-"&Forced_StTimeM&"-"&Forced_StTimeD
	Forced_OvTime=Forced_OvTimeY&"-"&Forced_OvTimeM&"-"&Forced_OvTimeD

	set file=FileUP.file("Forced_Simg")
		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
			Forced_Simg=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"."&file.FileExt
			filename=formPath&"s/"&Forced_Simg
			file.SaveToFile Server.mappath(filename)
		else
			Forced_Simg=trim(FileUP.form("Forced_Simg"))
		end if
		
	set file1=FileUP.file("Forced_Bimg")
		if file1.filesize then
			if file1.filesize > 102400 then Error 2,"大图片不得超过 100 K\n当前的文件大小为 "&int(file1.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
			Forced_Bimg=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&file1.FileExt
			filename1=formPath&"b/"&Forced_Bimg
			file1.SaveToFile Server.mappath(filename1)
		else
			Forced_Bimg=trim(FileUP.form("Forced_Bimg"))
		end if
		


	if Menu="edit" then
		Sql="Update Forced_sale Set Forced_Title='"&Forced_Title&"',Forced_Nums="&Forced_Nums&",Forced_NO='"&Forced_NO&"',Forced_Conceal='1',Forced_ProName='"&Forced_ProName&"',Forced_Stat="&Forced_Stat&",Forced_OK='"&Forced_OK&"',Forced_StTime='"&Forced_StTime&"',Forced_OvTime='"&Forced_OvTime&"',Forced_DiQu='"&Forced_DiQu&"',Forced_QU='"&Forced_QU&"',Forced_GX='"&Forced_GX&"',Forced_BZ='"&Forced_BZ&"',Forced_New='"&Forced_New&"',Forced_info='"&Forced_info&"',Forced_Simg='"&Forced_Simg&"',Forced_Bimg='"&Forced_Bimg&"',Forced_Go="&Forced_Go&" where Forced_ID="&Editid
		Session("Edit")=Replace(","&Replace(Session("Edit"),","&Editid&",","")&",",",,",",")
	else
		Sql="insert into Forced_sale(Forced_Title,Forced_NO,Forced_ProName,Forced_Stat,Forced_OK,Forced_StTime,Forced_OvTime,Forced_DiQu,Forced_QU,Forced_GX,Forced_BZ,Forced_New,Forced_info,Forced_Simg,Forced_Bimg,Forced_SendUs,Forced_Conceal,Forced_SendUsID,Forced_User_IP,Forced_Go)values('"&Forced_Title&"','"&Forced_NO&"','"&Forced_ProName&"',"&Forced_Stat&","&Forced_OK&",'"&Forced_StTime&"','"&Forced_OvTime&"','"&Forced_DiQu&"','"&Forced_QU&"','"&Forced_GX&"','"&Forced_BZ&"','"&Forced_New&"','"&Forced_info&"','"&Forced_Simg&"','"&Forced_Bimg&"','"&Request.Cookies("Username")&"','1',"&Request.Cookies("User")&",'"&Request.ServerVariables("remote_addr")&"',"&Forced_Go&")"
	end if
	
	Conn.Execute(Sql)

	Error 3,"操作成功！","AddForced.asp"
	Response.end
End if


menu=Server.HTMLEncode(Trim(Request.QueryString("menu")))%>

	<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" ID="Form1">
<%
if menu = "add" Then Session("Edit")=""
if Session("Edit")<>"" and Session("Edit")<>"," then

Forced = Split(Session("Edit"),",")
Forced_ID = Forced(1)

Set rs = Server.CreateObject("ADODB.Recordset")
Sql="Select Forced_Title,Forced_Simg,Forced_Bimg,Forced_Nums,Forced_NO,Forced_ProName,Forced_Stat,Forced_OK,Forced_StTime,Forced_OvTime,Forced_DiQu,Forced_QU,Forced_GX,Forced_BZ,Forced_New,Forced_info,Forced_Conceal From Forced_sale where Forced_ID="&Forced_ID
Rs.Open Sql,Conn,1
if Cint(Rs("Forced_Conceal"))=1 Then 
Session("Edit")=Replace(","&Replace(Session("Edit"),","&Forced_ID&",","")&",",",,",",")
Error 3,"很抱歉的告诉您,由于商品 ("&Rs("Forced_ProName")&") 正在拍卖中,所以您无法对其进行修改!","AddForced.asp"
end if
Forced_Title=Rs("Forced_Title")
Forced_NO=Rs("Forced_NO")
Forced_ProName=Rs("Forced_ProName")
Forced_Stat=Rs("Forced_Stat")
Forced_OK=Rs("Forced_OK")
Forced_StT=Rs("Forced_StTime")
Forced_OvT=Rs("Forced_OvTime")
Forced_DiQu=Rs("Forced_DiQu")
Forced_QU=Rs("Forced_QU")
Forced_GX=Rs("Forced_GX")
Forced_BZ=Rs("Forced_BZ")
Forced_Nums=Rs("Forced_Nums")
Forced_Simg=Rs("Forced_Simg")
Forced_Bimg=Rs("Forced_Bimg")
Forced_New=Rs("Forced_New")
Forced_info=Rs("Forced_info")
Forced_info=Replace(Forced_info,"<br>",vbcrlf)
Forced_info=Replace(Forced_info,"&nbsp;"," ")
Forced_info=Replace(Forced_info,"’","'")


if Forced_StT <> "" Then
	Forced_StTime=Split(Rs("Forced_StTime"),"-")
	Forced_StTimeY=Forced_StTime(0)
	Forced_StTimeM=Forced_StTime(1)
	Forced_StTimeD=Forced_StTime(2)
else
	Forced_StTimeY=year(now())
	Forced_StTimeM=month(now())
	Forced_StTimeD=day(now())
end if 

if Forced_OvT<> "" Then
	Forced_OvTime=Split(Rs("Forced_OvTime"),"-")
	Forced_OvTimeY=Forced_OvTime(0)
	Forced_OvTimeM=Forced_OvTime(1)
	Forced_OvTimeD=Forced_OvTime(2)
else
	Forced_OvTimeY=year(now())
	Forced_OvTimeM=month(now())
	Forced_OvTimeD=day(now())
end if

TTile="拍卖商品资料修改 --- ["&Forced_ProName&"]"
Response.write "<input name=menu type=hidden value=edit>"
Response.write "<input name=Editid type=hidden value="&Forced_ID&">"
Else
Forced_StTimeY=year(now())
Forced_StTimeM=month(now())
Forced_StTimeD=day(now())
Forced_OvTimeY=year(now())
Forced_OvTimeM=month(now())
Forced_OvTimeD=day(now())
Forced_Nums=1
TTile="拍卖商品增加"
end if%>


	<table border="0" cellspacing="0" width="100%" style="border-collapse: collapse" bordercolor="#BBD0EC" cellpadding="0" bgcolor="#BBD0EC" ID="Table1">
	<tr>
	<td width="100%">
	<table width="100%" cellspacing=1 cellpadding=4 border=0 height="313" ID="Table2">
	<tr>
	<td height="16" align="center" colspan="4" background=images/title_sub.gif>
	<b><%=TTile%></b></td>
	</tr>
	<tr bgcolor="#FFFFFF">
	<td colspan="4" height="16" align="left"><b>&nbsp;<img src="images/2.gif" width="60" height="9">以下项目必填:</b></td>
	</tr>
	<tr bgcolor="#f2f8ff">
	  <td width="25%" height="19" align="right" >拍卖标题:</td>
	  <td height="19" colspan="3" align="left" >&nbsp; <input name="Forced_Title" type="text" id="Forced_Title" value="<%=Forced_Title%>" size="68" maxlength="200">	    </td>
	  </tr>
	<tr bgcolor="#f2f8ff">
	<td height="19" align="right" >商品货号:</td>
	<td width="27%" height="19" align="left" >
	&nbsp;
	<input name="Forced_NO" type="text" id="Forced_NO" value="<%=Forced_NO%>" size="20" maxlength="20"></td>
	<td width="11%" align="left" ><div align="right">商品名称[CN]:</div></td>
	<td width="37%" align="left" >&nbsp;
<input name="Forced_ProName" type="text" id="Forced_ProName2" value="<%=Forced_ProName%>" size="20" maxlength="20"> 
</td>
	</tr>
	<tr bgcolor="#f2f8ff">