save.asp

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

<% option explicit 
	Server.ScriptTimeout=9000
%>
<!-- #include virtual="/admin/store/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	功能：库存管理--添加物品
'	@Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim sql,rs
Dim ste_name , storetype , content , ste_value ,file
Dim ste_id , ste_time , orderlimit , orderdesc , abouturl 
Dim uploadform , filename , filepath , fs , msg
call DB_Connect(strconn)
'---验证身份----
Call AdminCheck

msg=""
set uploadform=new upload_File
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")),"'","''")
set file=uploadform.file("imgFile")

if ste_name="" or storetype="" or ste_value=""  then 
  set uploadform=nothing
  response.redirect "add.asp"
  response.end
end if

 if file.FileSize=0 then msg="没有要上传的图片文件!"
		if msg="" then 
			'---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="insert into t_GoodsCon (ste_name , St_typeid , Ste_imgurl ,  Ste_content , Ste_desc , Ste_sort , Ste_value , Ste_point) "
				sql= sql & "values('" & ste_name & "'," & storetype & ",'" & uploadPath(storeType)&"/"&filename & "','" & content & "','" & orderdesc & "',0,'" & ste_value & "',0)"
				oConn.execute(sql)
			else
				msg="存在同名文件!"
			end if
			set fs=nothing
		end if

set uploadform=nothing

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
%>
<%
call DB_DisConnect
%>
<script language="JavaScript">
<!--
alert("添加成功!");
window.location.href="add.asp";
//-->
</script>