我想搞一个远端调用新闻的东东：在NewPost.asp的基础上加一个NewPost2.asp，不同域名的那种，要单开窗口。我试了路径老不对请问怎么改，谢了： <!--#include file="Lib/Initialize.asp"--> <% Dim intT,strTmp intT=Trim(Request("intT")) strTmp = ""
Sub loadNewPost() Dim s(2) Set oRs=NSB.oConn.Execute("SELECT TOP 10 ContentID,Title,Poster FROM "&NSB.TablePre&"_Content ORDER
BY ContentID DESC") If oRs.Bof And oRs.Eof Then s(2) = nsb.doPage(true,"NewPost_Empty.htm",true,"newpost_empty") Else s(0) = nsb.doPage(true,"NewPost_Tr.htm",true,"newpost_tr") Do Until oRs.Eof s(1) = Replace(s(0),"{$Poster}",oRs(2)) s(1) = Replace(s(1),"116",oRs(0)) s(1) = Replace(s(1),"{$Title}",oRs(1)) s(1) = Replace(s(1),"{$CutTitle}",NSB.CutStr(oRs(1),16)) s(2) = s(2) + s(1) oRs.MoveNext Loop End If strTmp = s(2) NSB.doCache "newpost",strTmp,1800 End Sub
If NSB.ChkCache("newpost") Then strTmp = NSB.GetCacheData("newpost")(1) Else Call loadNewPost() End If strTmp = Replace(strTmp,"{$Path}",NSB.iif(intT=CStr(1),"Content/","")) Response.Write "document.write ('"& strTmp &"');" Set NSB=nothing %>
在 线 人
本来今天（10月31日）的日期无法显示在日历上的，现在已经修复~~
Unknown browser....沙发，以前来了好多天，看到nblog似乎停止开发了，就没用了，后来来这里都是看你的文章...我的网站停了半年了，最近突然想写blog,找了一下，其他的太花俏，还是回来下nblog用，可是问题是我的空间不能用编辑器，郁闷ing...
Unknown browser哇哈哈，小子最近消失了一段时间了哇！
Unknown browser吼吼，下个星期宽带可以好了！
东流兄最近还好啊！
兄弟最近可好歪？偶们Q上聊～～
Unknown browser编辑器问题？奇怪的。。。
Unknown browser天天等着这小子回来，用定这个程序了！！！！
Unknown browser编辑器问题？奇怪的。。。
nowans 你能不能加我QQ286666579，晕，我搞了几天一个blog都没弄好，郁闷死了。 Unknown browser
我想搞一个远端调用新闻的东东：在NewPost.asp的基础上加一个NewPost2.asp，不同域名的那种，要单开窗口。我试了路径老不对请问怎么改，谢了：
Unknown browser<!--#include file="Lib/Initialize.asp"-->
<%
Dim intT,strTmp
intT=Trim(Request("intT"))
strTmp = ""
Sub loadNewPost()
Dim s(2)
Set oRs=NSB.oConn.Execute("SELECT TOP 10 ContentID,Title,Poster FROM "&NSB.TablePre&"_Content ORDER
BY ContentID DESC")
If oRs.Bof And oRs.Eof Then
s(2) = nsb.doPage(true,"NewPost_Empty.htm",true,"newpost_empty")
Else
s(0) = nsb.doPage(true,"NewPost_Tr.htm",true,"newpost_tr")
Do Until oRs.Eof
s(1) = Replace(s(0),"{$Poster}",oRs(2))
s(1) = Replace(s(1),"116",oRs(0))
s(1) = Replace(s(1),"{$Title}",oRs(1))
s(1) = Replace(s(1),"{$CutTitle}",NSB.CutStr(oRs(1),16))
s(2) = s(2) + s(1)
oRs.MoveNext
Loop
End If
strTmp = s(2)
NSB.doCache "newpost",strTmp,1800
End Sub
If NSB.ChkCache("newpost") Then
strTmp = NSB.GetCacheData("newpost")(1)
Else
Call loadNewPost()
End If
strTmp = Replace(strTmp,"{$Path}",NSB.iif(intT=CStr(1),"Content/",""))
Response.Write "document.write ('"& strTmp &"');"
Set NSB=nothing
%>
这里涉及/和./的区别了。
Unknown browser一个是网站根目录，一个是当前根目录
试试就知道，这个也是偶然在调试中发现的，我开始以为这2个是一样的呢，呵呵
我还好了，一切多好，就是一个人码字没有意思啊！
Unknown browser然后听Bugx说你最近家里有事就没有打扰你啊！
吼吼，宽带好了晚上可以找你侃侃了啊！
QQ上我隐身的，发了几次消息你多不在哇！
在苏州怎么样啊！
明年想转平台写Net了，一起玩啊！
这个BLOG不错,最喜欢文件名自定义;下个版本不知道能否控制简介的字数等参数
Unknown browserhttp://www.50shop.com/50shop/default.asp这个主机你注册可以试用，是不支持！
Unknown browser本地主机上后台编辑器都无法用，在这个可以试用的主机上测试也不能用。
Unknown browser支持出新版
Unknown browseri am back.
谢谢大家的关心和支持，我将尽快给出nblog的新版本。
我会坚持给大家写最好的web code
大家这段时间积累了什么问题或者建议，就在这里回复提出来撒~~！
眼高手底，就会说空话，不可信。 Unknown browser
什么时候能发布呢，真想快些用到呢
Unknown browser我以前也遇到过，是因为模版里面有注释的内容，把开头注释一个个去掉就可以了。
Unknown browser老大 快出新版本把！ 期待中！
Unknown browser还有 别忘记workos哦！
老大快点儿更新呀，等得好着急，等一个好东西真是难呀，不如现在把更新过的文件重新整理一下吧，给个下载。
Unknown browser老大快点儿更新呀，等得好着急，等一个好东西真是难呀，不如现在把更新过的文件重新整理一下吧，给个下载。
感动之恩，无以回报。这2天NOWA的事情多的很啊。看来整理是要段时间了。 Unknown browser