download_ok.asp

来自「狼道公司源码下载」· ASP 代码 · 共 54 行

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

<%
     act=Request("act")
     ClassID=Request("ClassID")
     Title=Request("Title")
	 EnTitle=Request("EnTitle")
	 Content=Request("Content")
	 EnContent=Request("EnContent")
	 DownAddress=Request("DownAddress")
	 Size1=Request("Size1")

	 ID=Request("ID")
	 

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

   Response.Redirect("DownLoad.asp")


%>