sql生成答题页面 ---- 自动判分

alter function dbo.f_getResult(@question nvarchar(4000),@flag int)
returns int
as
begin

declare @s nvarchar(4000),@sStr nvarchar(100),@ss nvarchar(4000)
declare @i int,@i1 int,@n int
set @n=0
--|| 表示结果可以是任选其一
set @ss=''
if @flag=1
set @ss='$1 1998$$2 9$$3 1$$4 预防为主$$5 防消结合$$6 消防安全$$7 消防设施$$8 教育$$9 劳动$$10 消防安全布局$$11 消防站$$12 消防供水$$13 消防通信$$14 消防车通道$$15 消防装备$$16 单位$$17
个人$$18 国家$$19 损坏$$20 擅自$$21 及时$$22 医疗$$23 抚恤$$24 不得$$25 1$$26 2$$27 1$$28 2$$29 1$$30 2$$31 1$$32 1$$33 1$$34 2$'

if @flag=2
set @ss='$1 生产安全$$2 经济发展$$3 责任制度$$4 安全生产条件$$5 民主管理和民主监督$$6 合法权益$$7 责任追究$$8 责任人员$$9 决策机构$$10 主要负责人$$11 投资人$$12
主要负责人$$13 安全生产管理人员$'

if @flag=3
set @ss='$1 2002年5月1日$$2 有害与无害作业分开$$3 对从事职业活动的劳动者可能导致职业病的$$4 依法享有$$5 立即采取相应治理$$6 工伤社会$
$7 检举和控告$$8 警示标识和中文警示说明$$9 职业病危害$$10 生产成本$$11 袖$$12 领$$13 下摆$$14 上岗前$$15 在岗期间$$16 离岗时$$17 应急时$
$18 10$$19 115$$20 厂长$'

if @flag=4
set @ss='$1 2007年6月1日$$2 报告$$3 调查处理$$4 10$$5 30$$6 50$$7 100$$8 5000$$9 1$$10 实事求是$$11 尊重科学$$12 处理意见$$13 单位和个人$$14 举报$$15 依法及时处理$$16 本单位责任人$$17 单位责任人$$18
1$$19 县$$20 2$$21 时间$$22 地点$$23 伤亡$$24 下落不明$$25 直接经济损失$$26 措施$$27 30$$28 补报$$29 伤亡$$30 补报$$31 事故现场$$32 相关证据$$33 破坏$$34 毁灭$$35 抢救人员$$36 事故扩大$$37 交通$$38 标记$$39 简图$$40
痕迹$$41 物证$$42 30$$43 等级$$44 事故调查组$$45 60$$46 人民政府$$47 60$$48 人民政府$$49 15$$50 30$$51 30$$52 工会和职工$$53 5$$54 一般事故$$55 较大事故$$56 重大事故$$57 特别重大事故$$58 暂扣$$59 吊销$$60 暂停$$61
撤销$$62 执业资格$$63 岗位证书$$64 刑事处罚$$65 防范和整改措施$$66 2$$67 2$$68 1$$69 2$$70 1$$71 1$$72 1$$73 1$'

if @flag=5
set @ss='$1 安全生产领域违法违纪行为$$2 针政策$$3 法律$$4 法规$$5 规定$$6 措施$$7 剧毒品$$8 火工品$$9 安全生产条件$$10 装备$$11 设备$$12 设施采购$$13 招标投标$$14 安全生产$$15 中介活动$$16 危及$$17 配偶$$18 子女$$19
安全生产中介活动$$20 营利$$21 事故调查处理$$22 谋取利益$$23 行政许可$$24 证照$$25 生产经营$$26 相关证照$$27 相关证照$$28 资金$$29 设计$$30 施工$$31 投入生产和使用$$32 施工和生产$$33 生产经营$$34 有效措施$$35
违章冒险$$36 安全生产教育$$37 培训$$38 淘汰$$39 国家标准$$40 生产经营$$41 指令$$42 事故隐患$$43 检查$$44 管理职责$$45 生产安全$$46 事故现场$$47 证据$$48 调查处理$$49 及时$$50 处理决定$$51 处理意见$$52 安全生产领域$$53
报告$$54 事实不符$$55 安全生产领域$$56 安全生产领$'

if @flag=6
set @ss='$1 0．5$$2 1$$3 含电缆穿墙套管与电缆之间缝隙$$4 不燃$$5 阻燃$$6 分段$$7 分段$$8 塑料$$9 含耐油橡皮垫$$10 石棉纸$$11 钢质$$12 5$$13 不允许$$14 燃油$$15 自燃点$$16 工作票$$17 检查试验$$18 规定$$19 煤种$$20 含氢量$$21 批准$$22 消防器材$$23 巡视检查$$24 消防水$$25 保安电源$$26 不允许$$27 停止$$28 不允许$$29 不允许$$30 重动$$31 辅助$$32 现场$$33 同时$$34 技术$$35 汽轮机$$36 水动力$$37 稳定性$$38 管壁温度$$39 温度$$40 专项$$41 超压超温$$42 退出运行$$43 给水$$44 并汽$$45 酸洗$$46 角$$47 100$$48 悬吊$$49 过载$$50 D1612—1996$$51 模拟机$$52 安全附件$$53 如安全阀、排污阀、监视表计、联锁、自动装置等$$54 总工程师$$55 限期$$56 耐压$$57 全启$$58 热疲劳$$59 疏水$$60 强度$$61 工程师$$62 总工程师$$63 设计单位$$64 制造$$65 监检机构$$66 验收$$67 工况$$68 停炉$$69 吹灰$$70 消防$$71 消防蒸汽$$72 盘车$$73 停炉$$74 配煤$$75 煤质$$76 燃烧$$77 油枪$$78 含煤、油、燃气、制粉乏气风$$79 爆燃法$$80 通风$$81 可燃$$82 水平$$83 抗爆$$84 积粉$$85 积粉$$86 额定$$87 危急保安器$$88 有功$$89 停转$$90 逆转$$91 带负荷$$92 润滑$$93 磨损$$94 制造厂$$95 lOO$$96 15$$97 表面$$98 中心孔$$99 金相$$100 探伤$$101 硬度$$102 25％$$103 或按制造要求$$104 3—4$$105 盘车$$106 4$$107 盲目$$108 正常值$$109 摆动$$110 高点$$111 正常$$112 转子弯曲度$$113 180$$114 连续$$115 轴封$$116 抽真空$$117 轴封$$118 匹配$$119 定期$$120 联动$$121 起动$$122 联锁$$123 铸铁$$124 水平$$125 堵塞$$126 破损$$127 反冲洗$$128 不锈$$129 氢气$$130 排气孔$$131 漏氢$$132 体积$$133 1％$$134 3％$$135 120$$136 20％$$137 失灵$$138 同一母线$$139
后备$$140 如采用UPS电源$$141 5$$142 应保证控制器不能初始化$$143 声光报警$$144 工况$$145 紧急$$146 停机停炉$$147 ETS$$148 TS1$$149 电源$$150 5$$151 继电器$$152 系统、包括一次检测设备$$153 总工程师$$154 严禁$$155 24$$156 跳闸$$157 总工程师$$158 正式文字记录$$159 监理$$160 建设$$161 电阻$$162 甲方$$163 安全防护$$164 安全防护$$165 组织$$166 技术$$167 工器具$$168 防护$$169 如输煤系统等$$170 如送风机、引风机、给水泵、循环水泵等$$171 事故按钮$$172 阻燃$$173 如交通安全委员会$$174 谁主管$$175 谁负责$$176 布置$$177 考核$$178 奖惩$$179 安全技术$$180 合格$$181 违章肇事$$182 废水$$183 压力$$184 2$$185 2$$186 2$$187 1$$188 2$$189 1$$190 2$$191 1$$192 2$$193 2$$194 1$$195 1$$196 1$$197 1$$198 1$$199 1$$200 1$$201 1$$202 2$$203 1$$204 1$'

if @flag=7
set @ss='$1 环境管理体系标准$$2 各国标准化团体$$3 ISO/TC207/SC1$
$4 ||ISO14001：1996,ISO14001:1996$$5 程序并评价其有效性$$6 环境保护$$7 污染预防$$8 社会$$9 经济$$10 策划$$11 实施$$12 检查$$13 改进$
$14 法律法规$$15 预防污染$$16 进行持续改进$$17 标准要求$$18 环境方针$$19 整体环境$$20 空气$$21 水$$22 土地$$23 自然资源$$24 活动$
$25 产品$$26 服务$$27 环境发生相互作用$$28 重大环境影响$$29 环境因素$$30 有害或有益$$31 环境方针$$32 环境因素$$33 总体环境目的$$34 可测量结果$$35 ||总体意图,方向$$36 具体的表现$
$37 注组织的环境表现$$38 环境表现$$39 获取审核证据$$40 消除潜在不符合原因的措施$$41 降低有害的环境影响$$42 活动或过程$$43 矩阵法$$44 打分法$$45 本企业的第一环境管理责任人$$46 蔡洪旺$'

while len(@ss)>0 begin
select @s=substring(@ss,charindex(' ',@ss)+1,charindex('$',@ss,charindex(' ',@ss))-1-charindex(' ',@ss))
select @ss=stuff(@ss,1,charindex('$',@ss,charindex(' ',@ss)),'')
select @sStr=substring(@question,charindex(' ',@question)+1,charindex('$',@question,charindex(' ',@question))-1-charindex(' ',@question))
select @question=stuff(@question,1,charindex('$',@question,charindex(' ',@question)),'')

select @i=0,@i1=0

if left(@s,2)<>'||' begin
  while len(@s)>0 begin
    if(select charindex(',',@s+','))>0 set @i1 = @i1+1
    if (select charindex(substring(@s,0,charindex(',',@s+',')),@sStr))>0
      set @i=@i+1
    select @s=stuff(@s,1,charindex(',',@s+','),'')
  end
  if (@i1=@i) set @n=@n+1
  end
else begin
  select @s=replace(@s,'||','')
  while len(@s)>0 begin
    if (select charindex(substring(@s,0,charindex(',',@s+',')),@sStr))>0
      set @i=@i+1
    select @s=stuff(@s,1,charindex(',',@s+','),'')
  end
  if (@i>0) set @n=@n+1
  end

end
--if (@flag=1) set @n=@n*1.5
--if (@flag=2) set @n=@n*2
--if (@flag=3) set @n=case when @n*16=0 then 0 else @n*16-1 end
return @n
end

--dbo.f_getResult(@question nvarchar(4000),@flag int)

select dbo.f_getResult(question,1),dbo.f_getResult(question2,2),dbo.f_getResult(question3,3),dbo.f_getResult(question4,4)
,dbo.f_getResult(question5,5),dbo.f_getResult(question6,6)
from tbwd where worknum = 107