📄 basefun.asp

📁 书店的管理系统。不错的一个源程序。提供给大家。

💻 ASP

字号:

<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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -