system_oper.asp

1。超强文件读写锁定

<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<!--#include file="sk2.asp"-->
<%
 If Session("SK2Admin")="" Then
  Response.Redirect "Admin_Login.Asp"
  Response.End
End If
Get_Kithe_Para
Select Case Request("K6")
  Case "K1"
    K1
  Case "K2"
    K2
  Case "K3"
    K3
  Case "K4"
    K4
  Case "K5"
    K5
  Case "K6"
    K6
	Case "K7"
    K7
	Case "K8"
    K8
  
  Case Else
    Response.Redirect "Index.asp"
    Response.End
End Select


Sub K1
	
	If Not IsDate(Request.Form("tray_time")) Then
	  Response.Write ("<script language=javascript>alert('填写的日期错误');history.go(-1)</script>")
	  Response.End
	End If

	Dim tray_time
	  tray_time=Request.Form("tray_time")

Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_config Set tray_time='"&tray_time&"'")
  Set Rs6=Nothing

  Response.Redirect "index_system.asp"

End Sub

Sub K2
  If CheckStr(Request.Form("affice"))="" or CheckStr(Request.Form("affice2"))="" Then
	  Response.Write ("<script language=javascript>alert('公告不能留空!');history.go(-1)</script>")
	  Response.End
  End If

  Dim affice,affice2
   affice=Request.Form("affice")
  affice2=Request.Form("affice2")
  Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_config Set affice='"&affice&"',affice2='"&affice2&"'")
  Set Rs6=Nothing

  Response.Redirect "system_affice.asp"
End Sub

Sub K3
 
   
   Dim rid,drop_name,rate,ratedrop,I
    rid=split(Request.Form("drop_id"),",")
	drop_name=split(Request.Form("drop_name"),",")
	rate=split(Request.Form("rate"),",")
	ratedrop=split(Request.Form("ratedrop"),",")
	low_drop=split(Request.Form("low_drop"),",")

  For I=0 To Ubound(rid)
    If Not Isnumeric(rate(I)) Then
	 Response.Write ("<script language=javascript>alert('"&drop_name(I)&"的数值填写有误，请输入数字！');history.go(-1)</script>")
	 Response.End
	End If

	If Not Isnumeric(ratedrop(I)) Then
     Response.Write ("<script language=javascript>alert('"&drop_name(I)&"的下调赔率填写有误，请输入数字！');history.go(-1)</script>")
	 Response.End
	End If
	
	If Not Isnumeric(low_drop(I)) Then
     Response.Write ("<script language=javascript>alert('"&low_drop(I)&"的下调赔率填写有误，请输入数字！');history.go(-1)</script>")
	 Response.End
	End If
  Next


   Dim Rs6
    Set Rs6=Server.CreateObject("Adodb.RecordSet")
	For I=0 To Ubound(rid)
	  Set Rs6=Conn.Execute("Update m_drop Set drop_value="&rate(I)&",drop_unit="&ratedrop(I)&",low_drop="&low_drop(I)&" where ID="&rid(I))
    Next
    Set Rs6=Nothing

	Response.Redirect "system_autodrop.asp"
End Sub

Sub K4
 Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_member set current_credit=Credits")
  Set Rs6=Nothing

  Response.Write ("<script language=javascript>alert('恢复成功！');location.href='system_remem.asp'</script>")
End Sub

Sub K5
 	If Not IsNumeric(Request.Form("issue")) Then
	  Response.Write ("<script language=javascript>alert('填写的期数不是数字');history.go(-1)</script>")
	  Response.End
	End If
if cint(Request.Form("issue"))>=cint(Current_Kithe_num) then
Response.Write ("<script language=javascript>alert('当前期不能删除');history.go(-1)</script>")
	  Response.End
	End If
	Dim issue
	  issue=Request.Form("issue")

Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Delete From m_mark Where Kithe="&issue&"")
  Set Rs6=Conn.Execute("Delete From m_chilp Where Kithe="&issue&"")
  Set Rs6=Nothing

  Response.Write ("<script language=javascript>alert('删除完成!');location.href='system_clear.asp'</script>")

End Sub

Sub K6
  If Not IsNumeric(Request("switch")) Then
	  Response.Write ("<script language=javascript>alert('非法参数!');history.go(-1)</script>")
	  Response.End
  End If
  Dim switch
  switch=Request.QueryString("switch")
if switch=0 then
Set Rs6=Conn.Execute("Update m_config Set tray_show3="&switch&"")
show=1
Set Rs6=Conn.Execute("Update m_config Set tray_show2="&show&"")
else
show=0
end if
Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_config Set tray_switch="&switch&"")
  Set Rs6=Nothing
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_config Set tray_show="&show&"")
  Set Rs6=Nothing

  Response.Redirect "index_main.asp"

End Sub
Sub K7
  If Not IsNumeric(Request("switch")) Then
	  Response.Write ("<script language=javascript>alert('非法参数!');history.go(-1)</script>")
	  Response.End
  End If
  Dim switch
  switch=Request.QueryString("switch")

Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_config Set tray_show="&switch&"")

  Set Rs6=Nothing

  Response.Redirect "index_Kithe.asp"

End Sub

Sub K8
 Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_rate set current_rate=rate")
  Set Rs6=Nothing

  Response.Write ("<script language=javascript>alert('恢复成功！');location.href='system_remem.asp'</script>")
End Sub
%>