function.asp

来自「这是一个校友录管理系统」· ASP 代码 · 共 34 行

<%
Function AbsolutePositionReCordset()
Select Case Rs.AbsolutePosition
Case 1
	Response.Write "╔"
Case 3
	Response.Write "╚"
Case Else
	Response.Write "╠"
End Select
End Function
Function CharCountLimit(CharStr,CharLen)
Response.Write Mid(CharStr,1,CharLen)
IF Len(CharStr)>CharLen Then
Response.Write "..."
End IF
End Function
Function AbsolutePositionReCordset4()
Select Case Rs.AbsolutePosition
Case 1
	Response.Write "╔"
Case 4
	Response.Write "╚"
Case Else
	Response.Write "╠"
End Select
End Function
Function CharCountLimit(CharStr,CharLen)
Response.Write Mid(CharStr,1,CharLen)
IF Len(CharStr)>CharLen Then
Response.Write "..."
End IF
End Function
%>