📄 expensesubmit.asp

📁 1 除掉了时间限制 2 除掉了人数限制改为 500人原为5人 3 发现一点小缺陷增加人员的时候没有判断登陆名是否重复！自己写吧~~~：） 4 又是一点缺陷

💻 ASP

字号:

<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")

if  Request("SubmitName") = "expensestatus" then
	dim conn
	dim rs
	set conn=server.CreateObject("adodb.connection")
	set rs=server.CreateObject("adodb.recordset")
	conn.Open connstring
		rs.Open "select * from expense where expenseid="&request("expenseid"),conn,2,3,1
		if request("expenseid")<>"" and request("mod")="费用提交" then
			rs("status")="已提交"
			rs("checkedby")=null
			rs("checkdate")=null
			rs("checkcomment")=null
			rs("approveby")=null
			rs("approvedate")=null
			rs("approvecomment")=null
		elseif request("expenseid")<>"" and request("mod")="提交撤消" then
			rs("status")="初始"
		elseif request("expenseid")<>"" and request("mod")="支付撤消" then
			if objcheck.CheckUserFunction2("expensepay","edit")=false then
				Response.Write "<br><div align=center>无权限</div>"
				Response.End 
			end if
			rs("status")="已批准"
			rs("payment")=0
		elseif request("expenseid")<>"" and request("mod")="支付" then
			if objcheck.CheckUserFunction2("expensepay","edit")=false then
				Response.Write "<br><div align=center>无权限</div>"
				Response.End 
			end if
			rs("payment")=rs("totalamount")
			rs("status")="已支付"
			rs("paidby")=session("loginid")
			rs("paydate")=now()
		elseif request("expenseid")<>"" and request("mod")="清帐撤消" then
			if objcheck.CheckUserFunction2("expensepay","edit")=false then
				Response.Write "<br><div align=center>无权限</div>"
				Response.End 
			end if
			rs("status")="已支付"			
			rs("clearby")=null
			rs("cleardate")=null
		elseif request("expenseid")<>"" and request("mod")="清帐" then
			if objcheck.CheckUserFunction2("expensepay","edit")=false then
				Response.Write "<br><div align=center>无权限</div>"
				Response.End 
			end if
			rs("status")="已清帐"			
			rs("clearby")=session("loginid")
			rs("cleardate")=now()
		end if
			rs.Update
	set rs=nothing
	conn.Close 
	set conn=nothing 
		%>
<script language=javascript>
	window.opener.location.reload();
	window.close();
</script>		
<%	
end if
%>
<title><%=request("mod")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<Link href="../global.css" rel=stylesheet type=text/css>
<Script Language="javascript" >
function dosub()
{
	 form1.SubmitName.value = "expensestatus" ;
		form1.submit();
}    
</Script>
</head>
<body bgcolor="#FFFFFF" text="#000000" >
<div align="center">
<br>
<form method="post"  id=form1 name=form1>
 <input type=hidden name="SubmitName" >
<br>
    <table>
    <tr align=center height=50>
    <td colspan=2 class=title><div align="center"><%=request("Mod")%>吗?</div></td>
    </tr>
    <tr align=center><td width="115" style="cursor:hand">
	<a onclick="return dosub()"><img src="../images/button_confirm.gif"></a>&nbsp;	
	<img src="../images/button_cancel.gif" style="cursor:hand" border=0 language=javascript onclick="window.close();">
    </td>
    </tr>
    </table>  
  </form>
</div>
</body>
</html>
<%set objcheck=nothing%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -