搜索列表
-
怎样使用Cookie跟踪来访者？
【编程10000问】<%Dim NumVisit' 声明变量.NumVisit = Request.Cookies("chunfeng")("totalvisit")' 检查用户来访问过多少次.If NumVisit = "" ThenNumVisit = 0End If' 如果是第一次来访,NumVisit 应为空,所以我们将NumVisit设为0.'*** Display how many times they have'*** visited your web page.Respo...
|怎样|样使|使用|用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...
|为什|什么|么用|用磁|磁盘|盘序|序列|列号|号加|加密|密过|过的|的代|代码|码不|不能|能被|被复|复制|制安|安装|装？|？| -
如何实现人民币的大写转换？
【编程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...
|如何|何准|准确|确地|地获|获得|得一|一个|个整|整数|数？|？| -
如何编写一个创建FTP站点的函数？
【编程10000问】如何编写一个创建FTP站点的函数？Function ASTCreateFtpSite(IPAddress, RootDirectory, ServerComment, HostName, PortNum, Computer, Start,LogFileDirectory) Dim MSFTPSVC, FtpServer, ...
|如何|何编|编写|写一|一个|个创|创建|建F|FT|TP|P站|站点|点的|的函|函数|数？|？| -
如何用FileSystemObject组件来做一个站内搜索？
【编程10000问】searchpage.htm' 搜索页面.<html><head> <title>千花飞舞之站内搜索引擎</title> </head> <body> <CENTER> &...
|如何|何用|用F|Fi|il|le|eS|Sy|ys|st|te|em|mO|Ob|bj|je|ec|ct|t组|组件|件来|来做|做一|一个|个站|站内|内 -
如何分页显示数据库查询结果？
【编程10000问】<% if Request.QueryString("PageNumber").count > 0 then ' 指定页号的参数PageNumber.如果指定页号,则以指定页号为依据. PageNumber = Request.QueryString("PageNumber")(1)elsePageNumber = 1' 如没指定页号,缺省为1.end ifRecordNumberPerPage = 10 ' 每页显示10条记录. set AR...
|如何|何分|分页|页显|显示|示数|数据|据库|库查|查询|询结|结果|果？|？| -
如何判断电子邮件的地址格式是否正确？
【编程10000问】第一种办法：<% Function IsValidEmail(Email) ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr ...
|如何|何判|判断|断电|电子|子邮|邮件|件的|的地|地址|址格|格式|式是|是否|否正|正确|确？|？| -
如何实现点击数的计算？
【编程10000问】counter.htm＜a href=counter.asp?save=123&url=http://127.0.0.1/＞http://127.0.0.1＜/a＞ 共点击次数：＜script src=view.asp?save=123＞＜/script＞ counter.asp＜% path="d:data" file=request("save") url=request("url") Set fs = CreateObject("Scripting.FileSystemObject") if fs.FileExists(path...
|如何|何实|实现|现点|点击|击数|数的|的计|计算|算？|？|
