<%dim ids,pl,id ids=trim(request.QueryString("ids")) pl=request.form("pl") if pl="" then Call Error("评论内容不能为空！") end if if len(pl)>300 then Call Error("评论字数不能大于300字！") end if id=trim(request("id")) if id="" or IsNumeric(id)=False then Call Error("ID无效！") end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from photopl",conn,1,2 rs.addnew rs("photopl")=pl rs("pluser")=myni rs("userid")=myid rs("photoid")=id rs("times")=now() rs.update response.write("评论发表成功！
") rs.close Set rs=nothing dim photoCount photoCount=conn.execute("Select count(ID) from [photopl] where photoid="&id&"")(0) conn.execute("update upfile Set photoCount = "&clng(photoCount)&" where id="&id) conn.close set conn=nothing response.write("--------
查看评论
") response.write("查看相片
") response.write("返回相册
") response.write("社区首页") response.write"