转pjblog3升级之后碰到的向导相册问题修改集合

<p> 下面是我的修改过程，希望对想使用该程序的网友有所帮助：<br /> 错误一： Microsoft JET Database Engine 错误 '80040e37'<br /> Microsoft Jet 数据库引擎找不到输入表或查询 'blog_member'。 <br /> 确定它是否存在，以及它的名称的拼写是否正确。 <br /> /pjblog2/Plugins/album/album.asp，行 755 <br /> 原因：出现这个错误是因为文件　　albumaction.asp　　　第319行<br /> set checkMem=Conn.ExeCute("select top 1 mem_id from blog_Member where mem_Name='"&username&"'")<br /> 相册有评论功能，这个是在判断当前用户是否已经发表过评论了。而在data.asp库中找不到表blog_Member ，所以就出错了。<br /> 解决办法：将pjblog库中的表blog_Member 导出到data.asp中就好了。</p> <p>错误二：Microsoft VBscript runtime 错误 '800a01f4' Variable is undefined:'cclassDB' <br /> /pjblog2/Plugins/album/album.asp，行 779 <br /> 原因：是定义出错了。<br /> 方法：找到album.asp第779行，780行<br /> 将 cclassDB.close<br /> set cclassDB=nothing<br /> 改为 aclassDB.close<br /> set aclassDB=nothing</p> <p>错误三：Microsoft VBscript runtime 错误 '800a01a8' Object required: '' <br /> /pjblog2/Plugins/album/album.asp，行 424 <br /> 原因：如果开了评论功能，在评论时或在浏览评论时网页底部会出错。<br /> 方法：修改博客根目录下的conn.asp文件<br /> 在 call createConnection(AccessFile)<br /> 下面加上 on error resume next<br /> 错误四：ADODB.Recordset '800a0cc1'　在对应所需名称或序数的集合中，未找到项目。/pjblog2/Plugins/album/album.asp行 223<br /> 原因：这个错误在对图片进行修改时出现，问题是找不到对应的分类。在album.asp的第223行，albumeditDB("album_classID")　变量没有打开，无法匹配。<br /> 方法：<br /> 将 <option value="<% =(aclass2.Fields.Item("album_classID").Value) %>" <%if aclass2.Fields.Item("album_classID").Value=albumeditDB("album_classID") then%><%end if%>><%=(aclass2.Fields.Item("album_className").Value) %></option><br /> 改成 <option value="<% =(aclass2.Fields.Item("album_classID").Value) %>"><% =(aclass2.Fields.Item("album_className").Value) %></option><br /> 另外在实际使用中，还做了如下修改：<br /> a、将首页每排2组，修改为每排3组，在album.asp大约745行，If (haa mod 2)=0 Then 修改为If (haa mod 3)=0 Then 。<br /> b、浏览分组照片时，上方的相片分类是一个个显示的，将其修改为下拉菜单显示，并且自动将当前分类设为默认选择。修改位置在430行附近。由于没有原来的代码，无法提供详细修改方法。<br /> 在该位置附近合适区域添加：<form name=from1><select onchange="window.location=this.options[selectedIndex].value;"><br /> 然后在这段代码后面<br /> dim album_class<br /> Set album_class=albumConn.execute("select * from blog_album_class order by album_classID asc")<br /> do until album_class.eof <br /> %><br /> 添加<br /> <%If CInt(classID)=album_class("album_classID") Then%><br /> 　<option value="LoadMod.asp?plugins=album&class=<%=album_class("album_classID")%>" selected=”selected“>├<%=album_class("album_className")%></option><br /> <%Else%><br /> <option value="LoadMod.asp?plugins=album&class=<%=album_class("album_classID")%>">├<%=album_class("album_className")%></option> <br /> <%End If%><br /> 最后记得添加上</select></form>来结束表单。<br /> 另外还修改了评论时显示大相片，编辑相片时将相片缩略图地址和原片地址都显示出来供修改等功能。<br />  </p>

文章来自: 转自
引用通告: 查看所有引用 | 我要引用此文章
Tags: 向导相册向导相册 80040e3780040e37 blog_memberblog_member albumalbum
相关日志: