本地测试出错浏览器提示如下：
技术信息（用于支持人员）

错误类型：
Microsoft VBScript 编译器错误 (0x800A03F2)
缺少标识符
/1510w/1510w_config.asp, line 38, column 9
Function 1510w(ByVal Str,ByVal StrLen)
--------^
浏览器类型：
Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.43 Safari/537.31
网页：
GET /1510w/index.asp
时间：
2013年4月11日星期四, 下午 03:08:10


1510w_config.asp代码如下：
<%
set config=server.createobject("adodb.recordset")
exec="select * from config"
config.open exec,conn,1,1

Function DelHtml(Str1)
  Dim regEx
  Set regEx = New RegExp
  regEx.Pattern = "(<[^>]*?>)"
  regEx.Global = True
  regEx.IgnoreCase = True
  DelHtml = replace(regEx.Replace(""&str1,""),"&nbsp;","")
End Function
Function InterceptString(txt,length)
    txt=trim(txt)
    x = len(txt)
    y = 0
    if x >= 1 then
        for ii = 1 to x
            if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then
                y = y + 2
            else
                y = y + 1
            end if
            if y >= length then
                txt = left(trim(txt),ii)
                exit for
            end if
        next
        InterceptString = txt
    else
        InterceptString = ""
    end if
End Function
%>
<%
Function 1510w(ByVal Str,ByVal StrLen)
     Dim l,t,c,i,r
     
     '过滤全部HTML标记
     Set r=New RegExp
     r.Global=True
     r.MultiLine=True
     r.Pattern="(</?[A-Za-z][A-Za-z0-9]*[^>]*>)"
     str=r.Replace(str," ")
     Set r=Nothing
     
     l=Len(str)
     t=0
     For 1=1 To l
           c=AscW(Mid(str,i,1))
           If c<0 Or c>255 Then t=t+2 Else t=t+1
           IF t>=StrLen Then
                 1510w=Left(Str,1)&"..."
                 Exit For
           Else
                 1510w=Str
           End If
     Next
End Function
%>

<%
function TD_home()
TD_home=""&config("title")&""
end function
function TD_keywords()
TD_keywords=""&config("keywords")&""
end function
function TD_description()
TD_description=""&config("description")&""
end function
function TD_url()
TD_url=""&config("url")&""
end function
function TD_logo()
TD_logo=""&config("logo")&""
end function
function TD_logoiwidth()
TD_logoiwidth=""&config("logoiwidth")&""
end function
function TD_logoheight()
TD_logoheight=""&config("logoheight")&""
end function
function TD_name()
TD_name=""&config("name")&""
end function
function TD_mail()
TD_mail=""&config("mail")&""
end function
function TD_tel()
TD_tel=""&config("tel")&""
end function
function TD_fax()
TD_fax=""&config("fax")&""
end function
function TD_dz()
TD_dz=""&config("dz")&""
end function
function TD_copyright()
TD_copyright=""&config("copyright")&""
end function
function TD_beian()
TD_beian="<a href=""http://www.miibeian.  target=""_blank"">"&config("beian")&"</a>"
end function
function TD_qq1()
TD_qq1=""&config("qq1")&""
end function
function TD_qq2()
TD_qq2=""&config("qq2")&""
end function
function TD_qqkg()
TD_qqkg=""&config("qqkg")&""
end function
function TD_syabout()
TD_syabout=""&config("syabout")&""
end function
function TD_newsclass()
TD_newsclass=""&config("newsclass")&""
end function
function TD_productsclass()
TD_productsclass=""&config("productsclass")&""
end function
function TD_downclass()
TD_downclass=""&config("downclass")&""
end function
function TD_jobclass()
TD_jobclass=""&config("jobclass")&""
end function
function TD_lyclass()
TD_lyclass=""&config("lyclass")&""
end function
%>


什什么地方错了？可以帮帮我吗，先谢谢了！

后台登陆出错。。。

谢谢版主