📄 showuserinfo.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家
💻 ASP
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
Dim ID
dim t
ID = trim(Request("ID"))
Call Isnum(ID,"参数",4)
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/mobile_sale.css" rel="stylesheet" type="text/css">
<title>查看用户信息</title>

</head>

<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">

<br>
<%
	Sql="Select UserID,UserName,UserTrueName,UserEmail,UserTEL,UserFax,UserSign,UserGID,CityID,CountyID,UserUnit,UserPower,UserLoginTimes,UserIsCheck,UserInTime,LastLoginTime,LastLogoutTime,UserLastIP From T_User where UserID = "&cstr(ID)&""
	Call sql_open(Rs,Sql,Conn,1,1)
	If Rs.eof and Rs.bof then
		Call Msg("此用户不存在",4,"")
	Else
	
%>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr align="center" class="topbg">
    <td height="22" colspan="4">用户信息</td>
  </tr>
  <tr class="tdbg">
    <td width="120">用户名</td>
    <td><%=Rs("UserName")%></td>
    <td width="120">姓名</td>
    <td><%=Rs("UserTrueName")%></td>
  </tr>
  <tr class="tdbg">
    <td>E-Mail</td>
    <td><%=Rs("UserEmail")%></td>
    <td>电话</td>
    <td><%=Rs("UserTEL")%></td>
  </tr>
  <tr class="tdbg">
    <td>传真</td>
    <td><%=Rs("UserFax")%></td>
    <td>用户级别</td>
    <td><%
	if Rs("UserGID")=5 then
		Response.write "省级用户"
	elseif Rs("UserGID")=6 then
		Response.write "市级用户"
	elseif Rs("UserGID")=7 Then
		Response.write "县级用户"
	elseif Rs("UserGID")=8 then
		if Rs("CountyID")=0 then
			Response.write "市级分销点"
		else
			Response.write "县级分销点"
		end if
		
	end if
	%></td>
  </tr>
  <tr class="tdbg">
    <td>用户签名</td>
    <td><%=Rs("UserSign")%></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr class="tdbg">
    <td>单位名称</td>
    <td><%=Rs("UserUnit")%>
	</td>
    <td>&nbsp;</td>
    <td></td>
  </tr>
  <tr class="tdbg">
    <td>市/县</td>
    <td><%
	Dim crs,csql
	csql = "Select * from City where CityID="&cstr(Rs("CityID"))&""
	call sql_open(crs,csql,Conn,1,1)
	if crs.eof and crs.bof then
		Response.write "没"
	else
		Response.write crs("CityName")
	end if
	call rs_end(crs)
	
	csql = "Select * from County where CountyID="&cstr(Rs("CountyID"))&""
	call sql_open(crs,csql,Conn,1,1)
	if crs.eof and crs.bof then
		Response.write "&nbsp;"
	else
		Response.write crs("CountyName")
	end if
	call rs_end(crs)
	if Rs("UserPower")="A" then
		Response.write "超级用户"
	elseif Rs("UserPower")="B" then
		Response.write "审核用户"
	elseif Rs("UserPower")="C" then
		Response.write "普通用户"
	end if
	%></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table><br>  
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="1" class="border"> 

 
  <tr class="tdbg">
    <td width="10%">申购数</td>
    <td>
<%
t = 0
csql = "Select SubOrderTotal from T_SubOrder where UserID = "&cstr(ID)&""
call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
	t=0
else
	do while not crs.eof
		t=t+clng(crs("SubOrderTotal"))
	crs.movenext
	loop
end if
Response.write t
call rs_end(crs)


%>	
	</td>
  </tr>
  <tr class="tdbg">
    <td>进货数</td>
    <td>
<%
t = 0
csql = "Select Pro_Num from T_SubOutOrder where InChk_UserID = "&cstr(ID)&" and IsChk=1"
call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
	t=0
else
	do while not crs.eof
		t=t+clng(crs("Pro_Num"))
	crs.movenext
	loop
end if
Response.write t
call rs_end(crs)

%>		
	</td>
  </tr>
  <tr class="tdbg">
    <td>发货数</td>
    <td><%
'自己的发货数+销售库

t =0 
csql = "Select Pro_Num from T_SubOutOrder where UserID ="&cstr(ID)&" and IsChk=1;"
Call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
	t=0
else
	t=t+crs("Pro_Num")
end if
call rs_end(crs)
response.write t

	%></td>
  </tr>
  <tr class="tdbg">
    <td>回款数</td>
    <td>
<%
t =0 
csql = "select Fund_Num From T_SubSaleOrder where"
if GetUserGPower=9999 then
	csql = csql + " IsChk=1;"
elseif GetUserGPower=999 then
	csql = csql + " CityID = "&cstr(GetCityID)&" and IsChk=1;"
elseif GetUserGPower=99 then
	csql = csql + " CountyID = "&cstr(GetCountyID)&" and IsChk=1;"
elseif GetUserGPower=9 then
	csql = csql + " UserID = "&cstr(ID)&" and IsChk=1;"
end if
'csql = "Select Fund_Num from T_SubSaleOrder where UserID ="&cstr(ID)&" and IsChk=1;"
'Response.write csql
Call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
	t=0
else
	t=t+crs("Fund_Num")
end if
call rs_end(crs)
response.write t
%>	
	</td>
  </tr>
  <tr class="tdbg">
    <td>未回款数</td>
    <td>
<%
'未回款数=进货数-回款数(z=x-y)
Dim x,y,z
x = 0 
y = 0
z = 0

csql = "select Pro_Num From T_SubOutOrder where InChk_UserID ="&cstr(ID)&" and IsChk=1;"
'Response.write csql
Call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
	x=0
else
	x=x+crs("Pro_Num")
end if
call rs_end(crs)
''''''''''''''''''''''''''''''''''
csql = "select Fund_Num From T_SubSaleOrder where"
if GetUserGPower=9999 then
	csql = csql + " IsChk=1;"
elseif GetUserGPower=999 then
	csql = csql + " CityID = "&cstr(GetCityID)&" and IsChk=1;"
elseif GetUserGPower=99 then
	csql = csql + " CountyID = "&cstr(GetCountyID)&" and IsChk=1;"
elseif GetUserGPower=9 then
	csql = csql + " UserID = "&cstr(ID)&" and IsChk=1;"
end if
'Response.write "<br>"&csql
'csql = "Select Fund_Num from T_SubSaleOrder where UserID ="&cstr(ID)&" and IsChk=1;"
'Response.write csql
Call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
	y=0
else
	y=y+crs("Fund_Num")
end if
call rs_end(crs)
z=clng(x)-clng(y)
Response.write z
%>	
	</td>
  </tr>
  <tr class="tdbg">
    <td>回款金额</td>
    <td>
<%
t =0 
csql = "select BackFundMoney From T_SubSaleOrder where"
if GetUserGPower=9999 then
	csql = csql + " IsChk=1;"
elseif GetUserGPower=999 then
	csql = csql + " CityID = "&cstr(GetCityID)&" and IsChk=1;"
elseif GetUserGPower=99 then
	csql = csql + " CountyID = "&cstr(GetCountyID)&" and IsChk=1;"
elseif GetUserGPower=9 then
	csql = csql + " UserID = "&cstr(ID)&" and IsChk=1;"
end if
Call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
	t=0
else
	t=t+crs("BackFundMoney")
end if
call rs_end(crs)
response.write t
%>	
	</td>
  </tr>
  <tr class="tdbg">
    <td>未回金额</td> 
    <td>
<%
'未回款金额=进货确认金额-回款金额
x=0
y=0
z=0
csql ="select Pro_Money From T_SubOutOrder where InChk_UserID="&Cstr(ID)&" and IsChk=1"
Call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
	x=0
else
	x=x+crs("Pro_Money")
end if
call rs_end(crs)
'''''''''''''
csql = "select BackFundMoney From T_SubSaleOrder where"
if GetUserGPower=9999 then
	csql = csql + " IsChk=1;"
elseif GetUserGPower=999 then
	csql = csql + " CityID = "&cstr(GetCityID)&" and IsChk=1;"
elseif GetUserGPower=99 then
	csql = csql + " CountyID = "&cstr(GetCountyID)&" and IsChk=1;"
elseif GetUserGPower=9 then
	csql = csql + " UserID = "&cstr(ID)&" and IsChk=1;"
end if
Call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
	y=0
else
	y=y+crs("BackFundMoney")
end if
call rs_end(crs)
z=clng(x)-clng(y)
Response.write z
%>
	
	</td>
  </tr>
</table>
<br>

<table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center"><a href="javascript:window.close()">【关闭】</A></td>
  </tr>
</table>
<br>
<%
	End If
	Call rs_end(Rs)
%>
</body>
</html>
💿 文件大小 3499 K
👤 上传用户 sinba
📂 所属分类 OA系统
🏷️ 相关标签

#手机 #家 #进销存系统
⌨️ 快捷键说明

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