azhiye_ok.asp

来自「我同学的毕业设计源代码」· ASP 代码 · 共 65 行

<!--#include file="conn.asp"-->
<%
action=request("action")
if action="add" then    '添加数据	
	typeid=request.form("type")
    ming=request.form("ming")
    dizhi=request.form("dizhi")
    dianhua=request.form("dianhua")
    lianxi=request.form("lianxi")
	web=request.form("web")
	xiangmu=request.form("xiangmu")
	jianjie=request.form("jianjie")	
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from zhiye",conn,3,2
	rs.addnew
	rs("typeid")=typeid
	rs("ming")=ming
	rs("dizhi")=dizhi
	rs("dianhua")=dianhua
	rs("lianxi")=lianxi
	rs("web")=web
	rs("xiangmu")=xiangmu
	rs("jianjie")=jianjie
	rs("okyes")="no"
	rs.update
	Response.Write("<script>alert('添加成功！');window.location='azhiye_add.asp';</script>")
elseif action="mdf" then   '修改数据
	typeid=request.form("type")
    ming=request.form("ming")
    dizhi=request.form("dizhi")
    dianhua=request.form("dianhua")
    lianxi=request.form("lianxi")
	web=request.form("web")
	xiangmu=request.form("xiangmu")
	jianjie=request.form("jianjie")	
	set rs=server.createobject("adodb.recordset")
	rs.open"select * from zhiye where id=" &request("id"),conn,1,3
	rs.addnew
	rs("typeid")=typeid
	rs("ming")=ming
	rs("dizhi")=dizhi
	rs("dianhua")=dianhua
	rs("lianxi")=lianxi
	rs("web")=web
	rs("xiangmu")=xiangmu
	rs("jianjie")=jianjie
	rs.update
	Response.Write("<script>alert('修改成功！');window.location='azhiye_list.asp';</script>")	
elseif action="yes"  then  ' 推荐
    set rs=server.createobject("adodb.recordset")
	rs.open"select * from zhiye 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 "azhiye_list.asp"	
elseif action="del" then   '删除数据
	sql="delete from zhiye where id=" &request("id")
    set rs=conn.execute(sql)
	Response.Write("<script>alert('删除成功！');window.location='azhiye_list.asp';</script>")
end if
%>