求助：看看数据库联接那里错了？ - ASP技术论坛

问题点数：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>

第 2 楼

得分:0

这里好像没什么问题的,

你的数据库连接呢?

http://toorup.3v.do
loading...

第 3 楼

得分:0

数据库联接没有问题，其他文件用的正常

第 4 楼

得分:0

提示什么错误?

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

http://www./

第 5 楼

得分:0

就是空白页，啥也没有

第 6 楼

得分:0

那就不是数据库连接的问题了,这是你这个页面的全部代码吗?
看下全部的代码

http://www./

第 7 楼

得分:0

这就一个函数没有执行当然是空白页了.

http://toorup.3v.do
loading...

第 8 楼

得分:0

这是全部的代码，大家帮忙看看，谢谢！！！

<HTML>
<HEAD>
<STYLE TYPE="text/css">

</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>  </p>

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