aloupan_ok.asp

我同学的毕业设计源代码

<!--#include file="conn.asp"-->
<%
action=request("action")
if action="add" then    '添加数据
    set rs=server.createobject("adodb.recordset")
	rs.open "select * from loupan",conn,3,2
	rs.addnew	
    rs("name")=request.Form("name")
    rs("qushu")=request.Form("qushu")
	rs("yongtu")=request.Form("yongtu")
	rs("addr")=request.Form("addr")
	rs("enddate")=request.Form("enddate")
	rs("who")=request.Form("who")
	rs("mianji")=request.Form("mianji")
	rs("tele")=request.Form("tele")
	rs("jiage")=request.Form("jiage")
	rs("web")=request.Form("web")
	rs("lianxi")=request.Form("lianxi")
	rs("img")=request.Form("img")
    rs("content")=request.Form("content")
    rs("datt")=now()
	rs("okyes")="no"
	rs.update
	Response.Write("<script>alert('添加成功！');window.location='aloupan_add.asp';</script>")
elseif action="mdf" then   '修改数据
dim flag
    set rs=server.createobject("adodb.recordset")
	rs.open"select * from loupan where id=" &request("id"),conn,3,2
 flag=request.form("txtqiu")
 if flag="change1" then
	 rs("name")=request.form("name")
	 rs("qushu")=request.form("qushu")
	 rs("yongtu")=request.form("yongtu")
	 rs("addr")=request.form("addr")
	 rs("enddate")=request.form("enddate")
	 rs("who")=request.form("who")
	  rs("mianji")=request.form("mianji")
	  rs("tele")=request.form("tele")
	  rs("jiege")=request.form("jiege")
	  rs("web")=request.form("web")
	  rs("lianxi")=request.form("lianxi")
	   rs("img")=request.form("img2")
	   rs("content")=request.form("content") 
   rs.update
   else if flag="change2" then
   rs("name")=request.form("name")
	 rs("qushu")=request.form("qushu")
	 rs("yongtu")=request.form("yongtu")
	 rs("addr")=request.form("addr")
	 rs("enddate")=request.form("enddate")
	 rs("who")=request.form("who")
	  rs("mianji")=request.form("mianji")
	  rs("tele")=request.form("tele")
	  rs("jiege")=request.form("jiege")
	  rs("web")=request.form("web")
	  rs("lianxi")=request.form("lianxi")

	   rs("content")=request.form("content") 
	   rs.update
	   
	   end if
	   end if
	Response.Write("<script>alert('修改成功！');window.location='aloupan_list.asp';</script>")
elseif action="yes"  then  ' 推荐
    set rs=server.createobject("adodb.recordset")
	rs.open"select * from loupan where id=" &request("id"),conn,1,3
	if rs("okyes")="yes" then
    rs("okyes")="no"
    else
    rs("okyes")="yes"
	rs("datt")=now()
    end if
    rs.update
	response.redirect "aloupan_list.asp"
elseif action="del" then   '删除数据
	sql="delete from loupan where id=" &request("id")
    set rs=conn.execute(sql)
	Response.Write("<script>alert('删除成功！');window.location='aloupan_list.asp';</script>")
end if
%>