<!--#include file=conn1.asp-->
<!--#include file=ip.asp-->
<%
dim id,username,nm
nm=Request.form("nm")
id=trim(request("id"))
if not isnumeric(id) or id="" then
response.write "<li>參數(shù)錯誤！"
cl
response.end
end if
if nm="on" then
call cnmai()
else if request.cookies("cnmai")("username")="" or request.cookies("cnmai")("domain")="" or request.cookies("cnmai")("id")="" then 
response.write "<br>"
response.write "<li>你還沒有登陸！"
response.write "<meta http-equiv=refresh content=""2;URL=login.asp"">"
response.end
    else 
    if request("cnmai")="chk" then
    call cnmai()
    response.end
    end if
    end if
end if
%>

<%
sub cnmai()
dim rs,sql,neirong
if len(trim(request("neirong")))<2 then
response.write "<li>回復(fù)內(nèi)容沒有填寫！"
cl
response.end
end if
set rs=server.createobject("adodb.recordset")
sql = "select * from hf "
rs.open sql,conn,1,3
rs.addnew
rs("username")=request.cookies("cnmai")("username")
rs("neirong")=trim(request("neirong"))
rs("xxid")=id
rs.update
rs.close
set rs=nothing
Conn.Execute("Update xinxi Set hfcs=hfcs+1 where id="&cstr(id))
Conn.Execute("Update xinxi Set fbsj=now() where id="&cstr(id))
closedb
response.write "<li>回復(fù)成功！"
cl
end sub
%>
<%sub cl()
response.write "<meta http-equiv=refresh content=""2;URL=xinximemo.asp?cnmai="&id&""">"
end sub%>