"" then
Sql="delete From [MessAger] Where Mid="&mmid'&" Or Mid=" & mmid
Set Rs=conn.execute(sql)
Set Rs= Nothing
Response.Redirect("?id="&request("id"))
end if
if trim(Request("action"))="add" Then
if Trim(Request.Form("content"))="" then Response.write""
Muip=Trim(Request.Form("Muip"))
set rs=server.createobject("adodb.recordset")
Sql = "Select * From [Messager] Where mid="&id
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) then
rs("Mstart")=Request.Form("Mstart")
rs.addnew
rs("Muip")=Muip
rs("Msuid")=session("UID")
rs("MMid")=id
rs("MType")=Request.Form("type")
rs("Mtext")=Request.Form("content")
rs("Maddtime")=now()
rs("Mlogtime")=now()
rs("Mor")=1'主题贴
rs("MStart")=0'状态．
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
rs("Mip")=userip
rs.update
end if
rs.close
行18： set rs=server.createobject("adodb.recordset")
rs(“XX") 字段名在表里有对应的列名，没有错的
