backinsert.asp

fger th t ytwety w4t qrt 43 q34rt5 q34t3q4t

<!-- #include file="config.inc" -->
<%
' 回复留言
noteid=request.form("noteid")
subject=trim(request.form("subject"))
email=trim(request.form("email"))
userid=trim(request.form("userid"))
content=trim(left(request.form("content"),17))
notetime=now()
readnum=0
status=-1

set conn=server.createobject("adodb.connection")
conn.open connstring

set objnoters=server.createobject("adodb.recordset")
set objnoters2=server.createobject("adodb.recordset")
ssql1="select * from notebook"

application.lock
' 计算回复留言的编号表达式
noteid=left(noteid,6)
ssql2="select * from notebook where noteid like '"&noteid&"%'"
objnoters2.open ssql2,conn,1,3
if objnoters2.eof then
   response.write "您正在回复的留言已被删除，请<a href=""vbscript:window.close()"">返回</a>"
   response.end
end if
objnoters2.movelast
if len(objnoters2("noteid"))=6 then
   noteid=objnoters2("noteid")&"-001"
else
   temp=cint(right(objnoters2("noteid"),3))
   temp=cstr(temp+1)
   for length=1 to 3-len(temp)
        temp="0"&temp
   next
   noteid=left(objnoters2("noteid"),7)&temp
end if
objnoters2.close
set objnoters2=nothing

objnoters.open ssql1,conn,1,3
objnoters.addnew
objnoters("noteid")=noteid
objnoters("subject")=subject
objnoters("userid")=userid
objnoters("email")=email
objnoters("notetime")=notetime
objnoters("content")=content
objnoters("readnum")=readnum
objnoters("status")=status
objnoters.update
application.unlock
' 关闭数据库连接
conn.close
set conn=nothing
set objnoters=nothing
%>
<font style="font:10pt">回复成功，请<a href="vbscript:window.close()">点击关闭</a>！</font>