高手，帮忙呀！！！asp0115错误！

Question

是你asp里的语法不正确吧？检查一下if then else是不是哪里少了end if了？

Answer 1

重贴代码。错误照旧<% 
'连接数据库 
set orasession=createobject("OracleInprocServer.XOraSession") 
set oradatabase=orasession.dbopendatabase("orcl","system/manager",0) 
'设置查询条件
sql="select * from swd03.xtwzbm,swd03.cgxjmx where swd03.xtwzbm.wzbm=swd03.cgxjmx.wzbm" 
set oradynaset=oradatabase.dbcreatedynaset(sql,0) 
'设置页长 
pagesize=15 
if oradynaset.recordcount=0 then 
response.write "无符合条件的数据" 
else 
response.write"<h3>查询结果</h3>" 
'计算页数 
pages=int(oradynaset.recordcount/pagesize) 
if pages*pagesize=oradynaset.recordcount then 
pages=int(oradynaset.recordcount/pagesize) 
else 
pages=int(oradynaset.recordcount/pagesize)+1 
end if 
if request("page")="" then 
page=1 
else 
page=cstr(request("page")) 
end if 
response.write"共"&pages&"页，目前第"&page&"页" 
response.write"<table border=5><tr>" 
response.write"<td>" 
response.write "物资编码"
response.write"</td>" 
response.write"<td>" 
response.write "物资名称"
response.write"</td>" 
response.write"<td>" 
response.write "规格型号"
response.write"</td>" 
response.write"<td>" 
response.write "材质"
response.write"</td>" 
response.write"<td>" 
response.write "标准"
response.write"</td>" 
response.write"<td>" 
response.write "数量"
response.write"</td>" 
response.write"<td>" 
response.write "交货时间"
response.write"</td>" 
response.write"<td>" 
response.write "交货地点"
response.write"</td>" 
response.write "</tr>" 
startrow=(page-1)*pagesize+1 
endrow=page*pagesize 
oradynaset.moveto startrow
for j=startrow to endrow 
response.write"<tr>" 
response.write"<td>" 
response.write (oradynaset.fields("wzbm"))
response.write"</td>" 
response.write"<td>" 
response.write (oradynaset.fields("wzmc"))
response.write"</td>"
response.write"<td>" 
response.write (oradynaset.fields("ggxh"))
response.write"</td>"
response.write"<td>" 
response.write (oradynaset.fields("cz"))
response.write"</td>"
response.write"<td>" 
response.write " "
response.write"</td>"
response.write"<td>" 
response.write (oradynaset.fields("sl"))
response.write"</td>"
response.write"<td>" 
response.write (oradynaset.fields("jhrq"))
response.write"</td>"
response.write"</tr>" 
oradynaset.movenext 
if oradynaset.eof then exit for 
next 
response.write"</table>" 
end if 
if page>1 then 
Response.write"<a href=wz.asp?page=1>第一页</a>" 
response.write "<a href=wz.asp?page="&page-1&">上一页</a>" 
end if 
if cint(page)<pages then 
response.write "<a href=wz.asp?page="&page+1&">下一页</a>" 
response.write "<a href=wz.asp?page="&pages&">最后页</a>" 
end if 
set orasession=nothing%>

Answer 2

你只用一次
response.write"</td>" 
response.write"<td>" 
response.write "物资名称"
来调试看

Answer 3

if oradynaset.eof then exit for 
next 
response.write"</table>" 
end if 第一行已对if条件结束，不用再写end if

Answer 4

beckhambobo(beckham):你的办法是错误的？