?? showuserinfo.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> </td>
<td> </td>
</tr>
<tr class="tdbg">
<td>單位名稱</td>
<td><%=Rs("UserUnit")%>
</td>
<td> </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 " "
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> </td>
<td> </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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -