addonesave.asp

WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.

<!--#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
%>