dim xwzlr()
n=0
for i = 1 to len(icontent)
zh =mid(icontent,i,1)
xzh=server.htmlencode(zh) '使字符不撑持html语法
redim preserve xwzlr(n)
xwzlr(n)=lrtemp '使add.html中表单form中textarea一行一行分离存在数组中
if asc(xzh)=10 then
n=n+1
lrtemp=""
redim preserve xwzlr(n)
end if
lrtemp = lrtemp + zh
next
'毗连数据库
set dbconn=server.createobject("adodb.connection")
conpath="DBQ=" &server.mappath("wzozg.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & conpath
'新增文章
iozg="wz-"
sql="INSERT INTO ozg(wsubject,wname,wcount,wdate,wauth,wsource) Values
('"&isubject&"','"&iozg&"',0,'"&sj&"','"&iauth&"','"&isource&"')"
dbconn.Execute(sql)