<![CDATA[Windy's Blog]]> http://www.0375521.cn/blog/ zh-cn PBlog2 v2.4 Windy's Blog http://www.0375521.cn/blog/images/logos.gif http://www.0375521.cn/blog/ Windy's Blog http://www.0375521.cn/blog/article.asp?id=591 <![CDATA[asp FSO生成XML乱码解决]]> wyc668@163.com(wyc) Wed,12 May 2010 10:43:47 +0800 http://www.0375521.cn/blog/default.asp?id=591
Set f = fso.CreateTextFile(Server.MapPath(".")&"\china-thinking.htm",true)一句代码中CreateTextFile就是FileSystem对象的其中一个属性，表示新建文件他后面是有参数的

CreateTextFile(FileName[,Overwrite[,Unicode]]) 其中中括号〔〕括起来的部分表示可选参数，它是有缺省值的，

FileName表示新建文件的名字，

OverWrite表示如果新建文件存在此方法是否覆盖已存在的文件，它的值为true或者false，缺省值为False表示不覆盖。

Unicode的值也是true或者false，他的缺省值也是False表示创建的字符集为ASCII,否则创建的字符集则为Unicode。

附上今天修改的asp生成xml二级菜单代码：
复制内容到剪贴板程序代码 程序代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>生成xml</title>
</head>
<body>
<%


set res=server.createobject("adodb.recordset")
strsql="select * from product_big"
res.open strsql,conn,1,1



'生成xml
xmlfile=server.mappath("../dwnTree.xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True,True)
MyFile.WriteLine("<?xml version=""1.0"" encoding=""utf-8""?>")
MyFile.WriteLine("<item>")
do while not res.eof  
    MyFile.WriteLine("<item caption="""&res("bigclassname")&""" unfolded="""">")
    
set rs=server.CreateObject("adodb.recordset")
    sql="select * from product_small where bigclassname='"&res("bigclassname")&"' "
    rs.open sql,conn,1,1
    do while not rs.eof
    
    
set rsd=server.CreateObject("adodb.recordset")
    sqll="select top 1 id from Products where smallclassname='"&rs("SmallClassName")&"' order by id asc "
    rsd.open sqll,conn,1,1
    if not(rs.bof and rs.eof) then
    MyFile.WriteLine("<item caption="""&rs("smallclassname")&"""  url=""products_show.asp?id="&rsd("id")&""" target=""_parent""></item>")
    else
    
    MyFile.WriteLine("<item caption="""&rs("smallclassname")&"""  url=""products_show.asp?id="&rs("id")&""" target=""_parent""></item>")
end if
rsd.close
Set rsd = Nothing
    
    rs.movenext
        loop
    
rs.close
Set rs = Nothing

MyFile.WriteLine("</item>")
res.movenext
loop
res.close
Set res = Nothing
conn.close
set conn=Nothing
MyFile.WriteLine("</item>")
MyFile.Close
%>
</body>
</html>

]]> http://www.0375521.cn/blog/article.asp?id=590 <![CDATA[asp从数据库取资料随机排序]]> wyc668@163.com(wyc) Tue,11 May 2010 16:09:36 +0800 http://www.0375521.cn/blog/default.asp?id=590
一般公司网站不像门户网站那样更新那么快，有那么多的资料，比如产品。有些公司仅仅只是几款产品，做一个网站，怎么去SEO呢，仅仅是去做友链吗？SEO可是对网站的更新频率很看重的。

还好我们公司产品相对于他们来说多点，但关键词不好定位，因为都是给客户代工的，范围广。

新闻可以找资料经常更新，产品虽多，但很多客户都不愿让我们放到网站上去。怎么办？ 怎么实现经常更新呢？

上百度搜asp随机取资料，太麻烦。无意看到了，取资料随机排序。

公司站首页推荐了9个产品，上下滚动，一次滚动三个，显示6个。 我后台推荐了一些，大概有20个吧，然后取资料时取推荐的，并是前9个，条件是随机排序，这样就生成我要的结果。

然后每次去后台更新生成网站首页的时候，推荐产品都不一样，达到了也是经常更新的效果，虽然这样欺骗了搜索引擎，应该不会被判作弊吧
复制内容到剪贴板程序代码 程序代码
Randomize()    
intRandomNumber=Int(1000*Rnd)+1                  
sql="Select * FROM Table orDER BY Rnd("&-1*(intRandomNumber)"*id)"

]]> http://www.0375521.cn/blog/article.asp?id=587 <![CDATA[vmware 不能加载USB，删除卸载USB过滤器驱动]]> wyc668@163.com(wyc) Thu,11 Mar 2010 11:33:45 +0800 http://www.0375521.cn/blog/default.asp?id=587
    谷歌、百度了许久，终于查到点头绪，说是amd主板有个驱动，叫usb过滤器，这个和虚拟机冲突。

    可是在设备管理器里找了许久，也下了两个卸载驱动的软件，怎么也找不到usb过滤器或有usb filter的字眼，无果。

    今天继续找，突然想起去看看自己的驱动安装文件，找到了一个芯片组驱动程序 (USB)的文件夹，运行来看，果然是AMD USB Audio Drive Filter，直接卸载，重启电脑，搞定！

    虚拟机终于找到了USB设备。]]> http://www.0375521.cn/blog/article.asp?id=586 <![CDATA[windows 2008 IIS 7.5 配置备忘]]> wyc668@163.com(wyc) Fri,20 Nov 2009 11:10:40 +0800 http://www.0375521.cn/blog/default.asp?id=586
常用的方法做个备忘：

一、新建站台
需要添加权限，首先在站台的根目录文件夹添加iis用户的权限，然后添加站台 -  物理路径选择根目录 - 传递身份验证 - 连接为 - 特定用户 - 设置 用户名为刚才添加权限的用户

二、asp设置
1、添加默认首页

2、在左边网站列表中选择要设置的站台，双击 asp ，调试属性 - 将错误发送到浏览器 - true -

3、行为 - 显示父路径 - true

右边应用

三、adodb.connection 错误 '800a0e7a'

产生的原因是：

在64位系统中，IIS7应用程序池默认没有启用32位程序，也就是说如果你使用的是64位操作系统，而没有64位的Jet 4.0驱动程序，那么就要在IIS7中启用32位程序。



回顾下过程：

首先，网站代码肯定没有问题，在虚拟主机和 Windows 2003 本地服务器运行一直很好。我是直接把默认的站点主目录给指向这个网站来测试环境，打开浏览器访问，出现错误‘HTTP 错误 403.14 - Forbidden’，提示没有默认主页。

在‘默认文档’中添加‘index.asp’，再访问，出现500错误。

第一反应是没有启用父目录，先看看再说，IIS管理器 - 双击ASP打开属性 - 在行为设置中将‘启用父路径’设置为True。

刷新浏览，错误依旧。

打开控制面板 - Internet选项 - 高级 - 设置去掉勾选‘显示友好 http 错误信息’，确定，刷新网站访问，出现错误：

An error occurred on the server when processing the URL. Please contact the system administrator.

If you are the system administrator please click here to find out more about this error.

解决：
IIS管理器 - 双击ASP打开属性 - 在调试属性中设置‘将错误发送到浏览器’为True，下面还可以设置默认的错误提示信息。

刷新浏览器，出现错误提示：

ADODB.Connection 错误 '800a0e7a'

未找到提供程序。该程序可能未正确安装。

/conn.asp，行 5

行 5 就是conn.open语句

IIS信息管理器 - ‘查看应用程序池’ - 右边操作中选择‘设置应用程序池默认设置..’，在‘常规’中设置‘启用 32 位程序’为True。


OK，问题解决，可以完美运行asp程序

如果再有什么问题，接着续
]]> http://www.0375521.cn/blog/article.asp?id=562 <![CDATA[学校行政部网站效果图]]> wyc668@163.com(wyc) Thu,16 Jul 2009 08:46:03 +0800 http://www.0375521.cn/blog/default.asp?id=562
]]> http://www.0375521.cn/blog/article.asp?id=561 <![CDATA[学校网络中心效果图]]> wyc668@163.com(wyc) Thu,16 Jul 2009 08:45:17 +0800 http://www.0375521.cn/blog/default.asp?id=561



]]> http://www.0375521.cn/blog/article.asp?id=560 <![CDATA[学校信息中心效果图]]> wyc668@163.com(wyc) Thu,16 Jul 2009 08:44:19 +0800 http://www.0375521.cn/blog/default.asp?id=560




]]> http://www.0375521.cn/blog/article.asp?id=559 <![CDATA[一个早教的网站]]> wyc668@163.com(wyc) Wed,15 Jul 2009 18:12:58 +0800 http://www.0375521.cn/blog/default.asp?id=559







]]> http://www.0375521.cn/blog/article.asp?id=558 <![CDATA[一个学院的网站效果图]]> wyc668@163.com(wyc) Wed,15 Jul 2009 14:07:04 +0800 http://www.0375521.cn/blog/default.asp?id=558












]]> http://www.0375521.cn/blog/article.asp?id=557 <![CDATA[一个培训的网站]]> wyc668@163.com(wyc) Wed,15 Jul 2009 13:50:26 +0800 http://www.0375521.cn/blog/default.asp?id=557




演示： www.isoguanli.cn]]>