sub edit()
call connopen()
conn.execute("delete from works where id in ("&idns&")")
weburl=request("weburl")
typeid=request("typeid")
title = request("title")
tagstr=request("tagstr")
content=request("content")
zuozhe=request("zuozhe")
addtime=request("addtime")
tupian=request("tupian")
strflag=replace(replace(replace(cstr(now()),"-",""),":","")," ","")&"-"&right(cstr(rnd()),len(cstr(rnd())))
sql = "select * from
works"
rs.open sql,conn,1,3
for i=0 to ubound(typeidArr)
if trim(typeidArr(i))<>"" then
rs.addnew
rs("typeid")=typeidArr(i)
rs("title")=title
rs("weburl")=weburl
rs("tagstr")=tagstr
rs("zuozhe")=typeidArr(i)
rs("content")=content
rs("addtime")=addtime
rs("tupian")=tupian
rs("strflag")=strflag
rs.update
end if
next
rs.close
msg ="\u6dfb\u52a0\u6210\u529f,\u7ee7\u7eed\u6dfb\u52a0"
idsplit=split(getidssss("works",title,strflag),",")
for i=0 to ubound(idsplit)
call ChkFile("works","work_info.asp?pid=21&id="&idsplit(i),idsplit(i))
next
call connclose()
sendto "admin_works.asp?pid="+pid+"&typeid=21&msg="&msg
end sub
这个代码明显是在添加。