admsave.asp

8款下载系统源代码 2003-3-11 21:37:45 433 949k · 都很常见： 猛虎山庄、燕衔泥（飞扬的软件第二版用的就是他

<!--#include file="admcheck.asp"-->
<!--#include file="dbpath.asp"-->
<!--#include file="char.inc"-->
<%
'### 删除程序#################
if request("d")="del" then
sql="delete from down where id="&request("id")
conn.execute sql
response.write "<meta http-equiv='Refresh' content='0; URL=admlist.asp?type="&request("type")&"'>"
else
'### 添加程序 #######################
if request("type")="" or request("name")="" or request("file")="" then
response.write("<script>alert('带*的必须填写!');history.go(-1)</script>")
response.end
end if
set rs=server.CreateObject("ADODB.RecordSet")
		if request("d")="add" then
			rs.open "select * from down",conn,3,2
			rs.addnew
		elseif request("d")="edit" then
		    rs.open "select * from down where id="&request("id"),conn,3,2
		      if request("hitsyes")<>"" then
		        rs("hits")=request("hits")
		      end if
		      if request("timeyes")<>"" then
		        rs("date")=date()
		      end if
		end if
			rs("type")=request("type")
			rs("name")=request("name")
			rs("file")=request("file")
			rs("kk")=request("kk")
			rs("ys")=request("ys")
			if request("note")<>"" then
			rs("note")=htmlencode(request("note"))
			else
			rs("note")=request("name")
			end if
			rs.update
			rs.close
		if request("d")="add" then
			response.write("<b>添加完成!</b>")
		elseif request("d")="edit" then
		    response.write("<b>修改完成!</b>")
		end if
		response.write("<br><Br><Br><a href=admadd.asp><<继续添加</a> | <a href=admlist.asp>返回列表>></a>")
		
end if
set rs=nothing
conn.close
set conn=nothing
%>