搜索列表
-
如何正确显示数据库里同时存在的GB码和BIG5码？
【编程10000问】Public Function CheckBIG(strSource As String) As BooleanDim idx As LongDim ByteTemp() As ByteCheckBIG = FalseFor idx = 1 To Len(strSource) ByteTemp = StrConv(Mid(strSource, idx, 1), vbFromUnicode) If UBound(ByteTemp) > 0 Then...
|如何|何正|正确|确显|显示|示数|数据|据库|库里|里同|同时|时存|存在|在的|的G|GB|B码|码和|和B|BI|IG|G5|5码|码？|？| -
如何把一长串数字分位显示？
【编程10000问】<%Function Comma(str)If Not(IsNumeric(str)) Or str = 0 Then Result = 0ElseIf Len(Fix(str)) < 4 Then Result = strElse Pos = Instr(1,str,".") If Pos > 0 Then Dec = Mid(str,Pos) End if Res = StrReverse(Fix(str)) ...
|如何|何把|把一|一长|长串|串数|数字|字分|分位|位显|显示|示？|？| -
如何编写一个小数转换分数的函数？
【编程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 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问】<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问】<%Dim objDC, objRSSet objDC = Server.CreateObject("ADODB.Connection")objDC.ConnectionTimeout = 15objDC.CommandTimeout = 30' 创建数据库连接objDC.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverI...
|如何|何用|用下|下拉|拉列|列表|表显|显示|示数|数据|据库|库里|里的|的内|内容|容？|？| -
如何使用数组来显示下拉菜单？
【编程10000问】Sub DoDropDown(Arr(), strSelName, onchange, strSelected, strexclude)Dim i if strSelected <> "" then swap arr, strSelected end if response.write "<select NAME...
|如何|何使|使用|用数|数组|组来|来显|显示|示下|下拉|拉菜|菜单|单？|？| -
如何实现在下拉菜单里输入文字？
【编程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问】如何利用数据库内容建立一个下拉式列表？<% myDSN="DSN=xur;uid=xur;pwd=xur"mySQL="select * from authors where AU_ID<100"set conntemp=server.createobject("adodb.connection")conntemp.open myDSNset rstemp=conntemp.execute(mySQL)if rstemp.eof thenresponse.write "噢,数据库...
|如何|何利|利用|用数|数据|据库|库内|内容|容建|建立|立一|一个|个下|下拉|拉式|式列|列表|表？|？| -
如何制作一个弹出式的调查窗口？
【编程10000问】 <% Dim bSurvey ' 是否显示调查表 const bID="1" ' 调查表的id bSurvey=false ' 检查调查表是否已经显示过. if instr(request.Cookies("s"),":" & bID & ":")=0 then ' 如果...
|如何|何制|制作|作一|一个|个弹|弹出|出式|式的|的调|调查|查窗|窗口|口？|？| -
如何控制弹出一个NTLM验证窗口？
【编程10000问】如何控制弹出一个NTLM验证窗口？<% Response.Status = "401 Unauthorized" Response.Addheader "WWW-Authenticate","NTLM" response.write "user=" & Request.ServerVariables("LOGON_USER") & "<br>" response.write "用户登录" response.end %>
|如何|何控|控制|制弹|弹出|出一|一个|个N|NT|TL|LM|M验|验证|证窗|窗口|口？|？|
