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

生成静态网站的问题
只有10分了,请前辈们见谅!

1,生成的静态页面,怎么求点击率
2,在静态页面中,一般左边有一个最高点击率排行的列表,而这个是动态的,怎么显示呢?难道采用JS。//
3,一个项目主页,   是不是也要单独用一个模板生成
4,网站首页,生成HTML应该怎么弄呢?

------解决方案--------------------
1.js读取一个统计的动态页面
2.可以,也可以框架,不然就ajax3
3.要是不同页面当然要不同模板
4. <%
if Application( "MaxShangpinlist ")= " " then
Application.Lock
Application( "MaxSpecialList ")= "20 "
Application.UnLock
end if
MaxSpecialList=Application( "MaxSpecialList ")
myurl8d= "http://www.xxx.com/ "
URL=myurl8d& "index.asp "

Update=GetURL(URL)
overdate=bytes2bstr2(Update)
Set fso = Server.CreateObject( "Scripting.FileSystemObject ")
Set fout = fso.CreateTextFile(server.mappath( "../index.html ",true))
fout.WriteLine overdate
fout.close

Const adTypeText = 2

Function GetURL(URL)
Set Retrieval = CreateObject( "Microsoft.XMLHTTP ")
With Retrieval
.Open "GET ", url, False
.Send
GetURL = .responsebody
End With
Set Retrieval = Nothing
End Function

Function Bytes2bStr2(vin)
Dim BytesStream,StringReturn

Set BytesStream = Server.CreateObject( "ADODB.Stream ")
With BytesStream
.Type = adTypeText
.Open
.WriteText vin

.Position = 0

.Charset = "GB2312 "
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing
Bytes2bStr2 = StringReturn
End Function

response.write " <script> alert( '首页生成完成 !^_^ ');history.back(); </script> "
Response.End
%>