basefun.asp

来自「书店的管理系统。不错的一个源程序。提供给大家。」· ASP 代码 · 共 57 行

ASP
57 行
字号 
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>


<%
function changeBR(orgStr,seporStr)
	dim newstr,rightstr
	
	newstr=""
	rightstr=orgStr
	i=InStr(1,rightstr,seporStr)
	
	While (not IsNull(i)) and i>0
		newstr=newstr+Left(rightstr,i-1)+"<br>&nbsp;&nbsp;&nbsp;&nbsp;"
		rightstr=Right(rightstr,Len(rightstr)-i-1)
	
		i=InStr(1,rightstr,seporStr)
	Wend
	
	if len(rightstr)>0 then
		newstr=newstr+rightstr
	end if
	
	changeBR=newstr
end function



function getPrice(StrPrice)
	str=trim(StrPrice)

	L=len(str)
	num =""
	for i =1 to L
		select case mid(str,i,1)
			case "0","1","2","3","4","5","6","7","8","9","."
				num=num+mid(str,i,1)
			case else
				exit for
		end select
	next

	getPrice=num
end function
%>



<BODY>

<P>&nbsp;</P>

</BODY>
</HTML>

basefun.asp - 源码说明

本页面展示了「书店的管理系统。不错的一个源程序。提供给大家。」中的 basefun.asp 源码文件，采用 ASP 编程语言编写，共 57 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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