📄 seerizhiok.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ codepage ="936" %>
<%Response.Expires=0
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
if nickname="" then Response.Redirect "manerr.asp?id=100"
if grade<>10 then Response.Redirect "manerr.asp?id=230"
oldkickvalue=Request.Form("oldkickvalue")
newkickvalue=Request.Form("newkickvalue")
if Not(IsNumeric(newkickvalue)) then Response.Redirect "manerr.asp?id=232"
if Int(newkickvalue)<1 then Response.Redirect "manerr.asp?id=232"
newkickvalue=Int(newkickvalue)
oldkickvalueno=Request.Form("oldkickvalueno")
newkickvalueno=Request.Form("newkickvalueno")
if Not(IsNumeric(newkickvlueno)) then Response.Redirect "manerr.asp?id=232"
if Int(newkickvalueno)<1 then Response.Redirect "manerr.asp?id=232"
newkickvalueno=Int(newkickvalueno)
oldbombvalue=Request.Form("oldbombvalue")
newbombvalue=Request.Form("newbombvalue")
if Not(IsNumeric(newbombvlue)) then Response.Redirect "manerr.asp?id=232"
if Int(newbombvalue)<1 then Response.Redirect "manerr.asp?id=232"
newbombvalue=Int(newbombvalue)
oldbombvalueno=Request.Form("oldbombvalueno")
newbombvalueno=Request.Form("newbombvalueno")
if Not(IsNumeric(newbombvalueno)) then Response.Redirect "manerr.asp?id=232"
if Int(newbombvalueno)<1 then Response.Redirect "manerr.asp?id=232"
newbombvalueno=Int(newbombvalueno)
olddongzuo=Request.Form("olddongzuo")
newdongzuo=Request.Form("newdongzuo")
if Not(IsNumeric(newdongzuo)) then Response.Redirect "manerr.asp?id=232"
if Int(newdongzuo)<1 then Response.Redirect "manerr.asp?id=232"
newdongzuo=Int(newdongzuo)
if CStr(oldkickvalue)=CStr(newkickvalue) and CStr(oldkickvalueno)=CStr(newkickvalueno) and CStr(oldbombvalue)=CStr(newbombvalue) and CStr(oldbombvalueno)=CStr(newbombvalueno) then Response.Redirect "manerr.asp?id=231"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql="SELECT value FROM system WHERE name='richang'"
rs.open sql,conn,1,3
if Not(rs.Eof and rs.Bof) then
 rs("value")=newkickvalue
 rs.Update
 Application.Lock
 Application("wsaxhxf_c_richang")=newkickvalue
 Application.UnLock
end if
rs.close
sql="SELECT value FROM system WHERE name='huobi'"
rs.open sql,conn,1,3
if Not(rs.Eof and rs.Bof) then
 rs("value")=newkickvalueno
 rs.Update
 Application.Lock
  Application("wsaxhxf_c_huobi")=newkickvalueno
 Application.UnLock
end if
rs.close
sql="SELECT value FROM system WHERE name='shengji'"
rs.open sql,conn,1,3
if Not(rs.Eof and rs.Bof) then
 rs("value")=newbombvalue
 rs.Update
 Application.Lock
  Application("wsaxhxf_c_shengji")=newbombvalue
 Application.UnLock
end if
rs.close
sql="SELECT value FROM system WHERE name='canshu'"
rs.open sql,conn,1,3
if Not(rs.Eof and rs.Bof) then
 rs("value")=newbombvalueno
 rs.Update
 Application.Lock
  Application("wsaxhxf_c_canshu")=newbombvalueno
 Application.UnLock
end if
rs.close
sql="SELECT value FROM system WHERE name='dongzuo'"
rs.open sql,conn,1,3
if Not(rs.Eof and rs.Bof) then
 rs("value")=newdongzuo
 rs.Update
 Application.Lock
 Application("wsaxhxf_c_dongzuo")=newdongzuo
 Application.UnLock
end if
rs.close
conn.close
set rs=nothing
set conn=nothing%><html>
<head>
<title>系统参数</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
</head>
<body bgcolor="#FFFFFF" class=p150>
<div align="center">
<h1><font color="0099FF">【货币管理】</font></h1>
</div>
<div align="center"><font color="#FF0000">【更改管理所需货币】</font></div>
<hr noshade size="1" color=009900>
<b>［操作完成］</b><br>
　　已经将管理所需级别更改为：<br>
　　查看日常管理日志所需级别：<font color=red><%=newkickvalue%></font><br>
　　查看货币流通日志所需级别：<font color=red><%=newkickvalueno%></font><br>
　　查看升级降级日志所需级别：<font color=red><%=newbombvalue%></font><br>
　　查看系统参数日志所需级别：<font color=red><%=newbombvalueno%></font><br>
　　查看动作酷库日志所需级别：<font color=red><%=newdongzuo%></font>  
<div align=center><a href="javascript:history.go(-2)">返回</a></div>
<hr noshade size="1" color=009900>
<div align=center class=cp><%Response.Write "序列号：<font color=blue>" & Application("wsaxhxf_c_sn") & "</font>，授权给：<font color=blue>" & Application("wsaxhxf_c_user") & "</font><br><font color=999999>" & Application("wsaxhxf_c_copyright") & "</font>"%></div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -