asp生成静态页面分页的问题?
我就想知道具体步骤是什么?
代码可以不要,大体思路请告知。
------解决方案--------------------啊??????
不会吧,兔子??
如果真是兔子的话,怎么会问这种问题
------解决方案--------------------盗版的
------解决方案--------------------兵无定势,水无常形
看你具体的业务需求了
变与不变是需求决定的。。。
------解决方案--------------------最好做成触发式的静态,有客户端请求才生成静态页
例如访问:test.asp?id=1
If Not FileExists( "test1.html ") Then
'生成静态页test1.html
End If
Server.Execute "test1.html "
------解决方案--------------------//简单的说就是个新闻列表,本来是asp的文件,现在我要把它弄成html的;分页也能生成静态的
全部生成无他
列表我建议还是用urlrewriter好了
------解决方案--------------------//最好做成触发式的静态,有客户端请求才生成静态页
//例如访问:test.asp?id=1
真正的meizz曾经就这么把csdn的blog的服务器弄down机了
------解决方案--------------------嗯。用urlrewrite算了。
下载个isapi_rewrite,然后安装
------解决方案--------------------这是从我的IO类里剥离出来的,只有Output,没有Input,但还是叫它IO
io.asp
<%
'-------------------------------------------
'ASP IO Class
'Name - ImplIO
'Require - FSO && ADODB.Stream
'Author - ococo
'LastModify - 2007/05/16
'-------------------------------------------
'方法
'*******************************************
'Public Function Cache(argv[0], argv[1]) As Boolean
' 判断页面是否缓存
' argv[0] - 缓存秒数,Long类型,=0,表示永久缓存
' argv[1] - QueryString名称列表,String类型
' 不同的QueryString启用不同的缓存
' 多个QueryString用|分开
'*******************************************
'Public Sub Echo(argv[0])
' 输出数据
' argv[0] - 数据,Variant类型
'-------------------------------------------
Class ImplIO
Private fso
Private objFile
Private lngTimeout
Private strQuery
Private strName
Private blnCache
Private Sub Class_Initialize()
Set fso = Server.CreateObject( "Scripting.FileSystemObject ")
Set objFile = Nothing
blnCache = False
End Sub
Private Sub Class_Terminate()
If blnCache Then
Call SaveCache
Call ExportCache
End If
If Not objFile Is Nothing Then
objFile.Close
Set objFile = Nothing
End If
Set fso = Nothing
End Sub
Public Function Cache(ByVal lTimeout, ByVal sQuery)
Dim strPath
lngTimeout = lTimeout
strQuery = sQuery
strName = fso.GetFileName(Request.ServerVariables( "SCRIPT_NAME "))
strPath = getCachePath()
If fso.FileExists(strPath) Then
If lngTimeout = 0 Then
Cache = True
Call ExportCache
ElseIf DateDiff( "s ", getLastModify(strPath), Now()) > lngTimeout Then
Cache = False
Else
Cache = True
Call ExportCache
End If
Else
Cache = False
End If
End Function
Private Function getCachePath()
Dim strPath
strPath = "cache/$(Name)/[$(Query)].cc "
strPath = Replace(strPath, "$(Name) ", strName)