日期:2014-05-17  浏览次数:20847 次

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)