function.asp

来自「一个很好的ASp.net论坛程序」· ASP 代码 · 共 39 行

<%
Function minPage(page_no,page_total)
	Dim numTemp
	numTemp=(Int((page_no-1)/10))*10+1
	minPage=numTemp
End Function

Function maxPage(page_no,page_total)
	Dim numTemp
	numTemp=(Int((page_no-1)/10))*10+10
	If numTemp>page_total Then 
		numTemp=page_total
	End If
	maxPage=numTemp
End Function


Function mychange(strTemp)
 strTemp=Replace(strTemp,"&","&amp;")
 strTemp=Replace(strTemp,chr(39),"&acute;")  
 strTemp=Replace(strTemp,chr(34),"&quot;")
 strTemp=Replace(strTemp,chr(13),"<br>")
 strTemp=Replace(strTemp,chr(32),"&nbsp;")
 strTemp=Replace(strTemp,chr(9),"&nbsp;&nbsp;&nbsp;&nbsp;")
 mychange=strTemp  
End Function


Function change(strTemp)
 strTemp=Replace(strTemp,"&amp;","&")
 strTemp=Replace(strTemp,"&acute;",chr(39))  
 strTemp=Replace(strTemp,"&quot;",chr(34))
 strTemp=Replace(strTemp,"<br>",chr(13)) 
 strTemp=Replace(strTemp,"&nbsp;",chr(32))
 strTemp=Replace(strTemp,"&nbsp;&nbsp;&nbsp;&nbsp;",chr(9))
 change=strTemp  
 End Function

%>