addsubcat.asp

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

<%
newcat = replace(Request.Form("newcat"),"'", "''")
category = Request.Form("category")
if newcat = "" then
Response.Write ("请输入子类别名称")
else
if category = "" then
Response.Write ("请选择一个类别")
else		
	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
sql  = "insert into subcat (subcatname, catid) values ('" & newcat & "', '" & category & "')"
set rs = conn.Execute (sql)
Response.Write "新的子类别已添加"
end if
end if
%>