搜索列表
-
如何提示用户打开Cookie？
【编程10000问】Dim strCookie, strTrystrCookie = Request.Cookies("MyCookie") strTry = Request.QueryString("Try") If strCookie = "" Then ' 检测否是设置了Cookie. If strTry = "" Then &n...
|如何|何提|提示|示用|用户|户打|打开|开C|Co|oo|ok|ki|ie|e？|？| -
如何获知所有的Cookie？
【编程10000问】1．撼雪喷云之显示Cookie<TABLE BORDER="2"> <Thead> <TH>Cookie名</TH> <TH>Cookie值</TH> ...
|如何|何获|获知|知所|所有|有的|的C|Co|oo|ok|ki|ie|e？|？| -
如何根据用户银行帐户余额的多少进行显式的提交或终止？
【编程10000问】<%@ transaction = required %><%response.buffer = true' 缓存输出,以显示不同的页面.%><html><body>欢迎使用千花飞舞之在线银行服务.<%set bankaction = server.createobject("myexample.bankcomponent")bankaction.deposit(request("acctnum"))%><p>您的提交的...
|如何|何根|根据|据用|用户|户银|银行|行帐|帐户|户余|余额|额的|的多|多少|少进|进行|行显|显式|式的|的提|提交|交或|或终|终止|止？|？| -
为什么用磁盘序列号加密过的代码不能被复制安装？
【编程10000问】default.asp＜html＞＜head＞＜title＞星河影动之磁盘序列号加密代码存取管理＜/title＞＜/head＞＜% dim conn,fs,fSet conn = Server.CreateObject("ADODB.Connection")conn.open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=3302;dbq="&server.mappath("id.mdb")set fs=server.createObj...
|为什|什么|么用|用磁|磁盘|盘序|序列|列号|号加|加密|密过|过的|的代|代码|码不|不能|能被|被复|复制|制安|安装|装？|？| -
如何用Access加密页面？
【编程10000问】<%userid = Request("userid")userpass = Request("userpass")Set conn = Server.CreateObject("ADODB.Connection")DBPath = Server.MapPath("userinfo.mdb")conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPathuserid=trim(userid)userpass=trim(userpass)sql="sele...
|如何|何用|用A|Ac|cc|ce|es|ss|s加|加密|密页|页面|面？|？| -
怎样给文件加密最安全？
【编程10000问】<%@ Language = VBScript%><%Response.Expires = 0p = "abcdefg"Set TestPWD = New CPassWordTestPWD.EnPWD pTestPWD.UnPWD TestPWD.ShowPWD(True)k = TestPWD.ShowPWD(True)l = TestPWD.ShowPWD(False)Set TestPWD = NothingWith Resp...
|怎样|样给|给文|文件|件加|加密|密最|最安|安全|全？|？| -
如何实现人民币的大写转换？
【编程10000问】第一个办法，这个程序可以进行万亿以下的货币金额转换（够用的了吧），其中汉字与数字均按一位计：Function AtoC(a As Currency) As String ' 定义两个字符串，A的值最多是两位小数. Dim String1 As String ' 如下定义. Dim String2 As String&...
|如何|何实|实现|现人|人民|民币|币的|的大|大写|写转|转换|换？|？| -
如何把一长串数字分位显示？
【编程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 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...
|如何|何验|验证|证字|字符|符串|串是|是否|否包|包含|含有|有效|效字|字符|符？|？|
