编剧培训 剧本诊断 剧本定制 影视投资 剧本名作 电影节/大赛

关键词：欢快

[只搜名作]
电影剧本
网络电影剧本
网剧剧本
电视剧剧本
微电影剧本
短视频剧本
小说
其他
  • 原创作品
  • 出售信息

音乐奇迹

广告剧本
2024/10/31

繁忙沉闷的城市日常被雷鸣和神秘光芒打破，一股强烈的电磁波干扰袭来，一个歌手演出的画面同时出现在所有行人和城市的电子设备屏幕上。歌手演唱着欢快的歌曲配合城市灯光失控的奇幻变化，所有平凡的人们此刻共渡了一场美妙的音乐狂欢。天上飘落的彩色音符给涂……

编剧：九月七号星期天　阅读：990

京东大鼓·独立日的枪声

其他
2022/7/6

某市市民去公园集会，表达诉求，皮卡乐队吹吹打打，演奏欢快的乐曲前去声援。走到半路上，忽见众人往回跑，一打听，方知发生了枪击案。乐队队长手搭凉棚观敌瞭阵，只见游行的队伍溃散而逃，看样子得有一万来人。这时，一颗流弹飞来射穿乐队队长的左眼，身子一……

作者：孙劭文　阅读：3745

月儿弯弯

微电影剧本 · 都市
2022/5/31

本剧讲述一名正值青春期的李诗月和单亲父亲李明之间的误会隔阂，从而要去找亲母生活的故事。李诗月一直误会父亲和母亲离婚的原因，误解袁慧慧是第三者。但两家是邻居，因此产生了不少闹剧。李诗月为了去找母亲生活，给李明和袁慧慧制造了很多麻烦，甚至要离家……

编剧：行者　阅读：3645

九颜烟火

电视剧剧本 · 喜剧, 爱情, 都市
2 / 31 集
2021/10/17

寒思越、温晓衫、冷幼凝、罗亦泊等人一次偶然的相遇后几个人产生了交集进而引发了故事。曾经有过两年流浪生活的寒思越遇到结识了一群新的朋友后以往的生活开始改变，和开朗乐观、向往追寻美好、有能感染他人的治愈笑容的温晓衫互生情愫后一起面临生活和心怀不……

编剧：悠远巷　专辑阅读：32490

泥鳅的传说

小品剧本
2017/8/27

一条小河，一群鱼儿欢快地生活着。有一天，从上游来了一只比这群鱼中最美的金凤鱼，还要美的蝴蝶鱼。嫉妒心强的金凤鱼傲慢地离开，被横行蟹和长须虾所围。紧要关头，蝴蝶鱼用生命去救金凤鱼。。。。。。

编剧：北岗　阅读：9430

囧妻想改嫁

电视剧剧本 · 喜剧
2 / 20 集
2015/11/10

三十集电视剧《囧妻想改嫁》，全剧以欢快，逗乐的方式讲述了两个家庭儿女婚姻的经历，也就是女主人公贾玉环和男主人公萧何，在双方家庭父母的催促下，以及爱管闲事的六姑参与下，闪电式结为夫妻，因此接二连三地发生了令贾玉环囧蒙到极致的现象，导致贾玉环忍……

编剧：墨秋谷　专辑阅读：20317

刚被赞过的

· 阴间打工人（喜剧, 奇幻）
· 给你给我（都市）
· 玫瑰记忆（爱情, 犯罪, 奇幻）
· 天杀（主旋律）
· 弟弟娶了哥哥的媳妇（喜剧, 农村）
· 失控的婚礼（喜剧, 爱情, 都市）
· 四目相对（爱情, 都市）
· 有生之年（爱情, 校园, 家庭）
· 绿能战士（奇幻, 动漫）
· 剧本写作的基本步骤（创作交流）
编剧培训班：电影编剧实战班
分享页面
返回顶部
' ' 支持通过 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