"") then
rs("ReplyTime")=now()
end if
end if
rs.update
rs.close
set rs=nothing
response.write ""
else
if Result="Modify" then
set rs = server.createobject("adodb.recordset")
sql="select * from Qianbo_Message where ID="& ID
rs.open sql,conn,1,1
MesName=rs("MesName")
Content=ReStrReplace(rs("Content"))
mLinkman=GuestInfo(rs("MemID"),rs("Linkman"),rs("Sex"))
mCompany=rs("Company")
mAddress=rs("Address")
mZipCode=rs("ZipCode")
mTelephone=rs("Telephone")
mFax=rs("Fax")
mMobile=rs("Mobile")
mEmail=rs("Email")
ViewFlag=rs("ViewFlag")
SecretFlag=rs("SecretFlag")
AddTime=rs("AddTime")
ReplyContent=ReStrReplace(rs("ReplyContent"))
ReplyTime=rs("ReplyTime")
rs.close
set rs=nothing
end if
end if
end sub
function GuestInfo(ID,Guest,Sex)
Dim rs,sql
Set rs=server.CreateObject("adodb.recordset")
sql="Select * From Qianbo_Members where ID="&ID
rs.open sql,conn,1,1
if rs.bof and rs.eof then
GuestInfo=Guest & " " & Sex
else
GuestInfo="Ա"&Guest&""&Sex
end if
rs.close
set rs=nothing
end function
%> A href="jobs.html">在线招聘
详细介绍
