下面为一个简单的文章分页实例完整代码:
<%
Class aspxsky_page
Private Sub class_initialize
End Sub
Public Function Alert(message,gourl)
message = replace(message,"'","\'")
If gourl="-1" then
Response.Write ("")
Else
Response.Write ("")
End If
Response.End()
End Function
下面为一个简单的文章分页实例完整代码:
<%
Class aspxsky_page
Private Sub class_initialize
End Sub
Public Function Alert(message,gourl)
message = replace(message,"'","\'")
If gourl="-1" then
Response.Write ("")
Else
Response.Write ("")
End If
Response.End()
End Function
下载本文示例代码