郁闷不知道哪里错了

[cu88815892]

<%
dim startyear
dim startmon
dim startday
dim code
dim inputno

startyear = year(now())
startmon = month(now())
startday = day(now())

Dim conn,rs,strSql1


Set rs=Server.CreateObject("ADODB.Recordset")
strSql1 ="select top 1 no from wzbg order by date desc"
rs.Open strSql1,conn,1

if startmon<10 then
startmon="0"&month(date)
end if
if startday<10 then
startday="0"&day(date)
end if
if startyear&startmon&startday<>left((rs.Fields.Item("no").Value),8) then
code=001
else
code=int(mid((rs.Fields.Item("no").Value),9,3))+1
end if
if len(code)=1 then
code="00"&cstr(code)
end if
if len(code)=2 then
code="0"&cstr(code)
end if
inputno = startyear & startmon&startday&cstr(code)
%>



然后界面里<input name="no" readonly="true" type="CHAR" value="<%response.Write(inputno)%>" />

[shenzhenNBA]

修改如下：
...
Set rs=Server.CreateObject("ADODB.Recordset")
strSql1 ="select top 1 [no] from wzbg order by [date] desc"
rs.Open strSql1,conn,1
...

[cu88815892]

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

ADODB.Recordset 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/mysite/zhk/biao1.asp，行120

[cu88815892]

难道是数据库错了？？我已经把no date 改进去了啊！还要改什么啊？？

[sy_binbin]

确定你这个页面有数据库连接代码吗？？

[cu88815892]

<input name="no" readonly="true" type="CHAR" value=" <%response.Write(inputno)%>" />

我把他改成<input name="no" readonly="true" type="CHAR" value=" <%response.Write(date)%>" />

就可以显示出来2009-5-21.。。。。。。。。。。边上还是出来了

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

ADODB.Recordset 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/mysite/zhk/biao1.asp，行120

[heatonc]

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
说明你的字段名有错误 或 你字段类型有错误 请检查你的数据库连接情况是否正确 你的SQL语句内容和数据库是否匹配!

[heatonc]

biao1.asp 这是什么页呀

[cu88815892]

<%
dim startyear
dim startmon
dim startday
dim code
dim inputno

startyear = year(now())
startmon = month(now())
startday = day(now())



Dim conn,rs,strSql1
Set rs=Server.CreateObject("ADODB.Recordset")
strSql1 ="select * from wzbg order by date desc"

rs.Open strSql1,db,1
'response.Write startyear

这里加个读date怎么写啊！貌似知道问题就是不会写这么办办哦！

if startmon <10 then
startmon="0"&month(date)
end if
if startday <10 then
startday="0"&day(date)
end if


if startyear&startmon&startday <>left((rs.Fields.Item("no").Value),8) then
code=001
'response.Write code
else
code=int(mid((rs.Fields.Item("no").Value),9,3))+1
'response.Write code
end if


if len(code)=1 then
code="00"&cstr(code)
end if
if len(code)=2 then
code="0"&cstr(code)
end if
inputno = startyear & startmon&startday&cstr(code)
'response.Write inputno
%>

[lzj34]

response.write strSql1
rs.Open strSql1,db,1,1

[cu88815892]

select * from wzbg order by date desc
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

ADODB.Recordset 错误 '800a0e79'

对象打开时，不允许操作。

/mysite/zhk/biao1.asp，行125