<%
if request.querystring("step")="add" then
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
strGuestBooklogFile="./log/guestbook.log"
Set objLogFile = objFileSystem.OpenTextFile ( Server.MapPath(strGuestBooklogFile), 8, True )
objLogFile.WriteLine "***********************************************************************"
objLogFile.WriteLine "公司名称：" & request.form("companyname")
objlogFile.WriteLine "留言时间：" & now()
if request.form("addr")<>"" then objLogFile.WriteLine "公司地址：" & request.form("addr")
if request.form("zip")<>"" then objLogFile.WriteLine "公司邮编：" & request.form("zip")
if request.form("tel")<>"" then objLogFile.WriteLine "联系电话：" & request.form("tel")
if request.form("fax")<>"" then objLogFile.WriteLine "传真：" & request.form("fax")
if request.form("email")<>"" then objLogFile.WriteLine "EMAIL：" & request.form("email")
objLogFile.WriteLine "留言人：" & request.form("name")
if request.form("department")<>"" then objLogFile.WriteLine "担任职务：" & request.form("department")
objLogFile.WriteLine "标题：" & request.form("title")
if request.form("content")<>"" then objLogFile.WriteLine "内容：" & request.form("content")
objLogFile.WriteLine "***********************************************************************"
objLogFile.Close
set objFilesystem = nothing
end if
%>
欢迎进入科迅电子电器有限公司主页--留言簿
