<%if trim(request.form("op"))="save" then
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "")
fString = Replace(fString, CHR(10), "
")
HTMLEncode2 = fString
end function
set rs=server.createobject("adodb.recordset")
rs.Open "select * from s_guestbook",conn,1,3
rs.addnew
rs("g_name") =Trim(Request.Form("txt_name"))
rs("g_contact") =Trim(Request.Form("txt_tel"))
rs("g_content") =HTMLEncode2(request("txt_content"))
rs("g_date") =now()
rs("g_ip") =Request.ServerVariables("remote_addr")
rs.Update
Response.Write ""
Response.End
rs.close
set rs=nothing
end if%>
江苏丽健光学－认识全新的自己！
