pro_ok.asp

狼道公司源码下载

<!--#include file="../Inc/Conn.asp" -->
<!--#include file="Check.asp" -->

<%
     act=Request("act")
     ClassID1=Request("ClassID1")
	 ClassID2=Request("ClassID2")
	 if ClassID2="" then ClassID2=0
     Title=Request("Title")
	 EnTitle=Request("EnTitle")
	 EnContent=Request("EnContent")
	 Content=Request("Content")
	 Picture=Request("Picture")
	 ID=Request("ID")
	 

select case act
   case "mod"
	 Set rs=server.CreateObject("adodb.recordset")
	 rs.open "select * from Product where ID="&ID,Conn,3,3
	    rs("Title")=Title
		rs("EnTitle")=EnTitle
		Rs("ClassID1")=ClassID1
		Rs("ClassID2")=ClassID2
		Rs("Picture")=Picture
		Rs("EnContent")=EnContent
		rs("Content")=Content
		Rs("UpdateTime")=now()
	 rs.update
	 rs.close
	 Set rs=nothing
   case "add"
	    Set rs=server.CreateObject("adodb.recordset")
	    rs.open "select * from Product where ID is null",Conn,3,3   
		rs.addnew
			rs("Title")=Title
			rs("EnTitle")=EnTitle
			Rs("ClassID1")=ClassID1
			Rs("ClassID2")=ClassID2
			Rs("Picture")=Picture
			Rs("EnContent")=EnContent
			rs("Content")=Content
			Rs("UpdateTime")=now()
		 rs.update
		 rs.close
		 Set rs=nothing
   case "del"
	  Conn.Execute("delete from Product where ID="&ID)  	  
end select

   Response.Redirect("Product.asp")


%>