| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 668 人关注过本帖
标题:求高手看看,什么地方要改,才可以呀?
只看楼主 加入收藏
bao008
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2013-3-15
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
求高手看看,什么地方要改,才可以呀?
本地测试出错浏览器提示如下:
技术信息(用于支持人员)

错误类型:
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
%>


什什么地方错了?可以帮帮我吗,先谢谢了!
搜索更多相关主题的帖子: 浏览器 看看 Microsoft Windows Chrome 
2013-04-11 15:20
bao008
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2013-3-15
收藏
得分:0 
后台登陆出错。。。
2013-04-11 15:23
awl805
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:161
专家分:664
注 册:2012-11-6
收藏
得分:20 
虽然没接触过vb但是我觉得你那个function有问题,命名不符合规则,一般是要以字母,下划线开头的不能使数字开头 的
2013-04-11 17:04
bao008
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2013-3-15
收藏
得分:0 
谢谢版主
2013-04-11 21:20
快速回复:求高手看看,什么地方要改,才可以呀?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.040261 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved