5.mdb

这是一个很小的电子商务网站

<!--#include file="conn.asp"-->
<!--#include file="session1.asp"-->
<%
dim id,youbian,dizhiname,danweino,i
if request("action")="update" then
    for i=1 to request.form("id").count
	id=replace(request.form("id")(i),"'","")
	shuoming=replace(request.form("shuoming")(i),"'","")
	smvip=replace(request.form("smvip")(i),"'","")
	smhy=replace(request.form("smhy")(i),"'","")
	pyvip=replace(request.form("pyvip")(i),"'","")
	pyhy=replace(request.form("pyhy")(i),"'","")
	emsvip=replace(request.form("emsvip")(i),"'","")
	emshy=replace(request.form("emshy")(i),"'","")
	If shuoming="" Then
		response.Write "<script language='javascript'>alert('请填写说明！');javascript:history.go(-1);</script>"
		response.end
	end if
	If smvip="" Then smvip=0
	If smhy="" Then smhy=0
	If pyvip="" Then pyvip=0
	If pyhy="" Then pyhy=0
	If emsvip="" Then emsvip=0
	If emshy="" Then emshy=0
	
	conn.execute("update sh_float set shuoming='"&shuoming&"',smvip="&smvip&",smhy="&smhy&",pyvip="&pyvip&",pyhy="&pyhy&",emsvip="&emsvip&",emshy="&emshy&" where id="&id)

    next
conn.close
set conn=nothing
'response.write "<p align=center><font color=red>浮动价修改成功!<br>2秒钟后返回上页!</font>"
response.write "<meta http-equiv=""refresh"" content=""0;url=SetFluctuate.asp"">"
end if


if request("action")="add" then
	shuoming=trim(request("shuoming"))
	smvip=request.form("smvip")
	smhy=request.form("smhy")
	pyvip=request.form("pyvip")
	pyhy=request.form("pyhy")
	emsvip=request.form("emsvip")
	emshy=request.form("emshy")
	If shuoming="" Then
		response.Write "<script language='javascript'>alert('请填写说明！');javascript:history.go(-1);</script>"
		response.end
	end if
	If smvip="" Then smvip=0
	If smhy="" Then smhy=0
	If pyvip="" Then pyvip=0
	If pyhy="" Then pyhy=0
	If emsvip="" Then emsvip=0
	If emshy="" Then emshy=0
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.open "select * from sh_float",conn,1,3
rs2.addnew
rs2("shuoming")=shuoming
rs2("smvip")=smvip
rs2("smhy")=smhy
rs2("pyvip")=pyvip
rs2("pyhy")=pyhy
rs2("emsvip")=emsvip
rs2("emshy")=emshy
rs2.update
rs2.close
set rs2=nothing

conn.close
set conn=nothing
'response.write "<p align=center><font color=red>浮动价添加成功!<br>2秒钟后返回上页!</font>"
response.write "<meta http-equiv=""refresh"" content=""0;url=SetFluctuate.asp"">"
end if
%>