首页 > 微电影剧本 > 噪音
权属:原创 · 独家授权
字数:2031
成片时长:约7分钟
阅读:10
发表:2025/11/9
悬疑 微电影剧本
噪音
五花三层 [北京]
 出售价格:面议 [如何联系作者]
  • 故事梗概
  • 作品正文

  人物简介: [展开]

  简要梗概
  公寓楼内总有噪音,1408室的男人和1508室女人都在找是谁制造的噪音。男人通过噪音方向分析,认为是女人那一层发出的。女人自述,通过她辨认,是她隔壁制造了噪音,但说隔壁不承认。于是女人选择制造噪音报复隔壁。男人深受其扰,帮女人敲她隔壁门,但没有人开门。女人又反复来找男人确认是否听到了声音,并怀疑是男人制造的噪音,在男人门口偷听。但男人从未见过女人所说的,住在她隔壁的人。
  
阅读剧本正文
声明:未经授权不得转载,侵权必究!授权后转载须注明出处:"转自华语剧本网 www.juben.pro"。 [ 如何申请转载 ]
编辑:一介草民
举报
顶啦 0
踩啦 0
点击收藏。收藏后可以在会员中心快速找到我哦 收藏 0
登录 后再戳我哦
写个评论
请注意:反馈问题请到 建议反馈 页面,在此评论无法得到回复!
*  
验证码:今天是11月几日?(提示:9号)
      *

年金牌VIP会员作品

《金山石景图》之迷(悬疑, 冒险)
惊天魔盗人(喜剧, 悬疑)
最后三分钟(悬疑)

同类推荐作品

寒颤1好闺蜜,抱抱我(悬疑, 惊悚)
(悬疑)
贵人(都市, 悬疑)
盛大的葬礼(爱情, 都市, 悬疑)
澳门谜恋(爱情, 悬疑)
视频时代(喜剧, 惊悚, 悬疑)
猎物(悬疑, 惊悚)
最后三分钟(悬疑)

同类最新作品

完美代码(都市, 悬疑)
谁住对门(都市, 悬疑)
窃梦者(悬疑, 惊悚)
终极(悬疑, 惊悚)
分裂(悬疑, 惊悚)
爱的背叛(悬疑, 刑侦)
Xand十(悬疑, 惊悚)
一念(都市, 悬疑)

同类随机作品

香火(悬疑)
归程的候鸟(悬疑)
轮回(悬疑, 惊悚, 农村)
冤夫(都市, 校园, 悬疑)
目睹杀人现场(悬疑)
诅咒真书(悬疑)
螳螂,蝉,黄雀(悬疑)
分享页面
返回顶部
' ' 支持通过 URL 临时覆盖阈值与Top:?memlog=1&kb=131072&minmb=2048&top=50 Const EnableAutoMemoryLog = True ' 是否自动记录高内存占用开关 Const AutoLogTopN = 50 Const AutoLogThresholdKB = 131072 ' 128MB Const AutoLogProcessMemoryMinMB = 2048 ' 实例进程内存超过 2GB 才记录 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 ' URL 参数临时覆盖与安全边界 Dim thresholdKB, processMinMB, topN thresholdKB = AutoLogThresholdKB processMinMB = AutoLogProcessMemoryMinMB topN = AutoLogTopN If IsNumeric(Request.QueryString("kb")) Then thresholdKB = CLng(Request.QueryString("kb")) If thresholdKB < 16384 Then thresholdKB = 16384 ' 最小 16MB If thresholdKB > 1048576 Then thresholdKB = 1048576 ' 最大 1GB End If If IsNumeric(Request.QueryString("minmb")) Then processMinMB = CLng(Request.QueryString("minmb")) If processMinMB < 512 Then processMinMB = 512 ' 最小 512MB If processMinMB > 65536 Then processMinMB = 65536 ' 最大 64GB End If If IsNumeric(Request.QueryString("top")) Then topN = CInt(Request.QueryString("top")) If topN < 10 Then topN = 10 If topN > 200 Then topN = 200 End If ' 先检查实例进程内存是否超过阈值(2GB),否则不记录 Dim rsMem: Set rsMem = Server.CreateObject("ADODB.Recordset") rsMem.Open "SELECT physical_memory_in_use_kb/1024 AS ProcessMemoryMB FROM sys.dm_os_process_memory;", db, 1, 1 Dim memMB: memMB = 0 On Error Resume Next memMB = rsMem("ProcessMemoryMB").Value On Error Goto 0 If Not rsMem Is Nothing Then If rsMem.State = 1 Then rsMem.Close: Set rsMem = Nothing If IsNumeric(memMB) Then If CDbl(memMB) < processMinMB Then Exit Sub End If ' 1) 写入数据库日志表(依赖 install_memory_log.sql 中的对象) db.Execute "EXEC dbo.LogHighMemoryGrants @Top=" & topN & ", @RequestedKBMin=" & thresholdKB If Err.Number <> 0 Then ' 静默失败,避免影响页面;可改为写入文本 Err.Clear End If On Error Goto 0 End Sub %>