📄 selectsupplierlist_right.asp
字号:
<%@language="vbscript" codepage="936"%>
<%response.buffer = true%>
<%
Public HOME_PATH:HOME_PATH = "../"
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
%>
<!--#include file="../db.asp"-->
<!--#include file="../inc/function.asp"-->
<%Public title:title = "用户列表"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=title%></title><%
if isLogin = false then
Response.Write viewinfo("LoginC","","")
Response.end
end if
%><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
<link href="<%=HOME_PATH%>css/style01.css" rel="stylesheet" type="text/css">
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/layer00.js'></script>
<style type = 'text/css'>
.tempA td {border-top:solid 0px #fff;border-left:solid 0px #fff;border-right:solid 1px #d6d3ce;border-bottom:solid 1px #d6d3ce;}
.clicked { background-color:#08246B;color:#ffffff;}
</style>
<script language="JavaScript">
<!--
function clicked_(s) {
var td_len = td_.length;
if (td_len == undefined) {
td_.className = 'clicked';
}else{
for(i_ = 0 ; i_<td_len;i_++) {
if(s!=i_) {
td_[i_].className = '';
}else{
td_[i_].className = 'clicked';
}
}
}
}
function checked_(s) {
if(form.selAnnounce[s].checked == true) {
selid_[s].className = 'clicked';
}else{
selid_[s].className = '';
}
}
//-->
</script>
</head>
<body style = 'background-color:#fff;margin:0px;'>
<div style = 'text-align:center;'>
<table border = '1' cellspacing = '0' cellpadding = '1' borderColorLight='#000000' borderColorDark='#eeeeee' style = 'width:100%;background-color:buttonface;border-bottom:0px solid;border-right:0px solid;border-top:0px solid;border-left:0px solid;'/>
<form method='post' action="" name = 'form'>
<tr>
<td style ='height:20px;'>序号</td>
<td>代码</td>
<td>名称</td>
<td>联系人</td>
<td>电话</td>
<td>手机</td>
<td>经营范围</td>
</tr>
<tr>
<td style ='height:1px;line-height:1px;background-color:#adaaad;border-style:none;' colspan = '7'></td>
</tr>
<%
identifyCode = isNumber(trim(Request("identifyCode")),"int",0)
Rmainid = GetText("maintypeid","G","number",1,10,0)
Rsubid = GetText("subtypeid","G","number",1,10,0)
if Rmainid = 0 then
Rmainid_ = SelectZD("select uTypeid from usertype where identifyCode = " & identifyCode & "",3)
if Rmainid_ = 3 then Response.end
end if
'mainSQL = v1v2(Rmainid,0,""," and uTypeid in(select uTypeid from usertype where uTypeSelect = " & Rmainid & ") ")
'subSQL = v1v2(Rsubid,0,""," and uTypeid=" & Rsubid & "")
'SQL = "select * from supplier where not disabled = 0 " & mainSQL & subSQL & " Order By uid desc"
if Rmainid = 0 then
mainSQL = ""
else
mainSQL = " and uTypeid in(select uTypeid from usertype where uTypeSelect = " & Rmainid & ") "
end if
if Rsubid = 0 then
subSQL = ""
else
subSQL = " and uTypeid = " & Rsubid & ""
end if
SQL = "select * from supplier where not disabled = 0 " & mainSQL & subSQL & " and utypeid in(select utypeid from usertype where uTypeSelect in(select utypeid from usertype where utypeid in(select uTypeSelect from usertype where identifyCode = " & identifyCode & ") and identifyCode = " & identifyCode & ") and identifyCode = " & identifyCode & " )"
'set ab = conn.execute("select fullname from supplier where not disabled = 0 " & mainSQL & subSQL & " and utypeid in(select utypeid from usertype where uTypeSelect in(select utypeid from usertype where utypeid in(select uTypeSelect from usertype where identifyCode = " & identifyCode & ") and identifyCode = " & identifyCode & ") and identifyCode = " & identifyCode & " )")
'if not ab.eof then
'for abi = 1 to 100
'if ab.eof then exit for
'Response.Write ab(0) & "<br/>"
'ab.movenext
'next
'else
'Response.write"none"
'end if
'ab.close
'Set ab = nothing
'Response.Write SQL
Rs.Open(SQL),Conn,1,1
if not Rs.eof then
dim uCount
thisPageSize = 10
LinkFile = SELVAR("FN","supplierlist_right.asp")
LUrl = "&maintypeid=" & Rmainid & "&subtypeid=" & Rsubid
PageWrite = PaginatinoGoogle(Rs,noteTotal,thisPageSize,LinkFile,LUrl,LArr)
for i_u = 1 to thisPageSize
if Rs.eof then exit for
uid = Rs("uid")
Code = Rs("Code")'代码
ForShort = Rs("ForShort")'简称
HelpMarkCode = Rs("HelpMarkCode")'助记码
FullName = Rs("FullName")'全称
Linkman = Rs("Linkman")'联系人
Place = Rs("Place")'职位
LinkPhone = Rs("LinkPhone")'联系电话
mobileTelehone = Rs("mobileTelehone")'手机
fax = Rs("fax")'
Email = Rs("Email")'
ArrearageTime = Rs("ArrearageTime")'欠款期限
ArrearageTether = Rs("ArrearageTether")'欠款限额
BankNumber = Rs("BankNumber")'银行帐号
WebSite = Rs("WebSite")'网址
ScopeOfOperation = Rs("ScopeOfOperation")'经营范围
Address = Rs("Address")'详细地址
disabled = Rs("disabled")'是否可用
PriceType = Rs("PriceType")'价格类型
utypeid = Rs("utypeid")'注册到-相应id
%>
<tr class = 'tempA' style='cursor: default;background-color:#ffffff;' ondblclick = "javascript:var a = new Array('<%=Code%>','<%=uid%>','<%=FullName%>','<%=Linkman%>','<%=LinkPhone%>');window.returnValue = a ;window.close();" onclick="clicked_('<%=i_u-1%>');">
<td id = 'td__' style = 'text-align:center;'><%=uid%></td>
<td id = 'td_'><%=Code%></td>
<td ondblclick = "javascript:WindowOpen('supplierview.asp?uid=<%=uid%>','supplierview',768,450,'');" ><%=FullName%></td>
<td><%=Linkman%></td>
<td><%=LinkPhone%></td>
<td><%=mobileTelehone%></td>
<td><%=StrLen(ScopeOfOperation,15,"")%></td>
</tr>
<%
Rs.movenext
next
Response.Write"<tr><td colspan = '7' style = 'text-align:center;'>" & PageWrite & "</td></tr>"
else
%>
<tr style = 'background-color:#ffffff;' class = 'tempA'>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
end if
Rs.Close
ConnClose()
if identifyCode = 0 then
%>
<tr class = 'tempA' style='cursor: default;background-color:#ffffff;' ondblclick = "javascript:var a = new Array('','0','','','');window.returnValue = a ;window.close();" onclick="clicked_('<%=i_u-1%>');">
<td id = 'td__' style = 'text-align:center;'>0</td>
<td id = 'td_'> </td>
<td>别的客户</td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%end if%>
</form>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -