function.asp

来自「程序名称：酷虎网校友录 V1.0 （商业版）*(修改版） * 本软体为商业软件」· 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
%>