deletesubcat.asp

来自「这是一个用SQL Server和ASP开发的搜索引擎网站」· ASP 代码 · 共 11 行

<%
cat = Request("catid")
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
set rs = Conn.Execute ("delete  From subcat where subcatID=" & cat)
set rssubcat = Conn.Execute ("delete * From link2 where Category='" & cat & "'")
Response.Write "子类别和它下面的所有内容已被删除."
%>