求高手看看,什么地方要改,才可以呀?
本地测试出错浏览器提示如下:技术信息(用于支持人员)
错误类型:
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,"")," ","")
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
%>
什什么地方错了?可以帮帮我吗,先谢谢了!