option.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 48 行

ASP
48 行
字号 
<%
Response.Expires=0
username=session("hxf_u_nickname")
if username="" then Response.Redirect "../error.asp?id=440"
nowdate=cstr(date())
mo=Request.Form ("mo")
newmo=Request.Form ("newmo")
bkmn=Request.Form("money")
bkop=Request.Form("op")
if mo="" or newmo="" then Response.End 
if isnumeric(bkmn) then
	if bkmn>1 then
		if bkop="取款" then	
		if bkmn-newmo>0 then Response.Redirect "bank.asp"
		sqlstr="update 用户 set 银两=银两+"&bkmn&",存款=存款-"&bkmn&" where 姓名='"&username&"' and 存款>="&bkmn
		end if
		if bkop="存款" then 
		if bkmn-mo>0 then Response.Redirect "bank.asp"
		sqlstr="update 用户 set 银两=银两-"&bkmn&",存款=存款+"&bkmn&" where 姓名='"&username&"' and 银两>="&bkmn
		end if
		if sqlstr="" then
		response.redirect "bank.asp"
		response.end
		else
			set conn=server.CreateObject("adodb.connection")
			conn.Mode=16
			conn.IsolationLevel=256
			conn.Open Application("hg_connstr")
			conn.Execute(sqlstr)
			conn.Close
			set conn=nothing
			response.redirect "bank.asp"
			response.end
		end if	
	else
		response.redirect "bank.asp"
		response.end
	end if	
else	
	response.redirect "bank.asp"
	response.end
end if	
%>
<html>
<head>
<script language=""javascript"">if(window==window.top){top.location.href=""jhchat.asp"";} </script>
</head>
</html>

option.asp - 源码说明

本页面展示了「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点：无须安装客户端] 主要功能模块：管理 公文 车辆 通知 档案 值班 人事 审批 仓库 主界面 软件下载 个人办公室」中的 option.asp 源码文件，采用 ASP 编程语言编写，共 48 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与网络相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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