急求一语句

[areslong]

在数据库中有如下记录：
09089打发地方453
AS525454艰苦好家伙asdf456
sdfa 454543发射点发射点
...
我想将汉字前面的非汉字多去掉，该怎么写？？

[hqcsx]

不知道,友情up一下.

[dh20156]

可能要用存储过程

[wanglh100]

取汉字的最小字和最大字，然后看字是不是（最小字<=n<=最大字），是的话就留下来。

[areslong]

那最小字，最大字是多少啊？

[楚人无衣]

我写的有些烦琐，你可再优化一下，此为前台显示所用而非操作数据库：
function getcn(str)
cn=false
for i=1 to len(str)
if asc(mid(str, i, 1))>0 and cn=false then
s=""
else
cn=true
s=s+right(str, len(str)-i+1)
exit for
end if
next
getcn=s
end function

[bluemoon0001]

<%
str="123我们45s"
strnew=""
for i=0 to len(str)-1

if asc(left(str,1))<0 then
strnew=strnew & left(str,1)
end if
n=len(str)-1
str=right(str,n)
next
response.write strnew
%>

[zhuier]

判断是否是其他字符？

[showliz]

if(escape(str).indexOf("%u")!=-1)alert("含有汉字");
elsealert("全是字符");

[777dragon]

str="AS525454艰苦好家伙asdf456"

For i=1 To Len(str)
ac = Asc(Mid(str,i,1))
If ac<0 Then
str1=str1&Chr(ac)
End if
Next

response.write str1

[legend1970]

<%
dim aa,bb
bb=""
aa="AS525454艰苦好家伙asdf456"
for i=1 to len(aa)
if asc(mid(aa,i,1))<0 then
bb=bb&mid(aa,i,1)
end if
next
%>
<%=bb%>

[yqh1314]

楼上厉害！

[areslong]

可我要的是汉字后面的英文和数字要的啊，不能删除！！

[soulcy]

字母和数字，还有一些特殊的字符的ASCII码是可以查到的，只要循环从字符串的左边依次取出来转成ASCII码，比较一下是不是属于字母、数字等的ASCII码的范围，是就取右边剩下的字符串，不是那就得到你想要的结果了。

[gzapu]

不会，帮你顶！！！

[legend1970]

将汉字前面的非汉字多去掉,已经试过,输出的是“艰苦好家伙asdf456”，你问的是这个吗？
<%
dim aa,bb
bb=""
aa="AS525454艰苦好家伙asdf456"
for i=1 to len(aa)
if asc(mid(aa,i,1))<0 then
bb=bb&mid(aa,i,1)
end if
next
%>
<%=mid(aa,instr(aa,bb))%>

[legend1970]

我刚写的以上代码，如果操作"AS525454艰苦asdf456好家伙asdf456"这样的字串，是不行的，可以稍改一下，输出的就是“艰苦asdf456好家伙asdf456”。
思路是：找到第一个出现汉字的位置，然后输出右边的所有字符！！

<%
dim aa,bb
bb=""
aa="AS525454艰苦asdf456好家伙asdf456"
for i=1 to len(aa)
if asc(mid(aa,i,1))<0 then
bb=bb&mid(aa,i,1)
exit for
end if
next
%>
<%=mid(aa,instr(aa,bb))%>