📄 save_product.asp
字号:
<!--#include file="../../conn/dbconn2.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../../inc/config.asp"-->
<!--#include FILE="../../inc/upload_5xsoft.inc"-->
<%
Response.Buffer = true
Response.ExpiresAbsolute=now()-1
Response.Expires=0
Response.CacheControl="no-cache"
%>
<%
if Not ChkPost then
response.redirect ("../../login/chklogin.asp?login=4")
response.end
end if
if session("flag")<>1 then
response.Redirect("../../login/login1.asp")
response.end
end if
set upload=new upload_5xSoft
formPath=newspic
bigclassid=Replace_Text(upload.form("bigclassid"))
smallclassid=Replace_Text(upload.form("smallclassid"))
cpmc=Replace_Text(upload.form("cpmc"))
cpgg=Replace_Text(upload.form("cpgg"))
cpcd=Replace_Text(upload.form("cpcd"))
sortid=Replace_Text(upload.form("sortid"))
typeid=Replace_Text(upload.form("typeid"))
p_z_Z_Keywords=Replace_Text(upload.form("p_z_Z_Keywords"))
xxsm=Replace_Text(upload.form("xxsm"))
more_info=Replace_Text(upload.form("more_info"))
cpsb=Replace_Text(upload.form("cpsb"))
Quantity=Replace_Text(upload.form("Quantity"))
Packaging=Replace_Text(upload.form("Packaging"))
cpjg=Replace_Text(upload.form("cpjg"))
FeedbackFlag=Replace_Text(upload.form("FeedbackFlag"))
if FeedbackFlag="" then
FeedbackFlag=0
else
FeedbackFlag=1
end if
gsid=session("id")
'iCount=0
for each formName in upload.objFile
set file=upload.file(formName)
if file.FileSize>0 then
if file.filesize>200000 then
response.write"<SCRIPT language=JavaScript>alert('您上传的图片大于规定大小(200K),请改变文件大小后再进行上传。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
FileExt = Mid(file.Filename, InStrRev(file.Filename, ".")+1)
FileExt = FixName(FileExt)
If Not ( CheckFileExt(FileExt) and CheckFileType(File.FileType) ) Then
'if trim(right(file.FileName,3))<>"jpg" and trim(right(file.FileName,3))<>"gif" then
response.write"<SCRIPT language=JavaScript>alert('您上传的文件必须是gif|jpg|jpeg|bmp|png图象文件，请将你上传的文件转换为以上格式后再进行上传。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
'FileName=gsid&MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName, ".")+1)
FileName=gsid&MakedownName()&"."&FileExt
file.SaveAs Server.mappath(formPath&FileName)
picture=FileName
'iCount=iCount+1
end if
next
set file=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from productshow where cpmc='"&cpmc&"' and cpgg='"&cpgg&"' and gsid="&gsid&""
'response.write sql
rs.open sql,conn,1,3
if not rs.eof then
response.write"<SCRIPT language=JavaScript>alert('对不起，您已经提交过此产品！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
rs.addnew
rs("cpmc")=cpmc
rs("cpgg")=cpgg
rs("cpcd")=cpcd
rs("sortid")=sortid
rs("typeid")=typeid
if picture="" then picture="nopicture.gif"
rs("picture")=picture
rs("keywords")=p_z_Z_Keywords
rs("xxsm")=xxsm
rs("cpsb")=cpsb
rs("Quantity")=Quantity
rs("Packaging")=Packaging
rs("cpjg")=cpjg
rs("FeedbackFlag")=FeedbackFlag
rs("gsid")=gsid
rs("idate")=date()
rs("bigclassid")=bigclassid
rs("smallclassid")=smallclassid
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
set upload=nothing
'response.redirect ("eidt.asp")
end if
'end if
'end if
'set file=nothing
'end if
'next
%>
<%
'if TrustpassFlag="true" then
'response.write"发邮件"
'end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>操作成功</title>
<link href="../../images/css.css" rel="stylesheet" type="text/css">
<meta HTTP-EQUIV=refresh Content='1;url=add_product.asp'>
</head>
<table border="0" cellspacing="0" width="100%" cellpadding="0" height="418" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="100%" height="418" valign="middle" align="center">
<b>恭喜您，您的产品已经发布成功！<a href="add_product.asp">返回</a></b></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -