⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 creatreportpo.asp

📁 1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复! 自己写吧~~~:) 4 又 是一点缺陷
💻 ASP
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "report","read"
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>creatreportaccount</title>
</head>
<script language="javascript">
 function selcondition1()
{
	opensubwinwithsearch('../report/selectconditon.asp','form1','condition1','',form1.selmethod1.value);
}
 function selcondition2()
{
	opensubwinwithsearch('../report/selectconditon.asp','form1','condition2','',form1.selmethod2.value);
}
 function selcondition3()
{
	opensubwinwithsearch('../report/selectconditon.asp','form1','condition3','',form1.selmethod3.value);
}
function selcancelsel1()
{
	form1.condition1.value="";
	form1.condition1name.value="";	
}
function selcancelsel2()
{
	form1.condition2.value="";
	form1.condition2name.value="";	
}
function selcancelsel3()
{
	form1.condition3.value="";
	form1.condition3name.value="";	
}
</script>
<body leftmargin="10" rightmargin="0" topmargin="10">
<form name="form1" method="post" action="">
  <table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td height="25"><strong><font class=title>创建采购报表</font></strong></td>
    </tr>
    <tr > 
      <td height="16" colspan="3" background="../images/title.gif">&nbsp;</td>
    </tr>
    <tr>
      <td height=4></td>
    </tr>
	    <tr><td><div align="center" style="cursor:hand"><img  src="../images/button_run.gif" language=javascript onClick="return btnRun_onclick()"></a>&nbsp;&nbsp;&nbsp;&nbsp; 
          <%if objcheck.CheckUserFunction2("Excel","edit") or objcheck.CheckUserFunction2("Excel","read") then%><img  src="../images/button_excel.gif" language=javascript onClick="return btnExportToExcel_onclick()"><%end if%></DIV></td>
    </tr>
  </table>
  <table width="100%" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
    <tr> 
      <td width="15%" bgcolor="DEDFDE"> <div align="center">所有者</div></td>
      <td width="18%" bgcolor="EFEFEF"><select name="selusername">
          <option selected value="">--选择所有者--</option>
		<%getusername strselusername%>
        </select></td>
      <td width="15%" bgcolor="DEDFDE"><div align="center">客户名称包含</div></td>
      <td colspan="3" bgcolor="EFEFEF"> <input name=Contain size="20" value=""> 
        <div align="center"></div></td>
    </tr>
    <tr> 
      <td width="15%" bgcolor="DEDFDE"><div align="center">统计方式1</div></td>
      <td width="18%" bgcolor="EFEFEF"><select name="selmethod1">
          <option value="省份">省份</option>
          <option value="行业">行业</option>
          <option value="客户类型">客户类型</option>
          <option value="区域">区域</option>
          <option value="所有制类型">所有制类型</option>
          <option value="国家">国家</option>
        </select></td>
      <td width="15%" bgcolor="DEDFDE"><div align="center">统计方式2</div></td>
      <td width="19%" bgcolor="EFEFEF"><select name="selmethod2">
          <option value="行业">行业</option>
          <option value="客户类型">客户类型</option>
          <option value="省份">省份</option>
          <option value="区域">区域</option>
          <option value="所有制类型">所有制类型</option>
          <option value="国家">国家</option>
        </select></td>
      <td width="15%" bgcolor="DEDFDE"><div align="center">统计方式3</div></td>
      <td width="18%" bgcolor="EFEFEF"><select name="selmethod3">
          <option value="客户类型">客户类型</option>
          <option value="省份">省份</option>
          <option value="行业">行业</option>
          <option value="区域">区域</option>
          <option value="所有制类型">所有制类型</option>
          <option value="国家">国家</option>
        </select></td>
    </tr>
    <tr> 
      <td width="15%" bgcolor="DEDFDE"><div align="center">统计条件1</div></td>
      <td width="18%" bgcolor="EFEFEF">
	    <input name="condition1" type="hidden" size="12" value="" readonly> 
	    <input name="condition1name" type="text" size="12" value="" readonly> 
        <input type="button" name="bnselcondition1" onClick="selcondition1();"  value=...  class=black> 
        <input type="button" name="bncancelsel1" onClick="selcancelsel1();"  value=C  class=black> 
      </td>
      <td width="15%" bgcolor="DEDFDE"><div align="center">统计条件2</div></td>
      <td width="19%" bgcolor="EFEFEF">
  	    <input name="condition2" type="hidden" size="12" value="" readonly> 
	    <input name="condition2name" type="text" size="12" value="" readonly> 
        <input type="button" name="bnselcondition2" onClick="selcondition2();"  value=...  class=black> 
        <input type="button" name="bncancelsel2" onClick="selcancelsel2();"  value=C  class=black> 
      </td>
      <td width="15%" bgcolor="DEDFDE"><div align="center">统计条件3</div></td>
      <td width="18%" bgcolor="EFEFEF">
  	    <input name="condition3" type="hidden" size="12" value="" readonly> 
	    <input name="condition3name" type="text" size="12" value="" readonly> 
        <input type="button" name="bnselcondition3" onClick="selcondition3();"  value=...  class=black> 
        <input type="button" name="bncancelsel3" onClick="selcancelsel3();"  value=C  class=black> 
      </td>
    </tr>
    <tr> 
      <td bgcolor="DEDFDE" ><div align="center">星级</div></td>
      <td bgcolor="EFEFEF"> <select name=accountlevel>
          <option value="">--选择星级--</option>
          <option value=1<%if straccountlevel=2 then response.Write("selected")%>>★</option>
          <option value=2 <%if straccountlevel=2 then response.Write("selected")%>>★★</option>
          <option value=3 <%if straccountlevel=3 then response.Write("selected")%>>★★★</option>
          <option value=4 <%if straccountlevel=4 then response.Write("selected")%>>★★★★</option>
          <option value=5 <%if straccountlevel=5 then response.Write("selected")%>>★★★★★</option>
        </select> </td>
      <td bgcolor="DEDFDE" ><div align="center">失效</div></td>
      <td bgcolor="EFEFEF"><input type="checkbox" name="disable" value=1 <%if strdisable=true then Response.Write "checked"%>> 
      </td>
      <td width="15%" bgcolor="DEDFDE"><div align="center"></div></td>
      <td width="18%" bgcolor="EFEFEF">&nbsp;</td>
    </tr>
  </table>
</form>
</body>
</html>
<%set objcheck=nothing%>

⌨️ 快捷键说明

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