z_fy_fyaction.asp

虚拟社会源码虚拟社会源码虚拟社会源码虚拟社会源码虚拟社会源码

' Readme:附加罚金处理
'=========================================================
sub fjfj()
select case fjtype
case "1"
  if fmz="1" and fjty_set(0)<>"0" then
    sql="update [user] set userwealth=userwealth"&fjty_set(0)&" where username='"&my&"'"  
    conn.execute(sql)
  end if
  if fmz="1" and fjty_set(1)<>"0" then
    sql="update [user] set userwealth=userwealth"&fjty_set(1)&" where username='"&bg&"'"  
    conn.execute(sql)
  end if
case "2"
  if fjbh_set(0)<>"0" then
    sql="update [user] set userwealth=userwealth"&fjbh_set(0)&" where username='"&my&"'"  
    conn.execute(sql)
  end if
  if fjbh_set(1)<>"0" then
    sql="update [user] set userwealth=userwealth"&fjbh_set(1)&" where username='"&bg&"'"  
    conn.execute(sql)
  end if
case "3"
  if fjpf_set(0)<>"0" then
    sql="update [user] set userwealth=userwealth"&fjpf_set(0)&" where username='"&my&"'"  
    conn.execute(sql)
  end if
  if fjpf_set(1)<>"0" then
    sql="update [user] set userwealth=userwealth"&fjpf_set(1)&" where username='"&bg&"'"  
    conn.execute(sql)
  end if
case "4"
  if fjzy_set(0)<>"0" then
    sql="update [user] set userwealth=userwealth"&fjzy_set(0)&" where username='"&my&"'"  
    conn.execute(sql)
  end if
  if fjzy_set(1)<>"0" then
    sql="update [user] set userwealth=userwealth"&fjzy_set(1)&" where username='"&bg&"'"  
    conn.execute(sql)
  end if
case "5"
  if fjwg_set(0)<>"0" then
    sql="update [user] set userwealth=userwealth"&fjwg_set(0)&" where username='"&my&"'"  
    conn.execute(sql)
  end if
  if fjwg_set(1)<>"0" then
    sql="update [user] set userwealth=userwealth"&fjwg_set(1)&" where username='"&bg&"'"  
    conn.execute(sql)
  end if
end select
end sub
'=========================================================
' Sub: agree()
' Readme:同意原告/法官自定义判罚
'=========================================================
sub agree()
fjtype="1"
select case result
case "罚款1％" 
  fmx="userwealth"
  fbgxx="0.99"
  fygxx="0.01"
  call fmcl()
case "罚款10％" 
  fmx="userwealth"
  fbgxx="0.9"
  fygxx="0.1"
  call fmcl()
case "罚款50％" 
  fmx="userwealth"
  fbgxx="0.5"
  fygxx="0.5"
  call fmcl()
case "没收全部财产"
  fmx="userwealth"
  fbgxx="0"
  fygxx="1"
  call fmcl()
case "扣经验1％" 
  fmx="userep"
  fbgxx="0.99"
  fygxx="0.01"
  call fmcl()
case "扣经验10％"
  fmx="userep"
  fbgxx="0.9"
  fygxx="0.1"
  call fmcl()
case "扣经验50％"
  fmx="userep"
  fbgxx="0.5"
  fygxx="0.5"
  call fmcl()
case "扣除所有经验" 
  fmx="userep"
  fbgxx="0"
  fygxx="1"
  call fmcl()
case "扣魅力1％"
  fmx="usercp"
  fbgxx="0.99"
  fygxx="0.01"
  call fmcl()
case "扣魅力10％"
  fmx="usercp"
  fbgxx="0.9"
  fygxx="0.1"
  call fmcl()
case "扣魅力50％"
  fmx="usercp"
  fbgxx="0.5"
  fygxx="0.5"
  call fmcl()
case "扣除所有魅力" 
  fmx="usercp"
  fbgxx="0"
  fygxx="1"
  call fmcl()
case "威望-10"
  sql="update [user] set userpower=userpower-10 where username='" & bg & "'"
  conn.execute sql
  if request.form("giveto")="1" then
    sql="update [user] set userpower=userpower+10 where username='"&my&"'"  
    conn.execute sql
   end if
case "威望-50"
  sql="update [user] set userpower=userpower-50 where username='" & bg & "'"
  conn.execute sql
  if request.form("giveto")="1" then
    sql="update [user] set userpower=userpower+50 where username='"&my&"'"  
    conn.execute sql
   end if
case "威望-100" 
  sql="update [user] set userpower=userpower-100 where username='" & bg & "'"
  conn.execute sql
   if request.form("giveto")="1" then
    sql="update [user] set userpower=userpower+100 where username='"&my&"'"  
    conn.execute sql
   end if
case "清空" 
  sql="update [user] set userwealth=0,usercp=0,userep=0,userpower=0 where username='" & bg & "'"
  conn.execute sql
case "入狱10分钟" 
   content="由于违反社区规定被判入狱10分钟"
   call jjy()
case "入狱半小时" 
   content="由于违反社区规定被判入狱半小时"
   call jjy()
case "入狱一小时" 
   content="由于违反社区规定被判入狱一小时"
   call jjy()
case "入狱一天" 
   content="由于违反社区规定被判入狱一天"
   call jjy()
case "入狱三天"  
  content="由于违反社区规定被判入狱三天"
  call jjy()
case "入狱一周" 
  content="由于违反社区规定被判入狱一周"
  call jjy()
case "终身服刑"
  content="由于违反社区规定被判终身服刑"
  call jjy()
case "午门斩首" 
  sql="delete from [user] where username='" & bg & "'"
  conn.execute sql
case "离婚"
  if lh_set(0)="0" then
    Errmsg=Errmsg+"<br>"+"<li>离婚判罚功能目前是关闭的！"
    call dvbbs_error()
    exit sub
  end if
  if lh_set(0)="1" then
    '以下代码由lwand提供
    sql="update [user] set wife=' ' where username='" & bg & "'"' or username='" & my "' "
    conn.execute(sql)
    connj.execute("delete from jie where username='" & my & "'")
    connj.execute("delete from jie where username='" & bg & "'")
    connj.execute("delete from qiuhun where username='" & my & "'")
    connj.execute("delete from qiuhun where username='" & bg & "'")
    '以上代码由lwand提供
    if lh_set(1)="1" then
      sql="update [user] set usercp=usercp-"&lh_set(2)&" where username='"&bg&"'"  
      conn.execute(sql)
    end if
  end if
end select
if founderr then 
 call dvbbs_error()
 exit sub
end if
call fjfj()
fysql="update fy set stats='"&fmz&"',fgtext='"&fgc&"',result='"&result&"',dateandtime=now() where id=" & id & ""
connplus.execute fysql
Response.Redirect "z_fy_over.asp"
end sub
'=========================================================
' Sub: noagree()
' Readme:驳回原告
'=========================================================
sub noagree()
fjtype="2"
fysql="update fy set stats='0',fgtext='"&fgc&"',result='B',dateandtime=now() where id=" & id & ""
response.write fysql
connplus.execute fysql
call fjfj()
Response.Redirect "z_fy_over.asp"
end sub
'=========================================================
' Sub: pingfan()
' Readme:平反
'=========================================================
sub pingfan()
fjtype="3"
call getlast()
if fyrs(0)="罚款1％" or fyrs(0)="罚款10％" or fyrs(0)="罚款50％" or fyrs(0)="没收全部财产" then
  sql="update [user] set userwealth=userwealth+"&fyrs(1)&" where username='"&bg&"'"  
  conn.Execute(sql)
end if
if fyrs(0)="扣经验1％" or fyrs(0)="扣经验10％" or fyrs(0)="扣经验50％" or fyrs(0)="扣除所有经验" then
    sql="update [user] set userep=userep+"&fyrs(1)&" where username='" & bg & "'"
    conn.execute sql
end if
if fyrs(0)="扣魅力1％" or fyrs(0)="扣魅力10％" or fyrs(0)="扣魅力50％" or fyrs(0)="扣除所有魅力" then
    sql="update [user] set usercp=usercp+"&fyrs(1)&" where username='" & bg & "'"
    conn.execute sql
end if
if fyrs(0)="威望-10" then
sql="update [user] set userpower=userpower+10 where username='" & bg & "'"
conn.execute sql
end if
if fyrs(0)="威望-50" then
sql="update [user] set userpower=userpower+50 where username='" & bg & "'"
conn.execute sql
end if
if fyrs(0)="威望-100" then
sql="update [user] set userpower=userpower+100 where username='" & bg & "'"
conn.execute sql
end if
if fyrs(0)="清空" or fyrs(0)="N" or fyrs(0)="P" or fyrs(0)="午门斩首" or fyrs(0)="C" or fyrs(0)="离婚" then 
   Errmsg=Errmsg+"<br>"+"<li>该案件尚未审判或已撤诉或此判决无法平反！"
   call dvbbs_error()
   exit sub
end if
if fyrs(0)="入狱10分钟" or fyrs(0)="入狱半小时" or fyrs(0)="入狱一小时" or fyrs(0)="入狱一天" or fyrs(0)="入狱三天" or fyrs(0)="入狱一周" or fyrs(0)="终身服刑" then
   sql="update [user] set lockuser=0 where username='" & bg & "'"
   conn.execute sql
   mysign="0|0"
   content="案件被平反，得以出狱"
   call logs("监狱","出狱",membername,bg)
end if
if fyrs(0)="B" then
  sql="update [user] set userwealth=userwealth+"&fyrs(1)&" where username='"&my&"'"  
  conn.Execute(sql)
end if
fysql="update fy set stats='2',fgtext='"&fgc&"',result='P',dateandtime=now() where id=" & id & ""
connplus.execute fysql
call fjfj()
Response.Redirect "z_fy_over.asp"
end sub
'=========================================================
' Sub: wugao()
' Readme:诬告
'=========================================================
sub wugao()
fjtype="4"
call fjfj()
fysql="update fy set stats='4',fgtext='"&fgc&"',result='B',dateandtime=now(),lastvalue="&fjzy_set(0)&" where id=" & id & ""
connplus.execute fysql
Response.Redirect "z_fy_over.asp"
end sub
'=========================================================
' Sub: wugaohigh()
' Readme:严重诬告
'=========================================================
sub wugaohigh()
fjtype="5"
call fjfj()
fysql="update fy set stats='5',fgtext='"&fgc&"',result='B',dateandtime=now(),lastvalue="&fjzy_set(0)&" where id=" & id & ""
connplus.execute fysql
Response.Redirect "z_fy_over.asp"
end sub
'=========================================================
' Sub: getlast()
' Readme:读取上次被罚积分，用于平反
'=========================================================
sub getlast()
fysql="select result,lastvalue from fy where id=" & id & ""
set fyrs=connplus.execute(fysql)
end sub
'=========================================================
' Sub: jjy()
' Readme:入狱处理
'=========================================================
sub jjy()
dim bbsmoney
if not isInteger(request.form("bsmoney")) or request.form("bsmoeny")<0 then
   Errmsg=Errmsg+"<br>"+"<li>您设定的保释金不合法！"
   founderr=true
   exit sub
else
if clng(request.form("bsmoney"))<=clng(bs_set(1)) then
  bbsmoney=bs_set(1)
else
  bbsmoney=request.form("bsmoney")
end if
  sql="update [user] set lockuser=1 where username='" & bg & "'"
  conn.execute sql
  if request.form("nobaoshi")="1" then
    mysign="1" & "|" & bbsmoney
  else
    mysign="0" & "|" & bbsmoney
  end if
  call logs("监狱","入狱",membername,bg)
end if
end sub
%>