function1.asp

医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考

<%
Dim WebName
WebName = "医药连锁店管理系统"
sub sort2()
  set rs=conn.execute("select top 10 sum(TotalPrice) as TotalPrice,yName from tb_Sell group by TotalPrice,yName order by TotalPrice desc")
end sub
%>
<script language="javascript">
  function chkfields(){
  if(document.form1.userid.value==''){
     alert("请输入用户ID");
	 form1.userid.focus();
     return false;
  }
  if(document.form1.userpwd.value==''){
     alert("请输入密码");
	 form1.userpwd.focus();
	 return false;
  }
  return true;
  }
  function chkwords(){
  if (document.form2.keywords.value==""){
  alert("请输入关键字！");
  form2.keywords.focus();
  return false;
  }
  return true;
  }
</script>
<%
function repstr(str)
  if not isNull(str) or len(str)>0 then
   repstr=replace(str,"<br>","<br>")
   repstr=replace(repstr,"&nbsp;","&nbsp;")
   repstr=replace(repstr,"","&nbsp;")
  else
   repstr="没有信息"
  end if
end function
function counter1()
s=cstr(application("visitor"))
for i=1 to len(s)
   response.write "<img src='images/count/"
&mid(s,i,1)&".gif' width='18' height='25'>"
next
end function
function counter2()
response.write application("visitor")
end function
%>