```vb

<%

' 创建日期时间变量

Dim logTime

logTime = Now()

' 创建日志消息变量

Dim logMessage

logMessage = "This is a log message."

' 将日志消息写入文件

Dim fs, f

Set fs = Server.CreateObject("Scripting.FileSystemObject")

Set f = fs.OpenTextFile(Server.MapPath("/logs/log.txt"), ) ' 表示以追加方式打开文件

f.WriteLine(logTime & ": " & logMessage)

f.Close

Set f = Nothing

Set fs = Nothing

%>

```

在这个例子中创建了两个变量，个用来存储当前的时间戳，另个用来存储要记录的日志消息使用FileSystemObject打开或创建个文本文件，将日志消息以追加的方式写入到这个文件中。

对于不同类型的业务，日志记录的要求可能会有所不同。在无人机遥感测绘地理信息处理服务中，可能记录更多的细节信息，如操作员ID、任务名称、开始和结束时间等，于问题排查和数据分析。而在会展、邮政快递服务、民宿短租等业务中，可能更关注关键事件的记录，如订单生成、支付成功、货物出库、客人入住等。

为了保证系统的稳定性和安全性，定期清理过期的日志文件，且对日志进行适当的加密和备份。该设计合理的日志级别，在不同的情况下选择性地记录日志，避免无谓的性能开销。