⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 function.asp

📁 一个很好的ASp.net论坛程序
💻 ASP
字号:
<%
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

%>

⌨️ 快捷键说明

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