'
' 开关:默认不启用,访问参数 ?memlog=1 可临时开启;
' 如需全站常驻开启,把 EnableAutoMemoryLog 改为 True。
Const EnableAutoMemoryLog = False
Const AutoLogTopN = 50
Const AutoLogThresholdKB = 131072 ' 128MB
Sub AutoMemoryLog(db)
On Error Resume Next
If db Is Nothing Then Exit Sub
Dim enable: enable = EnableAutoMemoryLog Or (LCase(Request("memlog")) = "1")
If Not enable Then Exit Sub
' 1) 写入数据库日志表(依赖 install_memory_log.sql 中的对象)
db.Execute "EXEC dbo.LogHighMemoryGrants @Top=" & AutoLogTopN & ", @RequestedKBMin=" & AutoLogThresholdKB
If Err.Number <> 0 Then
' 静默失败,避免影响页面;可改为写入文本
Err.Clear
End If
On Error Goto 0
End Sub
%>
我喜欢你的作品,可以给我编剧一下我的经历吗。
某导演曾经说过一句话:强行反转最致命。估计说的就是这种,故事不断的反转→解释→再反转→再解释……纯粹...
印度的电影真的不错,特别是这些年,把印度真实的一面都拍出来了。这是在反思自己,勇于面对。从电影中可以...
怎么还有错别字?
很好,充满想象力。看完我流泪了。擦干眼泪之后,我想:“人,如果能够仅仅靠着幻想活着该多好?”