📄 addupload.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="../inc/conn.asp" -->
<!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=gb2312" />
<title>意科在线购物系统</title>
<%
if session("Sname") = "" then
%>
<SCRIPT language="javascript">
{
window.alert("您还没有登陆系统!");
window.location="default.asp";
}
</SCRIPT>
<%
response.end
end if
%>
</head>
<body>
<%
Set obj=Server.CreateObject("LyfUpload.UploadFile")
pid = trim(obj.request("pid"))
pname = trim(obj.request("pname"))
pprice = trim(obj.request("pprice"))
freight = trim(obj.request("freight"))
spec = trim(obj.request("spec"))
xremark = trim(obj.request("xremark"))
pic = trim(obj.request("picupload"))
remark = trim(obj.request("remark"))
iscommend = trim(obj.request("radiobutton"))
isopen = trim(obj.request("radiobutton1"))
if pprice = "" then
pprice = 0
end if
if freight = "" then
freight = 0
end if
sql = "select * from goods where pid='" &pid& "'"
rs.open sql,conn,1,3
if not rs.eof then
response.redirect("manufacture_info_operateadd.asp?stat=1")
else
num = instr(pic,".") '判断是否上传图片
if num <> 0 then
strpic = mid(pic,instr(pic,"."),instr(pic,"Content-Type")-instr(pic,".")-3) '取上传图片的扩展名
str = left(pic,instr(pic,"."))
str = mid(str,instrRev(str,"\")+1,instr(str,".")-instrRev(str,"\")-1)&strpic '取得文件名
strpic = pid & strpic
'上传图片到当前目录的pic文件夹下
aa = obj.filetype("picupload")
if left(aa,len(aa)-3) = trim("image/gif") or left(aa,len(aa)-3) = "image/pjpeg" then
rs.close
'添加记录到数据库
sql1 = "insert into goods(pid,pname,price,freight,ppic,remark,spec,xremark,iscommend,isopen) values('" &pid& "','" & pname& "'," &pprice& "," &freight& ",'" &strpic& "','" &remark& "','" &spec& "','" &xremark& "'," &iscommend&"," &isopen&")"
rs.open sql1,conn,3,3
'修改上传图片的文件名
Set o_Fso = CreateObject("Scripting.FileSystemObject")
ss=obj.SaveFile("picupload",server.MapPath("../")&"\pic")
o_Fso.CopyFile server.MapPath("../")&"\pic\"&str,server.MapPath("../")&"\pic\"&strpic
o_Fso.DeleteFile server.MapPath("../")&"\pic\"&str
response.redirect("manufacture_info_operateadd.asp?stat=2")
else
response.redirect("manufacture_info_operateadd.asp?stat=3")
end if
else
rs.close
'添加记录到数据库
sql1 = "insert into goods(pid,pname,price,freight,remark,spec,xremark,iscommend,isopen) values('" &pid& "','" &pname& "'," &pprice& "," &freight& ",'" &remark& "','" &spec& "','" &xremark& "'," &iscommend& "," &isopen&")"
rs.open sql1,conn,3,3
response.redirect("manufacture_info_operateadd.asp?stat=2")
end if
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -