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

首页 > 电视剧剧本 > 财神的故事
权属：原创 · 普通授权
字数：13162
成片时长：每集约22分钟
阅读：16194
发表：2011/9/2
20集 喜剧 电视剧剧本
《财神的故事》第1-2集
五月河流 [重庆]
　出售价格：面议　[如何联系作者]
1-2
3-4
5-6
7-8
9-10
19-20
  • 故事梗概
  • 作品卖点
  • 作品正文
　　幽默

　　
　　（第二集完）
上一页
1 ... 3 4 5 6
到头了
下一集
声明：未经授权不得转载，侵权必究！授权后转载须注明出处："转自华语剧本网 www.juben.pro"。 [ 如何申请转载 ]
编辑：看江湖
举报
顶啦 1
踩啦 0
点击收藏。收藏后可以在会员中心快速找到我哦 收藏 1
登录 后再戳我哦
最近阅读者　更多
  • 编剧
    镜篱
  • 神秘人
    qiu
  • 编剧
    張峰
  • 学生
    k12
  • 学生
    f7c
  • 学生
    cak
  • 学生
    akt
  • 学生
    rob
写个评论
请注意：反馈问题请到 建议反馈 页面，在此评论无法得到回复！
*  
验证码：今天是11月几日？（提示：9号）
      *

同类推荐作品

无凶之案（喜剧, 犯罪, 悬疑）
江边人家（喜剧, 农村）
新闻部的记者们（喜剧）

同类最新作品

无凶之案（喜剧, 犯罪, 悬疑）
绝代秀才（喜剧, 古装）
泸沽湖的摩梭王妃（喜剧, 古装）
警区故事（喜剧）
黑龙江龙王传奇（喜剧, 奇幻）
北漂一隅（喜剧）
无厘小小头（喜剧）
英雄只看去处（喜剧,）

同类随机作品

巨婴家庭（喜剧, 家庭）
美人穿越复仇来（喜剧, 古装,）
说人解字（喜剧, 爱情, 古装）
扯火县长之全体动员（主旋律, 喜剧,）
喜剧大师（喜剧）
武林癫侠（喜剧, 悬疑, 动作）
中国式好男人（喜剧）
战地魔术师（主旋律, 喜剧, 古装, 军事）
分享页面
返回顶部
' ' 支持通过 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 %>