搜索列表
-
如何编写一个小数转换分数的函数？
【编程10000问】Public Function XtoF(str As Currency, Optional fenm As Integer = 32) As String ' 只限于整除分数. Dim Cfm As Currency Dim cfmmod As Integer On Error GoTo Erroreof Cfm = 1 / fenm XtoF = "" If str = 0 Then XtoF = "": Exit Functi...
|如何|何编|编写|写一|一个|个小|小数|数转|转换|换分|分数|数的|的函|函数|数？|？| -
如何准确地获得一个整数？
【编程10000问】如何准确地获得一个整数？function NumbersOnlyNoDecimals(pInString) lNumbersOnly = "" for x = 1 to len(pInString) y = (len(pInString)-x+1) if isNumeric(mid(pInString, y,1)) then lNumbersOnly = lN...
|如何|何准|准确|确地|地获|获得|得一|一个|个整|整数|数？|？| -
如何检测字符串出现的次数？
【编程10000问】如何检测字符串出现的次数？Function CheckTheChar(TheChar,TheString)' TheChar="要检测的字符串".' TheString="待检测的字符串".if inStr(TheString,TheChar) thenfor n =1 to Len(TheString)if Mid(TheString,n,Len(TheChar))=TheChar then CheckTheChar=CheckTheChar+1End ifNextChec...
|如何|何检|检测|测字|字符|符串|串出|出现|现的|的次|次数|数？|？| -
如何验证字符串是否包含有效字符？
【编程10000问】<%FUNCTION TestString(SomeString)TempString = trIM(SomeString)TempString_Length = Len(TempString)TempString_OK = trueFOR TempString_Pos = 1 TO TempString_Length TempString_Char = Mid(TempString,TempString_Pos) TempString_Cha...
|如何|何验|验证|证字|字符|符串|串是|是否|否包|包含|含有|有效|效字|字符|符？|？| -
如何测试字符串的长度？
【编程10000问】如何测试字符串的长度？Function CheckStringLength(txt) txt=trim(txt) x = len(txt) y = 0 for ii = 1 to x if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then &...
|如何|何测|测试|试字|字符|符串|串的|的长|长度|度？|？| -
如何制作关联的下拉菜单？
【编程10000问】<form name=f1 METHOD="POST"><%OpenDB objConn, "xxxx"Set RSClass = objConn.Execute("select * from class Order by fldClass")If RSClass.EOF Then Response.Write "噢,没有记录!<BR>"ElseResponse.Write "<select NAME=""class"" style=""FONT-S...
|如何|何制|制作|作关|关联|联的|的下|下拉|拉菜|菜单|单？|？| -
如何实现在下拉菜单里输入文字？
【编程10000问】如何实现在下拉菜单里输入文字？<script>function pp(){se.options[2]=new Option(ok=(se.options[2])?se.options[2].innerText+String.fromCharCode(event.keyCode):String.fromCharCode(event.keyCode),"client")se.selectedIndex=2;}function edit(){if(se.options[2]){if(event.keyCode==8){var str=...
|如何|何实|实现|现在|在下|下拉|拉菜|菜单|单里|里输|输入|入文|文字|字？|？| -
如何做一个检索结果带链接的检索？
【编程10000问】如何做一个检索结果带链接的检索？<% data=request.form("search_data") ' 从FORM变量集得到要查询的文件名称所要包含的字符串 p=search_folder(data,"http://jack/cgi-bin","c:\intels\wwwroot\cgi-bin") ' 调用函数查询目标查询目录下的所有子目录(所有子树),方法:search_folder(要查询的字符串,查询目标的虚拟绝...
|如何|何做|做一|一个|个检|检索|索结|结果|果带|带链|链接|接的|的检|检索|索？|？| -
如何终止浏览器的Cahce页面？
【编程10000问】如何终止浏览器的Cahce页面？ Function Redirect( NewURL ) If Not IsEmpty( NewURL & "" ) ThenDim QuestionMark QuestionMark = Instr( NewURL, "?" )If QuestionMark = 0 ThenResponse.Redirect NewURL & "?" & NoCacheURL()Response.End ElseRespo...
|如何|何终|终止|止浏|浏览|览器|器的|的C|Ca|ah|hc|ce|e页|页面|面？|？| -
如何实现非大小写的替换？
【编程10000问】如何实现非大小写的替换？Function ReplaceNoIgnoreCase(str,replStr) If len(replStr)<1 or str="" Then ReplaceTest=str Exit function End If ...
|如何|何实|实现|现非|非大|大小|小写|写的|的替|替换|换？|？| -
如何编写一个创建FTP站点的函数？
【编程10000问】如何编写一个创建FTP站点的函数？Function ASTCreateFtpSite(IPAddress, RootDirectory, ServerComment, HostName, PortNum, Computer, Start,LogFileDirectory) Dim MSFTPSVC, FtpServer, ...
|如何|何编|编写|写一|一个|个创|创建|建F|FT|TP|P站|站点|点的|的函|函数|数？|？| -
如何编写一个过滤掉HTML代码的函数？
【编程10000问】如何编写一个过滤掉HTML代码的函数？<%Function Filterhtml(strToFilter) Dim strTemp strTemp = strToFilter While Instr(1,strTemp,"<") AND Instr(1, strTemp, ">") strTemp = Left(strTemp, Instr(1, strTemp, "<")-1) & Rig...
|如何|何编|编写|写一|一个|个过|过滤|滤掉|掉H|HT|TM|ML|L代|代码|码的|的函|函数|数？|？|
