clickad2.asp

没有什么

<!--#include file="Const.Asp"-->
<%CheckAdmin3%>
<%
if (request.Form("sjsuiji")) then
	sjsuiji=1
else
	sjsuiji=0
end if
founderr=false
act=request("act")
id=request.QueryString("id")
if act="rename" then
	FunRename
elseif act="del" then
	FunDel
elseif act="add" then
	FunAdd
else
	errmsg=errmsg+"<br>"+"<li>操作出错！请联系管理员"
	founderr=true
end if
if founderr=true then
	call error()
else

end if

function FunRename
if  request.form("urlcount")="" or trim(request.form("wzlb"))="" or trim(request.form("adsname"))="" or request.form("urldisplay")="" or request.form("urlok")="" then
	errmsg=errmsg+"<br>"+"<li>内容不能为空！"
	founderr=true
else
	set rs=server.createobject("adodb.recordset")
	set rs1=server.createobject("adodb.recordset")
	sql = "SELECT * FROM adsurllist where id=" & id 
	rs.Open sql,conn,1,3
	if rs.eof then
		errmsg=errmsg+"<br>"+"<li>操作出错！请联系管理员"
		founderr=true
	else
		sql = "SELECT * FROM adsurllist where wzlb='" & trim(request.form("wzlb")) & "' and id<>" & id
		rs1.Open sql,conn,1,3
		if not rs1.eof then
			errmsg=errmsg+"<br>"+"<li>该类别下此网址已经存在"
			founderr=true
		else		
			rs("adsname") = request.form("adsname")		
			rs("urlcount") = request.form("urlcount")
			rs("urldisplay") = request.form("urldisplay")
			'rs("url") = request.form("url")
			rs("x11") = request.form("x11")	
			rs("y11") = request.form("y11")	
			rs("x12") = request.form("x12")	
			rs("y12") = request.form("y12")	
			rs("yanshi1") = request.form("yanshi1")	
			rs("yanshi2") = request.form("yanshi2")	
			rs("yanshi3") = request.form("yanshi3")	
			rs("yanshi4") = request.form("yanshi4")	
			rs("yanshi5") = request.form("yanshi5")																																			
			rs("urlok") = request.form("urlok")
			rs("cishu") = request.form("cishu")
			rs("wzlb") = request.form("wzlb")
			rs("keywords") = request.form("keywords")
			rs("searchbi") = request.form("searchbi")
			rs("sjsuiji") = sjsuiji
			rs("h1") = request.form("h1")
			rs("h2") = request.form("h2")
			rs("h3") = request.form("h3")
			rs("h4") = request.form("h4")
			rs("h5") = request.form("h5")
			rs("h6") = request.form("h6")
			rs("h7") = request.form("h7")
			rs("h8") = request.form("h8")
			rs("h9") = request.form("h9")
			rs("h10") = request.form("h10")
			rs("h11") = request.form("h11")
			rs("h12") = request.form("h12")
			rs("h13") = request.form("h13")
			rs("h14") = request.form("h14")
			rs("h15") = request.form("h15")
			rs("h16") = request.form("h16")
			rs("h17") = request.form("h17")
			rs("h18") = request.form("h18")
			rs("h19") = request.form("h19")
			rs("h20") = request.form("h20")
			rs("h21") = request.form("h21")
			rs("h22") = request.form("h22")
			rs("h23") = request.form("h23")
			rs("h0") = request.form("h0")
			rs("time1") = now()
			rs.Update
		end if
		rs1.Close
		set rs1=nothing
	end if
	rs.Close
	set rs=nothing
	conn.close
	set conn=nothing
end if
end function

function FunDel
	sql="delete from adsurllist where id=" & id
	conn.execute sql
	if err.Number<>0 then
		err.clear
		errmsg=errmsg+"<br>"+"<li>操作出错！请联系管理员"
		founderr=true
	end if
end function

function FunAdd

if  request.form("urlcount")="" or trim(request.form("wzlb"))="" or trim(request.form("adsname"))="" or request.form("urldisplay")="" or request.form("urlok")="" then
	errmsg=errmsg+"<br>"+"<li>内容不能为空！"
	founderr=true
else

	set rs=server.createobject("adodb.recordset")
	sql = "SELECT * FROM adsurllist where wzlb='" & trim(request.form("wzlb")) & "'"
	rs.Open sql,conn,1,3
	if not rs.eof then
		errmsg=errmsg+"<br>"+"<li>该类别下此地址已经存在"
		founderr=true
	else
		rs.AddNew		
		rs("adsname") = request.form("adsname")		
			rs("urlcount") = request.form("urlcount")
			rs("urldisplay") = request.form("urldisplay")
			'rs("url") = request.form("url")
			rs("x11") = request.form("x11")	
			rs("y11") = request.form("y11")	
			rs("x12") = request.form("x12")	
			rs("y12") = request.form("y12")	
			rs("yanshi1") = request.form("yanshi1")	
			rs("yanshi2") = request.form("yanshi2")	
			rs("yanshi3") = request.form("yanshi3")	
			rs("yanshi4") = request.form("yanshi4")	
			rs("yanshi5") = request.form("yanshi5")																																			
			rs("urlok") = request.form("urlok")
			rs("cishu") = request.form("cishu")
			rs("wzlb") = request.form("wzlb")
			rs("keywords") = request.form("keywords")
			rs("searchbi") = request.form("searchbi")
			rs("sjsuiji") = sjsuiji
			rs("h1") = request.form("h1")
			rs("h2") = request.form("h2")
			rs("h3") = request.form("h3")
			rs("h4") = request.form("h4")
			rs("h5") = request.form("h5")
			rs("h6") = request.form("h6")
			rs("h7") = request.form("h7")
			rs("h8") = request.form("h8")
			rs("h9") = request.form("h9")
			rs("h10") = request.form("h10")
			rs("h11") = request.form("h11")
			rs("h12") = request.form("h12")
			rs("h13") = request.form("h13")
			rs("h14") = request.form("h14")
			rs("h15") = request.form("h15")
			rs("h16") = request.form("h16")
			rs("h17") = request.form("h17")
			rs("h18") = request.form("h18")
			rs("h19") = request.form("h19")
			rs("h20") = request.form("h20")
			rs("h21") = request.form("h21")
			rs("h22") = request.form("h22")
			rs("h23") = request.form("h23")
			rs("h0") = request.form("h0")
		rs("time1") = now()					
		rs.Update
	end if
	rs.Close
	set rs=nothing
	conn.close
	set conn=nothing
end if
end function
	
Response.Redirect "clickad.Asp"
%>