📄 showfund.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
''用户限权检查''只有分销点用户才有权限执行此页
''查看用户资金单
%>
<html>
<head>
<title>资金管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/mobile_sale.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="topbg">
<td height="22" colspan="2" align="center"><strong>回 笼 资 金 管 理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30">
<a href="Fund.asp">回笼资金管理</a> |
<a href="Fund.asp?T=1">今日回笼资金</a>
<%
if GetUserGPower=9999 then
Response.Write " | <a href='FindFund.asp?Action=Add'>回笼资金统计</a>"
end if
if GetUserGPower=9 then
Response.Write " | <a href='Fund.asp?Action=Add'>资金回笼添加</a>"
end if
%>
</td>
</tr>
</table><br>
<%
Dim ID
ID = Request("ID")
Call Isnum(ID,ID,1) 'ID必须是数值
If ID="" or isnull(ID) then
call Msg("非法参数",1,"")
Else
Sql = "Select * from T_Fund where FundID="&Cstr(ID)&""
Call sql_open(Rs,Sql,Conn,1,1)
If Rs.Eof and Rs.bof then
Call Msg("您所在查找的内容不存在",1,"")
Else
'Dim Rst,Sqlt
Dim MC,XH,DJ
Sqlt="Select * from T_Product where Pro_ID="&Cstr(Rs("Pro_ID"))&""
Call sql_open(Rst,Sqlt,conn,1,1)
if Rst.eof and Rst.bof then
MC = "Nothing"
XH = "Nothing"
DJ = "Nothing"
else
MC = Rst("Pro_MC")
XH = Rst("Pro_XH")
DJ = Rst("Pro_DJ")
end if
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="2"> <div align="center">回笼资金</div></td>
</tr>
<!--
<tr>
<td width="35%" class="tdbg">流水号</td>
<td width="65%" class="tdbg"><%=Rs("ZJNo")%></td>
</tr>
-->
<tr>
<td class="tdbg">产品名</td>
<td class="tdbg"><%=MC%></td>
</tr>
<tr>
<td class="tdbg">型号</td>
<td class="tdbg"><%=XH%></td>
</tr>
<tr>
<td class="tdbg">单价</td>
<td class="tdbg"><%=DJ%>元</td>
</tr>
<tr>
<td class="tdbg">销售量</td>
<td class="tdbg"><%=Rs("Sale_Num")%>台</td>
</tr>
<tr>
<td class="tdbg">销售单价</td>
<td class="tdbg"><%=Rs("Price")%>元</td>
</tr>
<tr>
<td width="35%" class="tdbg">总金额</td>
<td width="65%" class="tdbg"><%=Rs("FundZJ")%>元</td>
</tr>
<tr class="tdbg">
<td class="tdbg">销售情况</td>
<td class="tdbg"><%=Rs("FundInfo")%></td>
</tr>
</table>
<br>
<%
Dim Rst,Sqlt
Sqlt = "select * from T_User where UserID= "&cstr(Rs("UserID"))&""
Call sql_open(Rst,Sqlt,Conn,1,1)
If Rst.Eof and Rst.Bof then
Response.write "提交人信息不存在"
Else
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="2"> <div align="center">分销点联系人信息</div></td>
</tr>
<tr>
<td width="35%" class="tdbg">用户姓名</td>
<td width="65%" class="tdbg"><%=Rst("UserName")%></td>
</tr>
<tr>
<td width="35%" class="tdbg">姓名</td>
<td width="65%" class="tdbg"><%=Rst("UserTrueName")%></td>
</tr>
<tr>
<td width="35%" class="tdbg">电话</td>
<td width="65%" class="tdbg"><%=Rst("UserTEL")%></td>
</tr>
<tr>
<td width="35%" class="tdbg">电话</td>
<td width="65%" class="tdbg"><%=Rst("UserFax")%></td>
</tr>
<tr>
<td width="35%" class="tdbg">E-mail</td>
<td width="65%" class="tdbg"><%=Rst("UserEmail")%></td>
</tr>
</table>
<%
end if
Call Rs_end(Rst)
if Rs("IsCheck")=1 then
%>
<br><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="2"> <div align="center">省级审核留言</div></td>
</tr>
<tr class="tdbg" >
<td height="22" colspan="2"><%=Rs("CInfo")%></td>
</tr>
</table>
<%
end if
if GetUserGPower=9999 and Rs("IsCheck")=0 then
%>
<form name="form1" method="post" action="ShowFundSave.asp?ID=<%=rs("FundID")%>">
<br><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="2"> <div align="center">省级审核留言</div></td>
</tr>
<tr>
<td class="tdbg" align="center"><input name="CUserID" type="hidden" id="CUserID" value="<%=GetUserID%>"> <textarea name="CInfo" cols="50" rows="6" id="CInfo"></textarea></td>
</tr>
<tr>
<td class="tdbg" align="center"><input type="submit" name="Submit" value="审核/提交" <%if GetUserPower="C" then Response.Write "disabled"%>></td>
</tr>
</table>
</form>
<%
end if
end if
Call Rs_end(Rs)
End If
%></body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -