'将xml数据发送到客户端
Dim dom
set dom=Server.CreateObject("Microsoft.XMLDom")
dom.load (Server.MapPath("c:\\file.xml"))
Response.contentType="text/xml"
Response.write dom.xml
Dim dom
set dom=Server.CreateObject("Microsoft.XMLDom")
dom.load (Server.MapPath("c:\\file.xml"))
Response.contentType="text/xml"
Response.write dom.xml
Debugging xhtml this afternoon, scoring 80 for himself, fast enough, as a poor foundation, I would like refueling.
先收藏组mysql 4.0的几组语句
首页的最新主题
列出大类
列出大类下面的文章
热门话题
每天晚上写一点，把前台的文件给写完了，最早把link.php给写完了，看了一下smarty真好，php快，但是php的smarty更快，可惜，我不会，但我先把php给写完先！
smarty，呵呵，你简单的几招我还是会接的！明天晚上，开始改后台！好了，先到这里！
首页的最新主题
SELECT ruby.id,ruby.title,ruby.time,ruby.menu,cat.catname
FROM ruby,cat
WHERE ruby.view=1 AND ruby.menu=cat.id
ORDER BY id DESC LIMIT 0,10
FROM ruby,cat
WHERE ruby.view=1 AND ruby.menu=cat.id
ORDER BY id DESC LIMIT 0,10
列出大类
SELECT id,catname,content FROM cat where pcatid=0 AND view=1 ORDER BY list ASC
列出大类下面的文章
SELECT ruby.id,title,time FROM ruby
LEFT JOIN cat ON ruby.menu=cat.id
WHERE cat.pcatid=$catid ORDER BY ruby.id desc LIMIT 0,12
LEFT JOIN cat ON ruby.menu=cat.id
WHERE cat.pcatid=$catid ORDER BY ruby.id desc LIMIT 0,12
热门话题
SELECT ruby.id,title FROM ruby
LEFT JOIN cat ON ruby.menu=cat.id
WHERE cat.pcatid=$sid ORDER BY ruby.countruby DESC LIMIT 0,10
LEFT JOIN cat ON ruby.menu=cat.id
WHERE cat.pcatid=$sid ORDER BY ruby.countruby DESC LIMIT 0,10
每天晚上写一点，把前台的文件给写完了，最早把link.php给写完了，看了一下smarty真好，php快，但是php的smarty更快，可惜，我不会，但我先把php给写完先！
smarty，呵呵，你简单的几招我还是会接的！明天晚上，开始改后台！好了，先到这里！
或许，前面的时间与时机，都给了自己一个好机会！可以很轻松的修改这个代码！
星期六的晚上，几个老同学过来！我们吃了晚饭！呵呵，这个是小学后，招待这么多同学！感觉真好！
最近几天，去看了好多的cms，发现又把自己的头脑弄得很乱！也许我要一天的时间来研究这些代码！
然后在定一个好的方向，现在的这样，自己就像在打游击战一样，一些招式都使不出！整个人乱乱的！
上一次在群里见到“武林小子”发现他的进步好大，突然间自己觉得像的布气球被人放气一样，高空中漂落下来
充满了失落与不满!对自己的这个效率,说no!
也许转眼10月份将过,自己什么东西又没做,什么东西又没有学!时间又会悄悄的走掉!
去看一看,一年的php+mysql开发经验是什么!QQ没开!也是希望自己废话能少讲一点!
这么低效率的进度,不满意!
重写!
星期六的晚上，几个老同学过来！我们吃了晚饭！呵呵，这个是小学后，招待这么多同学！感觉真好！
最近几天，去看了好多的cms，发现又把自己的头脑弄得很乱！也许我要一天的时间来研究这些代码！
然后在定一个好的方向，现在的这样，自己就像在打游击战一样，一些招式都使不出！整个人乱乱的！
上一次在群里见到“武林小子”发现他的进步好大，突然间自己觉得像的布气球被人放气一样，高空中漂落下来
充满了失落与不满!对自己的这个效率,说no!
也许转眼10月份将过,自己什么东西又没做,什么东西又没有学!时间又会悄悄的走掉!
去看一看,一年的php+mysql开发经验是什么!QQ没开!也是希望自己废话能少讲一点!
这么低效率的进度,不满意!
重写!
Quotation
Fatal error: Call to undefined function: templates_dir() in D:\webhost\wpsni\phpcuku\sm_index.php on line 5
REQUIREMENTS:
Smarty requires PHP 4.0.6 or later.
See the on-line documentation for complete install instructions.
Smarty requires PHP 4.0.6 or later.
See the on-line documentation for complete install instructions.
<script language="javascript">
function IsNumber(string)
{
var integer;
integer = parseInt(string);
if (isNaN(integer))
{
return false;
}
else
{
if (integer.toString().length==string.length)
{
if(integer<0) return false;
else return true;
}
else
{
return false;
}
}
}
</script>
function IsNumber(string)
{
var integer;
integer = parseInt(string);
if (isNaN(integer))
{
return false;
}
else
{
if (integer.toString().length==string.length)
{
if(integer<0) return false;
else return true;
}
else
{
return false;
}
}
}
</script>
营养学家提出，季节进入秋天，要多喝蜜，少吃姜。这是什么道理呢？
因为，秋天的主要气候特点是干燥，空气中缺少水分，人体同样缺少水分。为了适应秋天这种干燥的特点，那么，我们人体就必须经常给自己"补液"，以缓解干燥气候对于我们人体的伤害。多喝水也就成了我们对付"秋燥"的一种必要手段。但是，如果我们光喝白开水，并不能完全抵御秋燥带给我们的负面效应。水份进入人体后，很快就会被蒸发或排泄出体外，所以，我国古代医学家就替我们提供了一条对付秋燥的最佳饮食良方："朝朝盐水，晚晚蜜汤。"换言之，喝白开水，水易流失，若在白开水中加入少许食盐，情况就大不同了，那就不那么容易流失了。这种方法，与我们现代医学中的给病号补充生理盐水是一个道理。白天喝点盐水，晚上则喝点蜜水，这既是补充人体水分的好方法，又是秋季养生、抗拒衰老的饮食良方，同时还可以防止因秋燥而引起的便秘，真是一举三得。
因为，秋天的主要气候特点是干燥，空气中缺少水分，人体同样缺少水分。为了适应秋天这种干燥的特点，那么，我们人体就必须经常给自己"补液"，以缓解干燥气候对于我们人体的伤害。多喝水也就成了我们对付"秋燥"的一种必要手段。但是，如果我们光喝白开水，并不能完全抵御秋燥带给我们的负面效应。水份进入人体后，很快就会被蒸发或排泄出体外，所以，我国古代医学家就替我们提供了一条对付秋燥的最佳饮食良方："朝朝盐水，晚晚蜜汤。"换言之，喝白开水，水易流失，若在白开水中加入少许食盐，情况就大不同了，那就不那么容易流失了。这种方法，与我们现代医学中的给病号补充生理盐水是一个道理。白天喝点盐水，晚上则喝点蜜水，这既是补充人体水分的好方法，又是秋季养生、抗拒衰老的饮食良方，同时还可以防止因秋燥而引起的便秘，真是一举三得。
因为fso对utf-8的支持不是很好，所以改成这个
这个生成静太页也很快
这个生成静太页也很快
'创建要生成的静态页
With objStream
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText=strOut
.SaveToFile server.mappath(FilePath),2
.Close
End With
'Set htmlwrite=fso.CreateTextFile(Server.MapPath(FilePath),true,true)
'这个支持utf-8，今天算是学到了！
'htmlwrite.WriteLine strOut
' htmlwrite.close
'set htmlwrite=Nothing
With objStream
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText=strOut
.SaveToFile server.mappath(FilePath),2
.Close
End With
'Set htmlwrite=fso.CreateTextFile(Server.MapPath(FilePath),true,true)
'这个支持utf-8，今天算是学到了！
'htmlwrite.WriteLine strOut
' htmlwrite.close
'set htmlwrite=Nothing
