主题:  各位高手,版主帮忙看看asp 留言板连接不上数据库那,

xbx

职务:普通成员
等级:1
金币:13.0
发贴:209
#12006/1/12 22:35:42
这是原码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/liuyan.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset"
Recordset1.ActiveConnection = MM_liuyan_STRING
Recordset1.Source = "SELECT fName, fContent, fE-Mail, ftime, freplycontent FROM tGuestbook ORDER BY ftime DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>我的留言薄</title>
<link href="style/xfcss01.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
<td><div align="center" class="biao">我的留言薄</div></td>
<td><div align="center" class="xinwen">管理留言</div></td>
</tr>
</table>
<form name="form1" method="post" action="">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="xinwen">姓名</td>
<td><input type="text" name="textfield"></td>
</tr>
<tr class="xinwen">
<td>E-Mail</td>
<td><input type="text" name="textfield"></td>
</tr>
</table></td>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="xinwen">留言</td>
<td><textarea name="textfield" rows="5"></textarea></td>
</tr>
</table></td>
</tr>
<tr>
<td><input type="submit" name="Submit" value="提交"></td>
<td><input type="reset" name="Submit" value="重置"></td>
</tr>
</table>
</form>
<hr>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr class="xinwen">
<td>姓名</td>
<td>E-mail</td>
<td>发表时间</td>
</tr>
<tr>
<td colspan="3" class="xinwen">[内容]<br></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><p class="xinwen">[[回复内容]]<br>
</p>
<p> </p></td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

帮忙看看,先谢谢了
图片如下:



yiliaocheng

职务:普通成员
等级:2
金币:2.0
发贴:631
#22006/1/13 11:30:12
你连数据源DSN都没连接好。
先在ODBC数据源(位置是:控制面板--管理工具--ODBC数据源)添加系统DSN,然后再DW点击添加数据源,如果测试成功就好了。



xbx

职务:普通成员
等级:1
金币:13.0
发贴:209
#32006/1/14 15:00:14
我连接了,
图片如下:



yiliaocheng

职务:普通成员
等级:2
金币:2.0
发贴:631
#42006/1/14 16:01:57
你把连接数据库的文件liuyan.asp是不是放在Connections里面,而把留言显示页直接放在主目录下?



xbx

职务:普通成员
等级:1
金币:13.0
发贴:209
#52006/1/14 20:46:29
是的,老大
图片如下:



xbx

职务:普通成员
等级:1
金币:13.0
发贴:209
#62006/1/14 21:03:32

图片如下:



三仙半

职务:普通成员
等级:1
金币:0.0
发贴:241
#72006/1/23 12:48:01
你用的是DM实现ASP,绕了好大一个弯,我建议你把
<!--#include file="Connections/liuyan.asp" -->这句替换为如下语句试一下
<%
Set connYJ = Server.CreateObject("ADODB.Connection")

    connYJ.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/yj.mdb")
    connYJ.Open
%>
注意:把“database/yj.mdb”替换为你的数据库相对WEB根目录的相对路径
把“connYJ”替换为“MM_liuyan_STRING ”
希望对你有帮助!


闭起眼睛看人生

xbx

职务:普通成员
等级:1
金币:13.0
发贴:209
#82006/1/24 23:46:31
我的网费没了,今天才好,非常感谢你的帮助,



xbx

职务:普通成员
等级:1
金币:13.0
发贴:209
#92006/1/24 23:50:47
这个能帮忙看看吗
图片如下:

图片如下:



蓝鲸

职务:版主
等级:5
金币:42.1
发贴:2614
#102006/1/24 23:55:29
可能不支持ServerMap,改用绝对路径(c:\asptest\date\db.mdb)


非常大鱼

xbx

职务:普通成员
等级:1
金币:13.0
发贴:209
#112006/1/25 0:14:30
谢谢你老大,我试试看



三仙半

职务:普通成员
等级:1
金币:0.0
发贴:241
#122006/2/2 12:25:16
我不觉得是测试服务器不支持sever.mapPath(),我写了一个简单文件,内容如下:
<%
Set connYJ = Server.CreateObject("ADODB.Connection")
connYJ.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("photo/shujuku/db1.mdb")
connYJ.Open

set rsYJ = Server.CreateObject("ADODB.recordSet")
    strSQL = "select * from 管理"
    rsYJ.open strSQL,connYJ,1,3,1

if not rsYJ.eof then
    j=1
    do until rsYJ.eof
        response.write "第"&j&"条记录是:<br>"
        for i = 0 to rsYJ.fields.count-1
            response.write rsYJ.fields(i)&"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
        next
        response.write "<br><br><hr><br><br>"
        rsYJ.moveNext
        j=j+1
    loop
else
    response.write "这个表中没有数据!!"
end if
%>
你把上述内容拷贝到一个新文件中,保存为test.asp,把其中的“管理”二字替换成你的数据库中的任何一个表的名字,然后测试,把结果告诉我,我再帮你分析,好吗?


闭起眼睛看人生

蓝鲸

职务:版主
等级:5
金币:42.1
发贴:2614
#132006/2/2 15:50:31
这是手工代码,用DW可能连接不上。
学习ASP建议不要用DW,用手工代码输入更灵活。


非常大鱼

xbx

职务:普通成员
等级:1
金币:13.0
发贴:209
#142006/2/3 11:05:05
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>验证客户表单</title>
<link href="style/xfcss01.css" rel="stylesheet" type="text/css">
<script language="javascript" type="text/javascript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?")>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
if (val) { nm=val.name; if ((val=val.value)!="" {
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
} else if (test!='R') { num = parseFloat(val);
if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
} if (errors) alert('The following error(s) occurred:\n'+errors);
document.MM_returnvalue = (errors == '');
}
//-->
</script>
<link href="style/liuyanban.css" rel="stylesheet" type="text/css">
<link href="style/xbx1.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="650" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center" class="xinwen">验证客户表单</div></td>
</tr>
<tr>
<td><form name="form1" method="get" action="index.htm">
<table width="650" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="right">姓名</div></td>
<td><input name="name" type="text" id="name" onChange="MM_validateForm('name','','R');return document.MM_returnvalue" size="20" maxlength="18">
*</td>
</tr>
<tr>
<td><div align="right">密码</div></td>
<td><input name="password" type="password" id="password" onChange="MM_validateForm('password','','R');return document.MM_returnvalue" size="8">
*</td>
</tr>
<tr>
<td><div align="right">出生日期</div></td>
<td><input name="textfield" type="text" onChange="MM_validateForm('textfield','','RinRange1900:2010');return document.MM_returnvalue" size="8" maxlength="6">

<select name="Month" size="1" id="Month">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
</select>

<select name="select" size="1">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="28">27</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>
日*</td>
</tr>
<tr>
<td><div align="right">性别</div></td>
<td><input type="radio" name="sex" value="male">

<input name="sex" type="radio" value="female" checked>
女</td>
</tr>
<tr>
<td><div align="right">兴趣爱好</div></td>
<td><input name="interest" type="checkbox" id="interest" value="computer">
电影
<input name="interest" type="checkbox" id="interest" value="miuc">
音乐
<input name="interest" type="checkbox" id="interest" value="diannao">
电脑</td>
</tr>
<tr>
<td>&nbsp;</td>
<td><input name="interest" type="checkbox" id="interest" value="lvyou">
旅游
<input name="interest" type="checkbox" id="interest" value="jiyou">
集邮</td>
</tr>
<tr>
<td><input name="Submit" type="submit" onClick="MM_validateForm('name','','R','textfield','','RinRange1:2003','password','','RisNum');return document.MM_returnvalue" value="提交"></td>
<td><input name="Submit" type="reset" value="重置"></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>

图片如下:



三仙半

职务:普通成员
等级:1
金币:0.0
发贴:241
#152006/2/4 13:16:15
你把函数MM_validateForm() 中的required改写成中文,这里就显示中文。当然,The following error(s) occurred:也应该改写成中文。其实这个函数中还有些地方应改写成中文,我没仔细看,你自己去分析吧!另外,上个问题用我的test.asp后出现什么结果了?


闭起眼睛看人生