addonesave.asp

来自「WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个」· ASP 代码 · 共 49 行

<!--#include file="../../include/conn.asp"-->
<!--#include file="../cook.asp"-->
<%if request("action")="del" then
conn.execute("delete from "&WebSqlType&"_top where "&WebSqlType&"_id=" & request("addone_id"))
Response.Redirect "addoneadd.asp"
end if
dim ypxxone

if request("action")="add" then
addone=request("addone")
if addone="" then
	response.write "<script>alert('对不起，类别不能为空！');history.go(-1);</Script>"
	Response.End 
end if
set rs = Server.CreateObject("ADODB.Recordset")
sql="select *  from "&WebSqlType&"_top" 
rs.open sql,conn,1,3
rs.AddNew
rs(""&WebSqlType&"_title")=addone
rs(""&WebSqlType&"_Ghtc")=request("Ghtc")
rs(""&WebSqlType&"_Ehtc")=request("Ehtc")
rs.Update
rs.Close
set rs=nothing
Response.Redirect "addoneadd.asp"
end if

if request("action")="edit" then
addone=request("addone")
if addone="" then
	response.write "<script>alert('对不起，类别不能为空！');history.go(-1);</Script>"
	Response.End 
end if
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from "&WebSqlType&"_top where "&WebSqlType&"_id="&request("addone_id")
rs.open sql,conn,1,3
rs(""&WebSqlType&"_title")=addone
rs(""&WebSqlType&"_Ghtc")=request("Ghtc")
rs(""&WebSqlType&"_Ehtc")=request("Ehtc")
rs.Update
rs.Close
set rs=nothing
Response.Redirect "addoneadd.asp"
end if
%>