ASP中注册表错误的解决报告
在ASP项目中，当出现“注册表错误，无法写入”错误的时候，本人遇到的错误原因有两个，在这里跟大家共同探讨下。
第一个是，电脑的文件系统式NTFS格式的，这样的话数据库没有权限。
解决方法：在数据库所在文件夹上（或比它高的任意等级目录都可以）右击，属性，会弹出一对话框，如下图所示：
点击安全，如图：
查看你的“组或用户名称”中是否有Internet来宾账户，如果没有则点击添加，弹出“选择用户或组”对话框，如图：
点击“高级”选择要添加的组或用户，如图：
然后单击“立即查找”，对话框下方的空白处会列出组或用户的名称和所在的文件夹位置，如图：
在列出的组或用户中选择“IUSR_YKZ_...”用户，然后确定回去。当到安全对话框的时候你会看到，“组或用户名称”一栏中有了Internet来宾账户，选中它，在下面的Administration的权限中给读写权限，或是给更大的权限。
如果原本已经有了来宾账户的话，就试一下第二种解决方法：
在C:\windows下找到temp文件夹，右击属性，安全下“组或用户名称”框中找Eevryone，给它写入权限。
如果你的链接数据库的驱动是driver，这时候是不能用的，用provider驱动
set db=server.CreateObject("adodb.connection")
'dbs="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/database/eat.mdb")
dbs = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("/datab
相关文档：
<%
for i=1 to rs.recordCount '变量i从1循环到数据库中的全部记录数
if (i mod 1 =1) then '每个tr即每行显示1个记录,可根据需要自行修改, 将左边的1修改为2即显示两行。
response.write "<tr align='center'>"
end if
%>
此处为要循环的内容
<%if (i mod 1 = 0) then ......
添加、删除、修改使用
db.Execute(Sql)命令执行操作
╔----------------╗
☆ 数据记录筛选 ☆
╚----------------╝
注意：单双引号的用法可能有误(没有测式)
Sql = "Select
Distinct
字段名 from 数据表"
Distinct函数，查询数据库存表内不重复的记录
......
Dim FilePath,FileName
Set ObjFileStream = Server.CreateObject("ADODB.Stream")
ObjFileStream.Type = 1
ObjFileStream.Mode = 3
ObjFileStream.open
ObjFileStream.LoadfromFile FilePath&"\"&FileName&".doc"
ObjFileStream.Position = 0
response.binarywrite ......
代码：
<%@ LANGUAGE=VBScript CodePage=65001%>
<%
private function decodeBase64(base64)
dim DM, EL
Set DM = CreateObject("Microsoft.XMLDOM")
Set EL = DM.createElement("tmp")
EL.DataType = "bin.base64"
& ......
