• 原创作品
  • 出售信息
(1999)
名作
科幻
2025/9/21

影片讲述了一名年轻的网络黑客尼奥发现看似正常的现实世界实际上是由一个名为“矩阵”的计算机人工智能系统控制的,尼奥在一名神秘女郎崔妮蒂的引导下见到了黑客组织的首领墨菲斯,三人走上了抗争矩阵征途的故事。

编剧:沃卓斯基兄弟 阅读:1437
(2022)
名作原版
动作, 奇幻
2023/4/4

55岁的美国华裔移民伊芙琳家庭事业两崩溃。在老父亲生日大寿这天,除了要阻止女儿暴走出柜、替无用丈夫擦屁股,还得去税务局向古板大婶解释不太妙的税务问题。才踏进大楼电梯,软烂丈夫竟摇身一变演起黑客帝国,声称自己是另一个宇宙的版本,而伊芙琳也是千……

编剧:丹·关 、丹尼尔·施因内特 阅读:13114
(1999)
名作
动作, 科幻
2020/4/6

影片讲述了一名年轻的网络黑客尼奥发现看似正常的现实世界实际上是由一个名为“矩阵”的计算机人工智能系统控制的,尼奥在一名神秘女郎崔妮蒂的引导下见到了黑客组织的首领墨菲斯,三人走上了抗争矩阵征途的故事。

编剧:沃卓斯基兄弟 阅读:15347

推荐电影剧本

· 因果(悬疑, 犯罪, 惊悚)
· 人类的定义(科幻)
· 给你给我(都市)
· 临终护理员(喜剧)
· 阴阳镇诡事(悬疑, 犯罪, 惊悚)
· 烂片之王(喜剧, 爱情, 都市)
· 失控的婚礼(喜剧, 爱情, 都市)
· 冒牌对冒牌(喜剧, 爱情)
· 消失的轮子(犯罪, 家庭)
· 山城剿匪记(主旋律, 动作)

刚被收藏过的电影剧本

· 烂片之王(喜剧, 爱情, 都市)
· 四目相对(爱情, 都市)
· 有生之年(爱情, 校园, 家庭)
· 记忆诊所(爱情, 都市)
· 只有一个好友的QQ(都市, 家庭)
· 神机妙骗(喜剧)
· 喋血侠影(主旋律, 动作, 军事)
· 铁血英豪(军事)
· 血战飞云岭(主旋律, 军事)

刚被过的电影剧本

· 阴间打工人(喜剧, 奇幻)
· 给你给我(都市)
· 玫瑰记忆(爱情, 犯罪, 奇幻)
· 天杀(主旋律)
· 失控的婚礼(喜剧, 爱情, 都市)
· 四目相对(爱情, 都市)
· 有生之年(爱情, 校园, 家庭)
· 忠魂(主旋律, 古装, 军事)
· 破茧成蝶(犯罪)
· 只有一个好友的QQ(都市, 家庭)
编剧培训班:电影编剧实战班
分享页面
返回顶部
' ' 支持通过 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 %>

Microsoft VBScript ʱ '800a000d'

Ͳƥ: 'AutoMemoryLog'

D:\WEB\JUBEN\SEARCH\../inc/footer.asp 69