㈠ asp 正则 过滤重复字符串的代码
<%
'过滤重复
Function norepeat(Str)
Dim RegEx
If IsNull(Str) Or Str="" Then Exit Function
Set RegEx=New RegExp
RegEx.Global = True
RegEx.IgnoreCase=True
RegEx.MultiLine = True
RegEx.pattern="(.)\1+"
str=regEx.replace(str,"$1")
Set RegEx=Nothing
Norepeat=str
End Function
'示例
s=""
response.write Norepeat(s)
%>
㈡ ASP如何去重复数据
最好在数据库读取的时候就用group by 合并一下，如果不能在数据库操作只能用数组了！输出时候遍历检索一下重复的不显示了！
㈢ asp求统计数组里重复元素个数,并求得对应位置的和
dim ArryStr,A,B
ArryStr="a=1|b=1,a=1|b=1,a=1|b=3"
ArryStr=replace(ArryStr,",","|")''先把逗号符替换为|分隔
ArryStr=Split(ArryStr,"|")''分割为数组
For I=0 to Ubound(ArryStr)
if instr(ArryStr(I),"a=")>0 then
A=A+Split(ArryStr(I),"=")(1)
end if
if instr(ArryStr(I),"b=")>0 then
B=B+Split(ArryStr(I),"=")(1)
end if
Next
Response.write "a="&A
Response.write "<br />"
Response.write "b="&B
㈣ asp 数组判断含有重复数据
TYHT TYUT
㈤ asp如何过滤access数据库同一字段中重复的数据
你的数据表有没有设置无重复的主键字段呢（比如ID）？如果有就好办：
rs.open "select * from 表名 where id in (select min(id) from 表名 group by 有重复的字段名)",conn,1,1
如果没有这样的字段，也可以用其他在所有记录都无重复（或者说具有唯一性）的字段来代替，如果连这也没有就麻烦一些了，需要分多步来筛选了。
㈥ ASP 如何判断数组有无重复
Function FormateOrderBy(OrderByText)
Dim tmp,tmp2,i,j
tmp3 = ""
tmp = Split(OrderByText," ")
For i=0 To Ubound(tmp)-1
For j=i+1 To Ubound(tmp)
If UCase(Trim(tmp(i)))=UCase(Trim(tmp(j))) Then
tmp(j)=""
End If
Next
Next
tmp2=""
For i=0 To Ubound(tmp)
If tmp(i) <>"" Then tmp2 = tmp2 & tmp(i) & " "
Next
FormateOrderBy = Left(tmp2,Len(tmp2)-1)
End function
㈦ 怎样过滤数组中重复的数据
在php中函数array_unique的功能是移除数组中重复的值。
㈧ asp怎样过滤重复的词组
试试这个函数
<%
Dims
s="中国,美国,法国,意大利,美国,澳大利亚,中国,澳大利亚,泰国"
response.writedelR(s)
FunctiondelR(ByValstr)
Dimarr,b(),i,j,k,sf
arr=Split(str,",")
ReDimb(k):b(k)=arr(0)
Fori=1ToUBound(arr)
sf=False
Forj=0ToUBound(b)
Ifb(j)=arr(i)Then
sf=True
ExitFor
EndIf
Next
Ifsf=FalseThen
k=k+1
ReDimPreserveb(k)
b(k)=arr(i)
EndIf
Next
delR=Join(b,",")
EndFunction
%>
㈨ ASP如何过滤数组内重复内容
dim a(4)
a(0)=1
a(1)=1
a(2)=2
a(3)=2
a(4)=3
for n=0 to ubound(a)-1
for s=1 to ubound(a)
if a(s)=a(n) then
a(n)=""
end if
next
next
a_new=filter(a,"")‘把a数组里面是空值的全部删掉，然后重新组合成一个a_new数组。
for n=0 to ubound(a_new)’打印出a_new数组。
response.write a_new(n)&"<br>"
next
说明：a_new是新生成的数组，去掉了a数组里面被清空的那些，重新生成了一个开头角标是0的a_new数组。
㈩ ASP过滤重复数据
1、同一个电话号码分机不同只记录一个(改SQL语句，有些细节我忘记了，LZ试试吧):
strsql="select * from sit where mid(dhhm,0,11) ='" & mid(dhhm,0,11) & "'"
strsql="select * from sit where dhhm like '" & mid(dhhm,0,11) & "%'"
strsql="select * from sit where dhhm like '" & mid(dhhm,0,11) & "*'"
2、还有个别号码不记录：
if rst.eof then
改成：
if rst.eof and (instr(dhhm,"0598")>0 or instr(dhhm,"0591")>0) then
应该没问题了
上面的是代码结构比较好
改下 提高运行效率的
if instr(dhhm,"0598")>0 or instr(dhhm,"0591")>0 then '过滤不要记录确定需要再打开记录集
set rst=server.CreateObject("adodb.recordset")
strsql="select * from sit where dhhm ='" & dhhm & "'"
rst.open strsql,my_conn,1
if rst.eof then
sql="Insert Into sit (dhhm,CreatTime,Inform) values ('"&dhhm&"','"&Times&"','"&Inform&"')"
my_Conn.execute(sql)
end if
set my_conn=nothing
end if
end if