<%ids=trim(request.QueryString("class")) if ids="" or IsNumeric(ids)=False then Call Error("ID无效！") end if pl=request.form("pl") p=trim(request.QueryString("p")) id=trim(request.QueryString("id")) if id="" or IsNumeric(id)=False then Call Error("ID无效！") end if if pl="" then Call Error("评论内容不能为空！") end if if len(pl)>300 then Call Error("评论内容最多300字！") end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from pl",conn,1,3 rs.addnew rs("pl")=pl rs("ip")=myni rs("uid")=myid rs("smsid")=id rs("pltime")=now() rs.update '更新评论 dim Counts Counts=conn.execute("Select count(ID) from [pl] where smsid="&id&"")(0) conn.execute("update sms Set smspin = "&Counts&" where ID="&id) response.write("评论发表成功！
") rs.close Set rs=nothing conn.close set conn=nothing %>查看评论
返回上级
返回栏目
返回首页