您的位置：程序门 -> web 开发 -> asp

郁闷,大家帮我看一下这段代码哪里有问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

郁闷,大家帮我看一下这段代码哪里有问题

发表于：2007-01-02 11:07:52 楼主

<form name= "frm " action= "1_zjreport.asp " method= "post ">
<table class=mainblock cellspacing=0 cellpadding=0 width= "70% " border=0 align= "center ">
<tr>
<td colspan= "3 " align= "right ">
公司名称
<select name= "companyname " id= "companyname ">
<option value= ' '> ---无选择--- </option>
<%
set kconn = server.createobject（ "adodb.connection ")
set krs = server.createobject（ "adodb.recordset ")
kconn.open connstr
ksql = "list_name "
krs.open ksql,kconn,1,1
'ksql= "select distinct（公司名称old) from t_userlogin "
'set krs=dbs.ＥＸＥＣute（ksql)
if krs.eof then
response.write "无记录 "
else
do while not krs.eof
%>
<option value= ' <%=krs（ "公司名称old ")%> ' <%if krs（ "公司名称old ")=search then response.write "selected " end if%> > <%=krs（ "公司名称old ")%> </option>
<%
krs.movenext
loop
end if
set krs=nothing
%>
</select>
开始时间 <input type= "text " name= "startdate " onfocus= "calendar（) " size= "10 " > 结束时间 <input type= "text " name= "enddate " onfocus= "calendar（) " size= "10 " >
<input name= "submit " type= "submit " class= "button1 " value= "搜索 ">
</td>
</tr>
<%
'set conn = server.createobject（ "adodb.connection ")
'set rs = server.createobject（ "adodb.recordset ")
'conn.open connstr
'sql = "zjreport "
'rs.open sql,conn,1,1
'set rs = conn.ＥＸＥＣute（sql)

companyname=request（ "companyname ")
stardate=request（ "startdate ")
enddate=request（ "enddate ")
set conn = server.createobject（ "adodb.connection ")
set rs = server.createobject（ "adodb.recordset ")
conn.open connstr
sql = "zjreport " & " ' " & companyname & " ', ' " & startdate & " ', ' " & enddate & " ' "
response.write sql
set rs = conn.ＥＸＥＣute（sql)

=============================

现象有二个,我选择参数时,无法全部选三个参数,也就是即使我选三个参数,但是response.write 出来也就只有二个或是一个,没有规律,再一个就是存储过程本身没有问题,在查询分析器中执行正常,但是前台传参数给存储过程,则显示没有数据

发表于：2007-01-02 11:48:111楼得分:0

郁闷,顶

发表于：2007-01-03 16:58:342楼得分:0

顶!

发表于：2007-01-03 20:09:313楼得分:0

你把代码帖全点

发表于：2007-01-04 09:01:154楼得分:0

<!doctype html public "-//w3c//dtd html 4.0 transitional//en ">
<html xmlns= "http://www.w3.org/1999/xhtml ">
<head> <title> /* ***资金申请报表*** */ </title>
<meta http-equiv=content-type content= "text/html; charset=gb2312 ">
<link href= "css2.css " type=text/css rel=stylesheet>
<body>
<script language= "javascript " src= "calendar.js "> </script>
<br>
<table align= "center ">
<tr>
<td cellspacing=0 cellpadding=0 border=0 align= "center " class= "topmenu ">   资 金 申 请 报 表   </td>
</tr>
</table>
<br>
<form name= "form1 " method= "get " action= "1_zjreport.asp " >
<table class=mainblock cellspacing=0 cellpadding=0 width= "70% " border=0 align= "center ">
<tr>
<td colspan= "3 " align= "right ">
公司名称
<select name= "companyname " id= "companyname " >
<option value= ' '> -------未选择------- </option>
<%
set kconn = server.createobject（ "adodb.connection ")
set krs = server.createobject（ "adodb.recordset ")
kconn.open connstr
ksql = "list_name "
krs.open ksql,kconn,1,1
'ksql= "select distinct（公司名称old) from t_userlogin "
'set krs=dbs.ＥＸＥＣute（ksql)
if krs.eof then
response.write "无记录 "
else
do while not krs.eof
%>
<option value= ' <%=krs（ "公司名称old ")%> ' <%if krs（ "公司名称old ")=search then response.write "selected " end if%> > <%=krs（ "公司名称old ")%> </option>
<%
krs.movenext
loop
end if
set krs=nothing
%>
</select>
开始时间 <input type= "text " name= "startdate " onfocus= "calendar（) " size= "10 " > 结束时间 <input type= "text " name= "enddate " onfocus= "calendar（) " size= "10 " >
<input name= "submit " type= "submit " value= "搜索 ">
</td>
</tr>
<%
companyname=trim（request（ "companyname "))
stardate=trim（request（ "startdate "))
enddate=trim（request（ "enddate "))
set conn = server.createobject（ "adodb.connection ")
set rs = server.createobject（ "adodb.recordset ")
conn.open connstr
sql = "zjreport " & " ' " & companyname & " ', ' " & startdate & " ', ' " & enddate & " ' "
response.write sql
rs.open sql,conn,3,1

if rs.eof then
response.write " <tr> <td colspan=18> 暂时没有记录 </td> </tr> </table> "
response.end
end if
pagesize = request.cookies（ "pagesize ")
if not isnot（pagesize, "n ") then pagesize = defaultpagesize
rs.pagesize = pagesize
pagecount = rs.pagecount
pageno = request（ "pageno ")
if pageno = " " or cint（pageno) < 1 then pageno = 1
if cint（pageno) > pagecount then pageno = pagecount

rs.absolutepage = pageno

if not rs.eof then
%>
<tr>
<%for x=0 to rs.fields.count-1%>
<td class=loginbuttom> <%response.write rs.fields（x).name%>
  </td>
<%next%>
</tr>
<%

i = 0
while not rs.eof and i < rs.pagesize

%>
<tr>
<%for x=0 to rs.fields.count-1%>
<td height= "29 " class= "bluefont "> <%response.write rs.fields（x).value%> </td>
<%next%>
</tr>
<%
rs.movenext
i = i + 1
wend

end if
%>

<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>

<tr align= "right " >
<td height= "20 " colspan= "3 " bgcolor= "#f3f3f3 " class= "style1 ">
<a href= "1_zjreport.asp?pageno=1 "> 第一页 </a>
<a href= "1_zjreport.asp?pageno= <%= pageno - 1 %> "> 上一页 </a>
<a href= "1_zjreport.asp?pageno= <%= pageno + 1 %> "> 下一页 </a>
<a href= "1_zjreport.asp?pageno= <%= pagecount %> "> 最后一页 </a>
当前位置： <%=pageno%> / <%=pagecount%>      </td>
</tr>
</table>
</form>
</body>
</html>

下一篇：如何实现confirm是true和false的操作?
上一篇：xmlhttp 与serverxmlhttp的区别?

其他资讯