📄 account.asp

📁 1 除掉了时间限制 2 除掉了人数限制改为 500人原为5人 3 发现一点小缺陷增加人员的时候没有判断登陆名是否重复！自己写吧~~~：） 4 又是一点缺陷
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
if (form1.strfield.value=="owner"){
	form1.strvalue.value=form1.strvalue3.value;
	}
if (form1.strfield.value=="industry"){
	form1.strvalue.value=form1.strvalue4.value;
	}
if (form1.strfield.value=="province1"){
	form1.strvalue.value=form1.strvalue5.value;
	}
	if (form1.strfield.value=='lastmoddate'){
		if(form1.strvalue.value==""){
			alert("请输入搜索日期!");
			return false;
			}
		if(CheckDate(document.form1.strvalue.value)){
			alert("请输入正确格式的日期!");
			return false;
			}
		}
form1.submit();
}
</SCRIPT>
<body leftmargin="10" rightmargin="10" topmargin="10">
<form name="form1" method="post" action="account.asp"   onsubmit="return GetStrValue();">
  <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td width="10%">
	 	<select name="strfield" onchange="relativeinput_onchange();">
          <option value=account <%if request("strfield")="account" then Response.Write "selected"%>>客户</option>
          <option value=siccode <%if request("strfield")="siccode" then Response.Write "selected"%>>客户代码</option>
          <option value=accounttype <%if request("strfield")="accounttype" then Response.Write "selected"%>>客户类型</option>
          <option value=owner <%if request("strfield")="owner" then Response.Write "selected"%>>所有者</option>
          <option value=industry <%if request("strfield")="industry" then Response.Write "selected"%>>行业</option>
          <option value=province1 <%if request("strfield")="province1" then Response.Write "selected"%>>省份</option>		  
          <option value=billaddress <%if request("strfield")="billaddress" then Response.Write "selected"%>>地址</option>
          <option value=lastmoddate <%if request("strfield")="lastmoddate" then Response.Write "selected"%>>更新日期</option>
        </select></td>
      <td width="18%">
	  <div id=strvalue1 <%if request("strfield")<>"accounttype" and request("strfield")<>"owner" and request("strfield")<>"industry" and request("strfield")<>"province1" or request("strfield")=""  then response.write "style=display:block" else response.write "style=display:none" end if%>>
          <input type="text" name="strvalue1" value="<%=request("strvalue1")%>">
        </div>
	  <div id=strvalue2 <%if request("strfield")="accounttype" then response.write "style=display:block" else response.write "style=display:none" end if%>>
	  		<select name="strvalue2" class="stedit">
                  <option value="">--请选择客户类型--</option>
                  <%getgrouptype selecttablename,"accounttype",request("strvalue2")%>
            </select></div>
	  <div id=strvalue3 <%if request("strfield")="owner" then response.write "style=display:block" else response.write "style=display:none" end if%>>
	  		<select name="strvalue3" class="stedit">
                  <option value="">--请选择所有者--</option>
                  <%getgrouptype selecttablename,"owner",request("strvalue3")%>
            </select></div>
	  <div id=strvalue4 <%if request("strfield")="industry" then response.write "style=display:block" else response.write "style=display:none" end if%>>
	  		<select name="strvalue4" class="stedit">
                  <option value="">--请选择行业--</option>
                  <%getgrouptype selecttablename,"industry",request("strvalue4")%>
            </select></div>
	  <div id=strvalue5 <%if request("strfield")="province1" then response.write "style=display:block" else response.write "style=display:none" end if%>>
	  		<select name="strvalue5" class="stedit">
                  <option value="">--请选择省份--</option>
                  <%getgrouptype selecttablename,"province1",request("strvalue5")%>
            </select></div>
		</td>
      <td> 
        <input type=hidden name="strvalue" value="<%=request("strvalue")%>" > 
        <input type=image src="../images/button_submit.gif" style="cursor:hand" border=0> 
          <%
		if CurPage<=1 then
		    Response.Write "<a href='account.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a>&nbsp;"
		else
		    Response.Write "<a href='account.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a>&nbsp;"
		    Response.Write "<a href='account.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage-1&"'><img src='../images/button_backward.gif' border=0></a>&nbsp;"
		end if
   		if CurPage>=RS.PageCount then
			Response.Write "<a href='account.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
		else
			Response.Write "<a href='account.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage+1&"'><img src='../images/button_forward.gif' border=0></a>&nbsp;"
			Response.Write "<a href='account.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
		end if
		%>
        </td><td width=30%><div id=dateformat <%if request("strfield")="lastmoddate" then response.write "style=display:block" else response.write "style=display:none" end if%>>日期输入格式提示：YYYY-MM-DD</div></td>
    </tr>
    <tr> 
      <td height="25" colspan=4><strong><font size="2" class=title>客户列表</font></strong> &nbsp;&nbsp;<a href="javascript:opensubwin3('resizable=yes, scrollbars=yes, left= 40, top=40, menubar=no, location=no, toolbar=no ,width=680, height=600','newaccount.asp?type=新建');"><img src="../images/button_new.gif" border=0></a></td>
    </tr>
    <tr > 
      <td height="16" colspan="4" background="../images/title.gif">&nbsp;</td>
    </tr>
	<tr><td  colspan="4" height=4></td></tr>
  </table>
  <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DECFAD">
    <tr bgcolor="#EFEFEF"> 
	  <td width="7%" height="22" align=center>操作</td>
      <td align=center><a href="account.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=account&orderby=<%=session("orderby")%>">客户</a></td>
      <td width="10%"  align=center><a href="account.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=accounttype&orderby=<%=session("orderby")%>">客户类型</a></td>
      <td width="10%"  align=center><a href="account.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=industry&orderby=<%=session("orderby")%>">行业</a></td>
      <td width="10%"  align=center><a href="account.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=province1&orderby=<%=session("orderby")%>">省份</a></td>
      <td width="10%"  align=center><a href="account.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=accountlevel&orderby=<%=session("orderby")%>">星级</a></td>
      <td width="10%"  align=center><a href="account.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=owner&orderby=<%=session("orderby")%>">所有者</a></td>
      <td width="10%" align=center><a href="account.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=lastmoddate&orderby=<%=session("orderby")%>">更新日期</a></td>
    </tr>
    <%
  set accountid=rs("accountid")
  set accounttype=rs("accounttype")
  set industry=rs("industry")
  set province1=rs("province1")
  set lastmoddate=rs("lastmoddate")
  set owner=rs("owner")
  set account=rs("account")
  set accountlevel=rs("accountlevel")
  i=1:do while not rs.EOF and i<=session("pagesize")%>
    <tr bgcolor="#FFFFFF"> 
	  <td height="22" align=center width="7%" nowrap><table><tr><td>
	  <% 
' Add Payment Menu
'//////////////// Add Menu List Start /////////////////////////
AddPopupMenu1 true,true,false,false,false,false,false,false, _
				"newAccount.asp?id=", _
				"../delete.asp?accountid=",_
				"",_
				"",_
				"",_
				"",_
				"",_
				"menuAccount"&rs("accountid")
'/////////////// Menu List End	
%>
		    <img src="../images/edit.gif" border="0" id="Account<%=rs("accountid")%>" align=absMiddle height=16  width=16 onMouseOver="ShowMenu('Account<%=rs("accountid")%>','menuAccount<%=rs("accountid")%>','<%=rs("accountid")%>')" onMouseOut="HideMenu('menuAccount<%=rs("accountid")%>')"></td>
            <td align=left id="IMGtr1<%=i%>" style="display:block"><a href="javascript:showit('tr1<%=i%>',1)" title="查看明细"><img src="../images/button1.gif" border=0></a><td>
            <td align=left id="IMG1tr1<%=i%>" style="display:none"><a href="javascript:showit('tr1<%=i%>',1)" title="隐藏明细"><img src="../images/button2.gif" border=0></a></td>
          </tr></table>
	  </td>
      <td align=center bgcolor="#ffffff">
      <a href="javascript:opensubwin3('accountdetail.asp?accountid=<%=accountid%>','客户<%=i%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><%=account%></a>
      </td>
      <td align=center><%=accounttype%></td>
      <td align=center><%=industry%></td>
      <td align=center><%=province1%></td>
      <td align=center><font color=red><strong> 
        <%
	  if accountlevel<>"" then
	  	if accountlevel>0 then
			for l=1 to accountlevel
				'response.Write "<img src=../images/star1.gif>"
				response.Write "★"				
			next
		end if
	  end if
	  %>
        </strong></font></td>
      <td align=center><%=owner%></td>
      <td align=center valign="middle"><%=Year(rs("lastmoddate"))&"-"&Month(rs("lastmoddate"))&"-"&Day(rs("lastmoddate"))%></td>
    </tr>
	<tr bgcolor="#FFFFFF" border=0  id='tr1<%=i%>' style=display:none><td colspan=8>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="FFFFFF">
          <tr bgcolor="#FFFFFF"> 
            <td width="10%" height=18 align=left  bgcolor="DEDFDE"><div align="left">客户代码</div></td>
            <td width="20%" align=left bgcolor="EFEFEF"><%=rs("Siccode")%> <div align="left"></div></td>
            <td width="10%" align=left bgcolor="DEDFDE"><div align="left">电话</div></td>
            <td width="20%" align=left bgcolor="EFEFEF"><%=rs("phone")%></td>
            <td width="10%" align=left bgcolor="DEDFDE"><div align="left">传真</div></td>
            <td width="30%" align=left bgcolor="EFEFEF"><%=rs("fax")%></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td align=left height=18  bgcolor="DEDFDE"><div align="left">类型</div></td>
            <td align=left bgcolor="EFEFEF"><%=rs("accounttype")%> <div align="left"></div></td>
            <td align=left bgcolor="DEDFDE"><div align="left">帐期</div></td>
            <td align=left bgcolor="EFEFEF"><font color=red><%if rs("AccountPeriod")<>"" then response.write rs("AccountPeriod")&"天" else response.write "未设定" end if%></font></td>
            <td align=left bgcolor="DEDFDE"><div align="left">来源</div></td>
            <td align=left bgcolor="EFEFEF"><%=rs("source")%></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td align=left height=18  bgcolor="DEDFDE"><div align="left">开户银行</div></td>
            <td align=left bgcolor="EFEFEF"><%=rs("accountbank")%> <div align="left"></div></td>
            <td align=left bgcolor="DEDFDE"><div align="left">区域</div></td>
            <td align=left bgcolor="EFEFEF"><%=rs("territory")%></td>
            <td align=left bgcolor="DEDFDE"><div align="left">省份</div></td>
            <td align=left bgcolor="EFEFEF"><%=rs("province1")%></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td align=left height=18  bgcolor="DEDFDE"><div align="left">帐号</div></td>
            <td align=left bgcolor="EFEFEF"><%=rs("accountno")%> <div align="left"></div></td>
            <td align=left bgcolor="DEDFDE"><div align="left">邮编</div></td>
            <td align=left bgcolor="EFEFEF"><%=rs("zip1")%></td>
            <td align=left bgcolor="DEDFDE"><div align="left">城市</div></td>
            <td align=left bgcolor="EFEFEF"><%=rs("city1")%></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td align=left height=18  bgcolor="DEDFDE"><div align="left">税号</div></td>
            <td align=left bgcolor="EFEFEF"><%=rs("taxno")%> <div align="left"></div></td>
            <td align=left bgcolor="DEDFDE"><div align="left">失效</div></td>
            <td align=left bgcolor="EFEFEF"><%=rs("disable")%></td>
            <td align=left bgcolor="DEDFDE"><div align="left">所有制</div></td>
            <td align=left bgcolor="EFEFEF"><%=rs("ownershipname")%></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td align=left height=18  bgcolor="DEDFDE"><div align="left">发货地址</div></td>
            <td colspan="3" align=left bgcolor="EFEFEF"><%=rs("shipaddress")%></td>
            <td align=left bgcolor="DEDFDE"><div align="left">地址</div></td>
            <td align=left bgcolor="EFEFEF"><%=rs("billaddress")%></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td align=left height=18  bgcolor="DEDFDE"><div align="left">描述</div></td>
            <td colspan="3" align=left bgcolor="EFEFEF"><%=rs("taxno")%></td>
            <td align=left bgcolor="DEDFDE">&nbsp;</td>
            <td align=left bgcolor="EFEFEF">&nbsp; </td>
          </tr>
        </table>

	</td></tr>
    <%
  i=i+1
  rs.MoveNext
  loop
if rscount("Count") mod session("pagesize")=0 then
	pgcount=rscount("Count")\session("pagesize")	
else
	pgcount=rscount("Count")\session("pagesize")+1
end if
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr height="50"><td>第<%=CurPage%>页&nbsp;/&nbsp;共<%=pgcount%>页&nbsp;/&nbsp;记录数:<%=rscount("Count")%>条
</td></tr></table>
<%
  rs.Close
  set rs=nothing
  conn.Close 
  set conn=nothing
set objcheck=nothing
%>
</form>
</body>
</html>
上一页 12
⌨️ 快捷键说明

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