Sub Show_Index_Top
Dim newsstr,TempStr,TopArray
newsstr=news
If newsstr(1)=＂＂ Or Not IsDate(newsstr(1)) Then newsstr(1)=Now()
TempStr = template.html(0)
TopArray = Split(template.html(2),＂||＂)
Dim tmpdata,nexhour
If Dvbbs.Forum_Setting(69)=＂1＂ Then
tmpdata=split(Dvbbs.Forum_Setting(70),＂|＂)
nexhour=Hour(Now()) 1
nexhour=nexhour mod 24
If tmpdata(nexhour)=＂0＂ And Minute(now())＞40 Then
newsstr(1)=newsstr(1)＆Replace(template.Strings(11),＂{＆＃36;LeaveTime}＂,(60-Minute(now())))
End If
End If
TempStr=Replace(TempStr,＂{＆＃36;news}＂,newsstr(0))
TempStr=Replace(TempStr,＂{＆＃36;newstime}＂,newsstr(1))
TempStr=Replace(TempStr,＂{＆＃36;width}＂,Dvbbs.mainsetting(0))
TempStr=Replace(TempStr,＂{＆＃36;UserNum}＂,Dvbbs.CacheData(10,0))
TempStr=Replace(TempStr,＂{＆＃36;lastUser}＂,Dvbbs.HtmlEncode(Dvbbs.CacheData(14,0)))
TempStr=Replace(TempStr,＂{＆＃36;TodayNum}＂,Dvbbs.CacheData(9,0))
TempStr=Replace(TempStr,＂{＆＃36;TopicNum}＂,Dvbbs.CacheData(7,0))
TempStr=Replace(TempStr,＂{＆＃36;YesTerdayNum}＂,Dvbbs.CacheData(11,0))
TempStr=Replace(TempStr,＂{＆＃36;PostNum}＂,Dvbbs.CacheData(8,0))
TempStr=Replace(TempStr,＂{＆＃36;MaxPostNum}＂,Dvbbs.CacheData(12,0))
TempStr=Replace(TempStr,＂{＆＃36;MaxPostDate}＂,Dvbbs.CacheData(13,0))
If Dvbbs.UserID=0 Then
TempStr=Replace(TempStr,＂{＆＃36;myinfo}＂,Replace(TopArray(0),＂{＆＃36;forumname}＂,Dvbbs.Forum_Info(0)))
If Dvbbs.Forum_ChanSetting(0)=＂1＂ Then TempStr=Replace(TempStr,＂{＆＃36;isray}＂,TopArray(1))
TempStr=Replace(TempStr,＂{＆＃36;isray}＂,＂＂)
If Dvbbs.forum_setting(79)=＂0＂ Then
TempStr=Replace(TempStr,＂{＆＃36;getcode}＂,＂＂)
Else
TempStr=Replace(TempStr,＂{＆＃36;getcode}＂,template.Strings(12)＆Dvbbs.GetCode())
End If
Else
TopArray = Split(Dvbbs.mainhtml(12),＂||＂)
If Clng(Dvbbs.SendMsgNum)＞0 Then
Dim UserMsg
UserMsg = TopArray(0)
If Dvbbs.Forum_Setting(10)=＂1＂ Then
UserMsg = UserMsg ＆ TopArray(1) ＆ TopArray(2)
Else
UserMsg = UserMsg ＆ TopArray(2)
End If
UserMsg = Replace(UserMsg,＂{＆＃36;smsid}＂,Dvbbs.sendmsgid)
UserMsg = Replace(UserMsg,＂{＆＃36;sender}＂,Dvbbs.sendmsguser)
UserMsg = Replace(UserMsg,＂{＆＃36;newmsgnum}＂,Dvbbs.sendmsgnum)
template.html(1) = Replace(template.html(1),＂{＆＃36;umsg}＂,UserMsg)
Else
template.html(1) = Replace(template.html(1),＂{＆＃36;umsg}＂,TopArray(3))
End If
If Dvbbs.Forum_ChanSetting(0)=＂1＂ Then template.html(1)=Replace(template.html(1),＂{＆＃36;sysmsg}＂,Replace(TempArray(0),＂{＆＃36;raypic}＂,Dvbbs.mainpic(14)))
template.html(1)=Replace(template.html(1),＂{＆＃36;sysmsg}＂,＂＂)
TempStr=Replace(TempStr,＂{＆＃36;myinfo}＂,template.html(1))
TempStr=Replace(TempStr,＂{＆＃36;UserID}＂,Dvbbs.Userid)
If IsNumeric(Dvbbs.MyUserInfo(12)) And IsNumeric(Dvbbs.MyUserInfo(13)) And Dvbbs.MyUserInfo(13)＜＞＂＂ And Dvbbs.MyUserInfo(12)＜＞＂＂ Then
If Clng(Dvbbs.MyUserInfo(13))=Clng(Dvbbs.Forum_Setting(39)) And Clng(Dvbbs.MyUserInfo(12))=Clng(Dvbbs.Forum_Setting(38)) Then
TempStr=Replace(TempStr,＂{＆＃36;userlogo}＂,＂＜img src=＂＆Dvbbs.MyUserInfo(11)＆＂＞＂)
Else
TempStr=Replace(TempStr,＂{＆＃36;userlogo}＂,＂＜img src=＂＆Dvbbs.MyUserInfo(11)＆＂ width=60 height=60＞＂)
End If
Else
TempStr=Replace(TempStr,＂{＆＃36;userlogo}＂,＂＜img src=images/logo_2.gif＞＂)
End If
End If
TempStr=Replace(TempStr,＂{＆＃36;bgcolor}＂,Dvbbs.mainsetting(12))
TempStr=Replace(TempStr,＂{＆＃36;alertcolor}＂,Dvbbs.mainsetting(1))
Response.Write TempStr
End Sub
各位老大 类似 sub语句应该在asp中怎么实现 然后他里面好多＂{＆＃36;alertcolor}＂这些东西是从哪里定义的呢
各位老大帮帮忙啊 呵呵 指点一下啊 哪里有这方面的资料也行 呵呵
这个是动网论坛里面的代码
在模版里定义的，
谢谢
不过我对这些东西一窍不通 以前写asp都是直接写的根本没有定义 老大能否多讲讲啊 呵呵 哪里有这种类型的资料呢
用搜索搜：asp 模板
http://www.caspnet.com.cn/blog/post/96.html
谢谢 呵呵 |
|
设为首页
加入收藏
联系我们
打印本文 
返回顶部 
加入收藏 
关闭窗口
