asp高手帮我看看什么问题

来源：百度知道 编辑：UC知道 时间：2024/04/28 15:23:11
sql能写出来，变量也能写出来，就是不进table。。。好像loop有问题...多谢了

<%
On Error Resume Next
Server.ScriptTimeout=7200
Response.Expires=-1

lsysserialno = Trim(Request.form("Lsysserialno"))
lsysserialno = Replace(lsysserialno," ","")
lsysserialno = Replace(lsysserialno,"?","")
lsysserialno = Replace(lsysserialno,"? ","")
lsysserialno = Replace(lsysserialno,vbCRLF,"','")
lsysserialno = "('"&lsysserialno&"')"
'Response.Write lsysserialno
'Response.end

set conn1 = createObject("EADO.CADO")
Set rsc=createObject("ADODB.recordset")

strsqlb = "select sysserialno,cserialno from mfsyscserial_backup where sysserialno in "&lsysserialno&" and prodtype = 'F' "
'Response.Write strsqlb
'Response.end
set rsc=conn1.SaveRecordse

<%do until rsc.eof%>
<tr>
<td width="100"><%= rsc("sysserialno")%></td>
<td width="100"><%= rsc("cserialno")%></td>
</tr>
<%
rsc.MoveNext
Loop
rsc.close
%>

set conn1 = createObject("EADO.CADO")
Set rsc=createObject("ADODB.recordset")

strsqlb = "select sysserialno,cserialno from mfsyscserial_backup where sysserialno in "&lsysserialno&" and prodtype = 'F' "
'Response.Write strsqlb
'Response.end
set rsc=conn1.SaveRecordsetQuery(cstr(strsqlb))
以上语句用下面的代替
set conn1=server.createobject("adodb.connection")
conn.open
set rsc=server.createobject("adodb.recordset")
strsqlb = "select sysserialno,cserialno from mfsyscserial_backup where sysserialno in "&lsysserialno&" and prodtype = '