<%
option explicit
response.buffer=true
dim conn
dim connstr
dim db
db="#db1.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
dim rs
dim rs2
set rs2 = server.createobject("adodb.recordset")
dim title
dim content
dim classid
title = replace(Request("pa1"),"___001","&")
content = replace(Request("pa2"),"___001","&")
title = replace(title,"___002"," ")
content = replace(content,"___002"," ")
classid = split(request("classid"),",")
if title<>"" and content <>"" then
set rs = conn.execute("select * from tbl_info where title='"& title &"'")
if rs.eof then
rs2.open "select * from tbl_info",conn,1,3
rs2.addnew
rs2("title") = title
rs2("content") = content
rs2("clsid1") = classid(0)
rs2("clsid2") = classid(1)
rs2.update
rs2.close
rs.close
set rs = nothing
set rs2 = nothing
end if
end if
conn.close
set conn = nothing
%>
评论