等你的心

所有代码下载均为商业VIP源码,当然大家都知道即使是商业VIP的源码只要不是自己要用,也没办法保证100%完整,如有测试不完整的,上报管理员加60经验,调试补充缺少文件视难易程度奖励80-200经验,仅供学习使用,请勿用于商业用途.
演示地址:www.tourhuangshan.com 这个漂亮^_^..完整

本帖隐藏的内容需要回复才可以浏览

解压密码:bbs.zzchn.com

深情

数据库连接错误,应改为
<%
Dim MM_conn_STRING
MM_conn_STRING = "Driver={Microsoft Access Driver

(*.mdb)};DBQ="&Server.MapPath("mydb\#u100.asp")
%>

龍四爺

Connections/conn.asp写法不大好
我是这样修改的：
代码<%
dim conn
dim MM_conn_STRING
dim db
db="/mydb/#u100.asp"     '数据库文件的位置
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
MM_conn_STRING="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open MM_conn_STRING
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
我用的是JET连接，这样低版本的也可以打开数据库。
数据库用的是绝对路径。一般放根目录下安装和调试就可以了。
旅行网一般就是放根目录的。
我在里面加了个容错语句on error resume next
另外根据大家的喜好。自己再加一个防注入的也可以。因为这个代码没有防注入。
由于这个防注入自己有自己的过滤和对恶意输入有选择处理的方式。这里不再赘述
但是推荐使用neeao的BUG小组的。这个貌似不错的。

[ 本帖最后由 龍四爺 于 2007-7-20 11:07 编辑 ]

拽拽

拽拽测试结果:
前台漂亮基本无错。
后台缺少两个部分.一个是天气预报部分的管理.还有一个是酒店不能进行修改.
我在这里先把"酒店不能进行修改"的错误和大家一起分析下.

第一步:正常登陆后台.

点 酒店管理

点修改之后会出现

找到/guan/hotelup.asp
根据IIS提供的错误提示.第二行为"&lt;!--#include file="../Connections/travel.asp" --&gt;"
但是发现在上级Connections目录下并没有travel.asp,千万不要慌.先去找找是不是在其他目录下存在类似的.
结果,拽拽翻了翻,没有.放弃吗?
不.继续看.
首先屏蔽掉这句"&lt;!--#include file="../Connections/travel.asp" --&gt;"
然后看执行这个页面的结果如下图:



从上面的图可以看到.去掉这句"&lt;!--#include file="../Connections/travel.asp" --&gt;"是可以正常运行的.
并能从数据库读出数据.证明运气不是太糟糕.点"更新数据"的时候却出现问题了.
如下图:



打开编辑器.找到第111行.
第111行的代码为: MM_editCmd.ActiveConnection = MM_editConnection
貌似没什么问题.再看第110行:Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd 是新创建的一个ADODB.Command对象.
但是再返过来看第111行,MM_editCmd.ActiveConnection = MM_editConnection,也就是说将MM_editConnection的值赋值给MM_editCmd.ActiveConnection.跟踪MM_editConnection,发现在第46行MM_editConnection = MM_travel_STRING
出现了个MM_travel_STRING赋值给了MM_editConnection ,查找MM_travel_STRING.仍定位在46行.这说明MM_travel_STRING是在缺少的那个"&lt;!--#include file="../Connections/travel.asp" --&gt;"里面就被定义和赋值好了的.
晕~咋办?
别灰心.继续找相类似的语句.也许就能发现一个解决的办法.
134行:    Set Recordset1 = Server.CreateObject("ADODB.Recordset")
135行:    Recordset1.ActiveConnection = MM_conn_STRING
对比下
110行:    Set MM_editCmd = Server.CreateObject("ADODB.Command")
111行:    MM_editCmd.ActiveConnection = MM_editConnection

惊人的类似!135行:    Recordset1.ActiveConnection = MM_conn_STRING, MM_conn_STRING 是Connections/conn.asp中我们定义的变量.那么,Connections/travel.asp也有可能是个连接数据库的文件,而MM_editConnection可能就是在travel.asp中定义的一个变量.我们仿照conn.asp写一个travel.asp
如下:
&lt;%
Dim MM_travel_STRING
MM_travel_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=你自己的数据库的路径"
%&gt;

保存成travel.asp.
恢复/guan/hotelup.asp中我们刚才去掉的那个"&lt;!--#include file="../Connections/travel.asp" --&gt;".
再看下运行结果,如下图:


Success!哈哈




写在最后:
拽拽不是计算机专业的学生.拽拽是学物理的.呵呵.修补这个程序的时候用了很多的笨方法.
此文算是抛砖引玉,希望更多的会员努力认真的去调试和修补我们拿到的不完整的程序.
遇到不完整的.不要骂,不要急.静下心来,慢慢修改.
昨天等你的心说,搞不出来就放一放再搞.的确是这样.有时搞不出来急不得.
我昨晚没想出来.今天下午才弄好.心情真舒畅!

请大家继续支持站长中国.支持源码交流!一起加油!

精品软件

谢谢你啊，分享了！

wrb2002abs

看卡纳！！！！！！！！！！！！！！！！

ernst520

好像在那见过,,,,,,,,,,,,,,,,,,,,,,

cs99619

谢谢分享~

nihaook

呵呵 漂亮   斑竹们都挺热心的

ppyace

不管下不下
　　　我是一定要顶的
可以载入站长建站历史了