搜索
编程论坛 → WEB开发 → 『 ASP技术论坛 』 → 求助：看看数据库联接那里错了？
标题：求助：看看数据库联接那里错了？
只看楼主
happyhu
Rank: 1
等　级：新手上路
帖　子：292
专家分：0
注　册：2005-7-12
楼主
 问题点数：0 回复次数：7 
求助：看看数据库联接那里错了？
<SCRIPT LANGUAGE="vbscript">
function addfile()
dim str
str="<table WIDTH='750' BORDER='1' ALIGN='center' CELLPADDING='5' CELLSPACING='0' BORDERCOLOR='#111111' STYLE='BORDER-COLLAPSE: collapse' height='70'><TR> <td colspan='6'> <DIV ALIGN='center'><font color='#0000ff' size='4'>汽车发货</font></DIV></td></TR>"
if not IsNumeric (window.form1.filenum.value) then window.form1.filenum.value =1
for i=1 to window.form1.filenum.value
str=str&"<tr bgcolor=#eeeeee><td align=right><div align='center'>品　　名</div></td><td colspan='2'><select name='hwname' size='1' ><option value='1'>1</option><option value='2'>2</option></select></td><td><div align='center'>件　　数</div></td><td colspan='2'><input name='jsh' type='text' id='jsh'></td></tr>"
str=str&"<tr bgcolor=#eeeeee><td align=right><div align='center'>重量(吨)</div></td><td colspan='2'><input name='weight' type='text' id='weight'></td><td><div align='center'>批　　号</div></td><td colspan='2'><input name='ph' type='text' id='ph'></td></tr>"
str=str&"<tr bgcolor=#eeeeee><td align=right><div align='center'>包　　型</div></td><td colspan='2'><select name='bx' id='bx'><option value=''>请选择</option> <option value='大包'>大包</option><option value='小包'>小包</option></select></td><td><div align='center'>质量标识</div></td><td colspan='2'><input name='zhlbzh' type='text' id='zhlbzh'></td></tr>"
str=str&"<tr bgcolor=#eeeeee><td align=right><div align='center'>产　　地</div></td><td colspan='2'><select name='chd' size='1' ><option value=''>请选择</option>"
<%set rs = server.CreateObject ("Adodb.recordset")
sql = "select * from [chandi] order by chdname"
rs.open sql,conn,1,1
do while not rs.EOF%>
str=str&"<option value="&<%=rs("chdname")%>&">"&<%=rs("chdname")%>&"</option>"
<%rs.movenext
loop
rs.close%>
str=str&"</select></td><td><div align='center'>加工单位</div></td><td colspan='2'><select name='jgdw' size='1'> <option value=''>请选择</option> <option value='123'>123</option></select></td></tr>"
str=str&"<tr bgcolor=#ffffff><td colspan='6' height='5'></td></tr>"
next
window.uptd.innerHTML =str&"</table>"
end function
</SCRIPT>
搜索更多相关主题的帖子: 数据库　str　value　联接　
2006-06-30 09:16
icecool
Rank: 9Rank: 9Rank: 9
等　级：贵宾
威　望：20
帖　子：1214
专家分：1366
注　册：2005-3-14
第 2 楼
 得分:0 

这里好像没什么问题的,

你的数据库连接呢?


http://toorup.3v.do
loading...
2006-06-30 09:36
happyhu
Rank: 1
等　级：新手上路
帖　子：292
专家分：0
注　册：2005-7-12
第 3 楼
 得分:0 
数据库联接没有问题，其他文件用的正常

2006-06-30 10:46
hangxj
Rank: 6Rank: 6
等　级：贵宾
威　望：29
帖　子：2045
专家分：0
注　册：2006-4-10
第 4 楼
 得分:0 
提示什么错误?

是不是又是没有加上记录为空的判断引起的?

http://www./
2006-06-30 10:50
happyhu
Rank: 1
等　级：新手上路
帖　子：292
专家分：0
注　册：2005-7-12
第 5 楼
 得分:0 
就是空白页，啥也没有

2006-06-30 11:06
hangxj
Rank: 6Rank: 6
等　级：贵宾
威　望：29
帖　子：2045
专家分：0
注　册：2006-4-10
第 6 楼
 得分:0 
那就不是数据库连接的问题了,这是你这个页面的全部代码吗?
看下全部的代码

http://www./
2006-06-30 11:14
icecool
Rank: 9Rank: 9Rank: 9
等　级：贵宾
威　望：20
帖　子：1214
专家分：1366
注　册：2005-3-14
第 7 楼
 得分:0 
这就一个函数没有执行当然是空白页了.

http://toorup.3v.do
loading...
2006-06-30 11:19
happyhu
Rank: 1
等　级：新手上路
帖　子：292
专家分：0
注　册：2005-7-12
第 8 楼
 得分:0 
这是全部的代码，大家帮忙看看，谢谢！！！
<!--#include file="cons.asp"-->
<HTML>
<HEAD>
<STYLE TYPE="text/css">
<!--
.p9{ font-size: 9pt; font-family: 宋体 }
td {font-size: 9pt}
.tx {height: 16px; width: 30px; border-color: black black #000000; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px; font-size: 9pt; background-color: #eeeeee; color: #0000FF}
.tx2 {height: 16px;border-top-width: 0px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px; font-size: 9pt; color: #0000FF; border-left-color:#000000; border-right-color:#000000; border-top-color:#000000; border-bottom-color:#000000}
.bt {border-left:1px solid #C0C0C0; border-top:1px solid #C0C0C0; font-size: 9pt; border-right-width: 1; border-bottom-width: 1; height: 16px; width: 80px; background-color: #EEEEEE; cursor: hand; border-right-style:solid; border-bottom-style:solid}
.tx1 { width: 400 ;height: 20px; font-size: 9pt; border: 1px solid; border-color: black black #000000; color: #0000FF}
-->
</STYLE>
<SCRIPT LANGUAGE="vbscript">
function addfile()
dim str
str="<table WIDTH='750' BORDER='1' ALIGN='center' CELLPADDING='5' CELLSPACING='0' BORDERCOLOR='#111111' STYLE='BORDER-COLLAPSE: collapse' height='70'><TR> <td colspan='6'> <DIV ALIGN='center'><font color='#0000ff' size='4'>汽车发货</font></DIV></td></TR>"
if not IsNumeric (window.form1.filenum.value) then window.form1.filenum.value =1
for i=1 to window.form1.filenum.value
str=str&"<tr bgcolor=#eeeeee><td align=right><div align='center'>品　　名</div></td><td colspan='2'><select name='hwname' size='1' ><option value='1'>1</option><option value='2'>2</option></select></td><td><div align='center'>件　　数</div></td><td colspan='2'><input name='jsh' type='text' id='jsh'></td></tr>"
str=str&"<tr bgcolor=#eeeeee><td align=right><div align='center'>重量(吨)</div></td><td colspan='2'><input name='weight' type='text' id='weight'></td><td><div align='center'>批　　号</div></td><td colspan='2'><input name='ph' type='text' id='ph'></td></tr>"
str=str&"<tr bgcolor=#eeeeee><td align=right><div align='center'>包　　型</div></td><td colspan='2'><select name='bx' id='bx'><option value=''>请选择</option> <option value='大包'>大包</option><option value='小包'>小包</option></select></td><td><div align='center'>质量标识</div></td><td colspan='2'><input name='zhlbzh' type='text' id='zhlbzh'></td></tr>"
str=str&"<tr bgcolor=#eeeeee><td align=right><div align='center'>产　　地</div></td><td colspan='2'><select name='chd' size='1' ><option value=''>请选择</option>"
<%set rs = server.CreateObject ("Adodb.recordset")
sql = "select * from [chandi] order by chdname"
rs.open sql,conn,1,1
do while not rs.EOF%>
str=str&"<option value='"&<%=rs("chdname")%>&"'>"&<%=rs("chdname")%>&"</option>"
<%rs.movenext
loop
rs.close%>
str=str&"</select></td><td><div align='center'>加工单位</div></td><td colspan='2'><select name='jgdw' size='1'> <option value=''>请选择</option> <option value='123'>123</option></select></td></tr>"
str=str&"<tr bgcolor=#ffffff><td colspan='6' height='5'></td></tr>"
next
window.uptd.innerHTML =str&"</table>"
end function
</SCRIPT>
<TITLE>渔翁上传工具</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312"></HEAD>
<BODY BGCOLOR="#ffffff" CLASS="p9" onLoad="addfile()">
<FORM METHOD="post" NAME="form1" ACTION="savetofile.asp" ENCTYPE="multipart/form-data">
<TABLE BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD>
<DIV ALIGN="center"><font color="#0000ff" size="5">宏健物流</font></DIV>
<div align="center">运输
<input name="filenum" class="tx2" value="1" size="2">
个批次　　
<input type="button" name="Button" class="bt" onClick="addfile" value="设 定">
</div></TD>
</TR>
<TR>
<TD>
<TABLE WIDTH="750" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#111111" STYLE="BORDER-COLLAPSE: collapse" height="70">

<TR>
<TD colspan="6"> <DIV ID="uptd"> </DIV></TD>
</TR>
<TR>
<TD COLSPAN="6" ALIGN="middle">
<div align="center">
<p>&nbsp; </p>

</div>
</TD>
</TR>
</TABLE></TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>

2006-06-30 15:20



参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-75807-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有，并保留所有权利。
Powered by Discuz, Processed in 0.197650 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved