报错处并没有代码，这是怎么回事

kaqia2003 2005-03-29 11:25:07

1 <%@ Language=VBScript %>
2 <%
3 Option Explicit
4 dim ret
5 dim obj
6 dim strClientCertPEM
7 dim strClientSign
8 dim strUID

11 strClientCertPEM=Request("txtClientCertPEM")
12 strClientSign = Request("txtClientSigned")

set obj = Server.CreateObject("TYCSP_CMPNT_V1.WHCASec.1")
obj.SetCSP(1)

dim strCertSN
dim i
i=1
do while true

ret = obj.GetCertSN(i,strCertSN)
if ret<> 0 or strCertSN="" then _
exit do

if strCertSN="bbbb" or strCertSN="aaaa" then _
exit do
'Response.Write strCertSN

i=i+1
loop

if i=1 and ret<>0 then

Response.Write(obj.QueryReturnMsg(ret))
Response.End()

end if

'Response.Write(strCertSN+"<br>")

ret = obj.InitialSession(strCertSN,"6379c6a1")
if ret<>0 then

Response.Write(obj.QueryReturnMsg(ret))
Response.End()

end if

'验证客户端身份
ret = obj.VerifySignData(strClientCertPEM,strClientSign,strClientCertPEM)
if ret <> 0 then '证书被恶意修改

Response.Write(obj.QueryReturnMsg(ret))
Response.End()
end if

ret = obj.VerifyCertPEM(strClientCertPEM,0)
if ret <> 0 then'身份不合法，不是WHCA的合法证书用户

Response.Write(obj.QueryReturnMsg(ret))
Response.End()

else'身份合法，

Response.Write("欢迎登录<br>")
'通过GetCertUniqueID得到企业的唯一标示strUID，然后再同数据库中对应的字段比较．
ret = obj.GetCertUniqueID(strClientCertPEM,strUID)
Response.Write("企业代码信息："+strUID)
Session("id")=strUID
Response.Redirect ("dl.asp")

end if

obj.ClearSession()
set obj=nothing

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

缺少 'End'

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

Microsoft VBScript 运行时错误错误 '800a01a8'

缺少对象: ''

/ca/dl.asp，行10

可第10行处什么也没有，
当我把

Session("id")=strUID
Response.Redirect ("dl.asp")
这两条语句去掉又可以运行，怎么回事。

...全文