function.asp

来自「医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考」· ASP 代码 · 共 51 行

<%
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,"","&nbsp;")
  else
   repstr="没有信息"
  end if
end function
function counter()
	filepath=server.mappath("/count")
	filename=filepath+"\counter.txt"
	set fs=createobject("scripting.filesystemobject")
	set f=fs.getfile(filename)
    Set ts = f.OpenAsTextStream(1, -2)
    s=ts.readline
	for i=1 to len(s)
	   response.write "<img src=images/count/"&mid(s,i,1)&".gif width=18 height=22>"
	next
	ts.close
end function
%>