approve.asp

这是一个用SQL Server和ASP开发的搜索引擎网站

<%

cat = Request.form("urlid")
status = Request.form("status")
catID = Request.form("cat")
parent = Request.form("parent")
update = Now()

Conn_String ="Provider=sqloledb;" & "Data Source=127.0.0.1;Initial Catalog=qiye_8;User Id=sa;Password=password;"  

	
	Set Conn=Server.CreateObject("ADODB.Connection")	
	Conn.Open Conn_String
	
if status = "delete" then
	
	
set rs = Conn.Execute ("delete * From link2 where ID=" & cat)


Response.redirect "main.asp"

Conn.Close
set Conn =nothing
else

set rsapp = Conn.Execute ("UPDATE link2  set show=1, postdate='" & update & "' where ID=" & cat)



Response.redirect "main.asp"


Conn.Close
set Conn= nothing
end if
%>