缺少 'End'

来源：百度知道 编辑：UC知道 时间：2024/06/08 11:56:57
<%
if trim(request.QueryString("errmsg"))<>"" then
if instr(request.QueryString("errmsg"),"'")>0 then
errmsg="<br><li>非法调用</li>"
call diserror()
else
errmsg = replace(request.QueryString("errmsg"),"'","")
call diserror()
end if
else
errmsg="<br><li>错误信息不能为空</li>"
call diserror()
end if
sub diserror()
dim webstyle
webstyle=split(checksql("网站界面风格",web_style,1,20),"@@@")
sql="select * from Ft_mb_style where mb_id="& webstyle(1)
set rs=Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
mb_main=replace(replace(rs("mb_main"),"<iframe>","<iframe>"),"</iframe>","</iframe>")
strtemp=split(mb_main,"|||@@@|||")<

tmp = replace(tmp,"
最后加上一个End即可

试试看这个，另外encode里的第三个replace不全，你把它去掉了，你自己看着办
<%
if trim(request.QueryString("errmsg"))<>"" then
if instr(request.QueryString("errmsg"),"'")>0 then
errmsg="<br><li>非法调用</li>"
call diserror()
else
errmsg = replace(request.QueryString("errmsg"),"'","")
call diserror()
end if
else
errmsg="<br><li>错误信息不能为空</li>"
call diserror()
end if

sub diserror()
dim webstyle
webstyle=split(checksql("网站界面风格",web_style,1,20),"@@@")
sql="select * from Ft_mb_style where mb_id="& webstyle(1)
set rs=Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
mb_main=replace(replace(rs("mb_main"),"<iframe>","<iframe>&q