step3update.asp

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

<%
webid= Request("urlid")
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
 conn.Execute("UPDATE link2  set Category='" & cat & "' where ID =" & webid)
	Response.Write "子类别已更新! 一切OK!"
	conn.Close
	set conn = nothing
%>