没有高分送~啊~难道没分就没有人么？
http://www.wangzheng.com
是我用asp做的个人网站，整站只有一个程序文件，下面贴出部分代码，请达人pp，主要是请
大家看下网站，然后再pp~
==========================================================================
'-----------------------------------------------------------------------------
'读入index.htm模板文件
Dim StrBar
Set re=new RegExp
Set fs = CreateObject("Scripting.FileSystemObject")
FilePath=Server.MapPath( TempPath & "index.htm")
Set f = fs.GetFile (FilePath)
Set ts = f.OpenAsTextStream(1, -2)
strFile = ts.ReadAll
ts.Close
'------------------------------------------------------------------------------
'替换日期和日历
mydate=request("mydate")
if mydate="" then
mydate=request("myday")
if mydate="" then mydate=now
end if
StrDateTime="Now:"&now&ShowDate(mydate)
re.Pattern="@Time"
StrFile=re.Replace(StrFile,StrDateTime) '替换
'------------------------------------------------------------------------------
'替换文章总数
sql="select count(*) as showcount from doc where doc_type<>'" &BlogGustBookName&"'"
rs.open sql,conn,1,1
StrDocCount=rs("showcount")
rs.close
re.Pattern="@DocCount"
StrFile=re.Replace(StrFile,StrDocCount) '替换
'------------------------------------------------------------------------------
'替换回复总数
sql="select count(*) as showcount from comment"
rs.open sql,conn,1,1
StrComCount=rs("showcount")
rs.close
re.Pattern="@ComCount"
StrFile=re.Replace(StrFile,StrComCount) '替换
'------------------------------------------------------------------------------
'替换留言总数
sql="select count(*) from doc where doc_type='"& BlogGustBookName & "'"
rs.open sql,conn,1,1
StrMsgCount=rs.recordcount
rs.close
re.Pattern="@MsgCount"
StrFile=re.Replace(StrFile,StrMsgCount) '替换
'------------------------------------------------------------------------------
'替换网站浏览人数
re.Pattern="@SiteCount"
StrFile=re.Replace(StrFile,clicktemp) '替换
'------------------------------------------------------------------------------
问题点数：20、回复次数：5Top
1 楼rockypig（我是和乡民进来看热闹的 @@!）回复于 2005-03-02 10:54:33 得分 10
http://www.wangzheng.com/index.asp?cote=Movie
整个就一个页面啊.......
还是变化点好Top
2 楼mymyal123（风之森）回复于 2005-03-02 11:01:42 得分 5
upTop
3 楼chinachong（冰火）回复于 2005-03-02 11:04:12 得分 0
Re:rockypig(melvin)
呵呵 只有一个程序页面 其它是html的模板~Top
4 楼jacky1_102（小蜗牛）回复于 2005-03-02 11:11:56 得分 5
hehe!!!也不错Top
5 楼chinachong（冰火）回复于 2005-03-02 12:09:33 得分 0
分少就是下的快～Top
