addcat.asp

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

<%
newcat = replace(Request.Form("newcat"),"'" , "''")
if newcat = "" 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
Set Cmd=Server.CreateObject("ADODB.Command")
Set RS=Server.CreateObject("ADODB.Recordset")
Cmd.CommandType = 1
Set Cmd.ActiveConnection = Conn
Cmd.CommandText="Select cat from cat where cat='" & newcat & "'"
RS.Open Cmd, , 2, 2
if rs.eof then
been_here_before="No"
end if
RS.close
if been_here_before="No" then 
set rsinsert = conn.Execute ("insert into cat (cat) values ('" & newcat & "')")
conn.Close
set conn = nothing
Response.write "新的类别已添加"
else
Response.Write ("类别名已经存在, 请输入一个新的类别名")
end if
end if
%>