qq.asp

来自「模块及功能： 1.汽车新闻 分类.查询.翻页 2.出售信息 搜索.评」· ASP 代码 · 共 31 行

<%

Function CheckString(String1)
    Dim TempStr, Length, Result, I, Char, Ascii
    TempStr = TRIM(String1)
    Length = Len(TempStr)
    Result = False
    For I = 1 To Length
        Char = Mid(TempStr,I,1)
        Ascii = Asc(Char)
        If  (Ascii > 47 and ascii< 58) Then    
            Result = True
        Else
            Result = False
            	Exit For
        End If
    Next
    CheckString = Result
End Function


 qq=trim(request("qq")) 
 if qq <> "" then
 %>
<%
if len(qq) <5 or len(qq) >15  then
%>
<b><font color="#FF0000">脳</b>QQ鍙风爜闀垮害5-15 瀛楃