savem.asp

java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单,但是基本的功能都有.

<% option explicit 
	Server.ScriptTimeout=9000
%>
<!-- #include virtual="/admin/store/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	功能：库存管理--修改物品
'	@Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim sql,rs
Dim ste_name , storetype , num , innum , url , imgurl , content , ste_value 
Dim id , ste_time , orderlimit , orderdesc , ste_sort , file
Dim uploadform , filename , filepath , fs ,flag , msg
call DB_Connect(strconn)
'---验证身份----
Call AdminCheck
msg=""
set uploadform=new upload_File
id=uploadform.form("id")

if uploadform.form("delste")="删 除" then 
	response.redirect "del.asp?id=" & id
	response.end
end if

If uploadform.form("delste")="设置特价商品"  then
   Set RS=oConn.Execute("select Ste_value from t_GoodsCon where Ste_Id="&id)
   if not rs.eof and not rs.bof then
     oConn.execute("delete from t_SpecialGoods  where Ste_Id="&id)
     oConn.execute("insert into t_SpecialGoods(Ste_Id,SG_nowValue,SG_valid,Asr_Id)values("&id&",'"&rs(0)*discountPrice&"',1,"&session("admID")&")")
   end if  
    RS.Close
	Set RS=nothing
 %>
  <script language="JavaScript">
  <!--
   alert("设置成功!");
   window.location.href="modify.asp?id=<%=id%>"
   //-->
</script>
  <%
  response.end
end if

storetype=replace(trim(uploadform.form("storetype")),"'","''")
ste_name=replace(trim(uploadform.form("ste_name")),"'","''")
ste_value=replace(trim(uploadform.form("ste_value")),"'","''")
content=replace(trim(uploadform.form("content")),"'","''")
orderdesc=replace(trim(uploadform.form("orderdesc")),"'","''")
ste_sort=replace(trim(uploadform.form("ste_sort")),"'","''")

set file=uploadform.file("imgFile")

if ste_name="" or storetype="" or ste_value=""  then 
  set uploadform=nothing
  response.redirect "modify.asp?id=" & id
  %>
  <script language="JavaScript">
  <!--
   alert("修改出错!");
   window.location.href="modify.asp?id=<%=id%>"
   //-->
</script>
  <%
  response.end
end if
	
if file.FileSize=0 then msg="没有要上传的图片文件!"

if msg<>"" then 
	sql="update t_GoodsCon set ste_name='" & ste_name & "',St_typeid=" & storetype &",ste_content='" & content & "',Ste_desc='" & orderdesc & "',ste_sort=" & ste_sort & ",ste_value=" & ste_value & " where ste_id=" & id
	'response.write sql
		oConn.execute(sql)
 else
	'---get upload file---
		set fs=server.createobject("Scripting.FileSystemObject")
			filename=file.filename
			filepath=server.mappath(sPath_Info&uploadPath(storeType)&"/"&filename)
			if not fs.fileexists(filename) then 
				file.saveas(filepath)
				sql="update t_GoodsCon set ste_name='" & ste_name & "',St_typeid=" & storetype & ",ste_content='" & content & "',Ste_desc='" & orderdesc & "',ste_sort=" & ste_sort & ",ste_value=" & ste_value & ",Ste_imgurl='" & uploadPath(storeType)&"/"&filename & "' where ste_id=" & id
				oConn.execute(sql)
			else
				msg="存在同名文件!"
			end if
			set fs=nothing

   end if

set uploadform=nothing
call DB_DisConnect

if msg<>"" then 
	response.write "<SCRIPT LANGUAGE='JavaScript'>" & vbcrlf
	response.write "<!--" & vbcrlf
	response.write "	alert('" & msg & "');" & vbcrlf
	response.write "	history.go(-1);" & vbcrlf
	response.write "//-->" & vbcrlf
	response.write "</SCRIPT>"
	response.end 
end if
%>
<script language="JavaScript">
<!--
alert("成功更新!");
window.location.href="index.asp"
//-->
</script>