可能我搞错了,我是猜测的,不过我不知道 Script_Name是什么啊? --------------------------------------------------------- <script runat = "server" > Const Record_Per_Page As Short = 5 '定义每一页显示的记录数 Private Script_Name As String Sub Page_Load ( Source As Object , e As EventArgs ) Script_Name = GetPageName ( ) '第二种方式来分页显示数据 ShowRecords ( ) End Sub
'得到起始浏览超链接字符串 Function GetPageName ( ) As String Dim Str As String Dim Pos As Short Str = Request.ServerVariables ( "Script_Name" ).Trim ( ) Pos = Str.LastIndexOf ( "/" ) If Pos >= 0 Then Return Str.SubString ( Pos + 1 ) Else Return Str End If End Function
---------------------------------------------------------
<script runat = "server" >
Const Record_Per_Page As Short = 5 '定义每一页显示的记录数
Private Script_Name As String Sub Page_Load ( Source As Object , e As EventArgs )
Script_Name = GetPageName ( )
'第二种方式来分页显示数据
ShowRecords ( )
End Sub
'得到起始浏览超链接字符串
Function GetPageName ( ) As String
Dim Str As String
Dim Pos As Short
Str = Request.ServerVariables ( "Script_Name" ).Trim ( )
Pos = Str.LastIndexOf ( "/" )
If Pos >= 0 Then
Return Str.SubString ( Pos + 1 )
Else
Return Str
End If
End Function