• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号
登陆 注册
OGeek|极客世界-中国程序员成长平台 › 门户 › 编程› 综合其他›编程千万问

编程千万问

RSS
  • 可以在线创建文件夹吗？
    可以在线创建文件夹吗？
    folder.htmhtmlheadtitle闪亮日子之在线创建文件夹/title/headbody春风精彩br在线创建文件夹/td tr td height="28"form name="form1" method="post" action="creatfolder.asp"div align="center"centerp新建文件夹:i ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：227 | 回复：0
  • 怎样使用Cookie跟踪来访者？
    怎样使用Cookie跟踪来访者？
    %Dim NumVisit' 声明变量.NumVisit = Request.Cookies("chunfeng")("totalvisit")' 检查用户来访问过多少次.If NumVisit = "" ThenNumVisit = 0End If' 如果是第一次来访,NumVisit 应为空,所以我们将NumVisit设为0.' ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：208 | 回复：0
  • 如何在Flash中处理Cookies？
    如何在Flash中处理Cookies？
    testCookies.asp' 检查浏览器是否接受Cookies.%strTest = Request.QueryString("CookieTest")If UCase(strTest) Ucase("true") ThenSession("__FlashCookieTest") = True' 第一次呼叫.设置session变量.' 用QueryStr ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：174 | 回复：0
  • 如何在ASP中恰当地运用Cookies？
    如何在ASP中恰当地运用Cookies？
    remberme.asp' 用户提交个人信息.％response.Cookies("information")("姓名")=request.form("name")response.Cookies("information")("顾客号")=request.form("id")response.Cookies("information")("来自"……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：178 | 回复：0
  • 如何决定是否将登录内容保存到Cookie里？
    如何决定是否将登录内容保存到Cookie里？
    login.htm% @ Language=&#106avascript %%if (Request.Cookies("SavedLogin").HasKeys) { Response.Redirect("checklogin.asp?Cookie=1")}%htmlheadtitle精彩春风之登录页面/title/headbody我要登录随风起舞FORM AC ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：166 | 回复：0
  • 如何用Cookie进行登录验证？
    如何用Cookie进行登录验证？
    login.htm请注册登录随风起舞FORM ACTION="checklogin.asp" METHOD="POST" 电子邮件: input TYPE="Text" NAME="email" SIZE="40" 密码: input TYPE="Password" NAME="Password" SIZE="40" input TYPE=&……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：171 | 回复：0
  • 如何让用户再次访问我的网站时不需再提交相关信息？
    如何让用户再次访问我的网站时不需再提交相关信息？
    %@ LANGUAGE="VBscript" % % Chunfeng=Request.Cookies("Chunfeng")' 初始设置页面,读取名字为Chunfeng的Cookie值.If Chunfeng ="" then' 判断是否已经存在Cookie值. Response.Cookies("Chunfeng")="x" Response.Co ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：180 | 回复：0
  • 如何刪除客户端的Cookies？
    如何刪除客户端的Cookies？
    %@ Language=VBScript %%Option Explicitresponse.buffer=trueDim objCookieResponse.Write "春风精彩之不可告人删除CookieSBR"For Each objCookie In Request.CookiesResponse.Cookies(objCookie).Expires = "1，1 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：158 | 回复：0
  • 如何提示用户打开Cookie？
    如何提示用户打开Cookie？
    Dim strCookie, strTrystrCookie = Request.Cookies("MyCookie") strTry = Request.QueryString("Try") If strCookie = "" Then ' 检测否是设置了Cookie.If strTry = "" Then Response.Cookies("MyCookie") = "Set ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：177 | 回复：0
  • 如何获知所有的Cookie？
    如何获知所有的Cookie？
    1．撼雪喷云之显示CookieTABLE BORDER="2" Thead THCookie名/TH THCookie值/TH TH删除Cookie/TH /Thead%Dim Item % tr td% = Item %/td td% = Request.Cookies(Item) %/td td ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：177 | 回复：0
  • 如何根据用户银行帐户余额的多少进行显式的提交或终止？
    如何根据用户银行帐户余额的多少进行显式的提交或终止？
    %@ transaction = required %%response.buffer = true' 缓存输出,以显示不同的页面.%htmlbody欢迎使用千花飞舞之在线银行服务.%set bankaction = server.createobject("myexample.bankcomponent")bankaction.deposit ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：159 | 回复：0
  • 为什么用磁盘序列号加密过的代码不能被复制安装？
    为什么用磁盘序列号加密过的代码不能被复制安装？
    default.asp＜html＞＜head＞＜title＞星河影动之磁盘序列号加密代码存取管理＜/title＞＜/head＞＜% dim conn,fs,fSet conn = Server.CreateObject("ADODB.Connection")conn.open "driver={Microsoft Access Driver ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：141 | 回复：0
  • 如何用Access加密页面？
    如何用Access加密页面？
    %userid = Request("userid")userpass = Request("userpass")Set conn = Server.CreateObject("ADODB.Connection")DBPath = Server.MapPath("userinfo.mdb")conn.Open "driver={Microsoft Access Driver (*.mdb)};db ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：151 | 回复：0
  • 怎样给文件加密最安全？
    怎样给文件加密最安全？
    %@ 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 = N ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：150 | 回复：0
  • 如何实现人民币的大写转换？
    如何实现人民币的大写转换？
    第一个办法，这个程序可以进行万亿以下的货币金额转换（够用的了吧），其中汉字与数字均按一位计：Function AtoC(a As Currency) As String ' 定义两个字符串，A的值最多是两位小数. Dim String1 As String ' 如 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：161 | 回复：0
  • 如何正确显示数据库里同时存在的GB码和BIG5码？
    如何正确显示数据库里同时存在的GB码和BIG5码？
    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) I ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：161 | 回复：0
  • 如何把一长串数字分位显示？
    如何把一长串数字分位显示？
    %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( ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：168 | 回复：0
  • 如何编写一个小数转换分数的函数？
    如何编写一个小数转换分数的函数？
    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 Th ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：169 | 回复：0
  • 如何准确地获得一个整数？
    如何准确地获得一个整数？
    如何准确地获得一个整数？function NumbersOnlyNoDecimals(pInString) lNumbersOnly = "" for x = 1 to len(pInString) y = (len(pInString)-x+1) if isNumeric(mid(pInString, y,1)) then lNumbersOnly = lNumbers ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：160 | 回复：0
  • 如何检测字符串出现的次数？
    如何检测字符串出现的次数？
    如何检测字符串出现的次数？Function CheckTheChar(TheChar,TheString)' TheChar="要检测的字符串".' TheString="待检测的字符串".if inStr(TheString,TheChar) thenfor n =1 to Len(TheString)if Mid(TheString,n,L ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：170 | 回复：0
  • 如何验证字符串是否包含有效字符？
    如何验证字符串是否包含有效字符？
    %FUNCTION TestString(SomeString)TempString = trIM(SomeString)TempString_Length = Len(TempString)TempString_OK = trueFOR TempString_Pos = 1 TO TempString_Length TempString_Char = Mid(TempString,TempStr ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：160 | 回复：0
  • 如何测试字符串的长度？
    如何测试字符串的长度？
    如何测试字符串的长度？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 ' 如果是中文. y = y + 2 el ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：159 | 回复：0
  • 如何制作关联的下拉菜单？
    如何制作关联的下拉菜单？
    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 NAM ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：167 | 回复：0
  • 如何在读取Excel文件时创建列表的下拉菜单？
    如何在读取Excel文件时创建列表的下拉菜单？
    select name="XlSheet" %vOptions = " option /option "Do While Not oSchemaRs.EOF If oSchemaRs("TABLE_TYPE") = "SYSTEM TABLE" Then vOptions = vOptions " option " _ Server.htmlEncode(oSchemaRs( ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：163 | 回复：0
  • 如何用下拉列表显示数据库里的内容？
    如何用下拉列表显示数据库里的内容？
    %Dim objDC, objRSSet objDC = Server.CreateObject("ADODB.Connection")objDC.ConnectionTimeout = 15objDC.CommandTimeout = 30' 创建数据库连接objDC.Open "DBQ=" Server.MapPath("database.mdb") ";Driver={Mi ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：156 | 回复：0
  • 如何使用数组来显示下拉菜单？
    如何使用数组来显示下拉菜单？
    Sub DoDropDown(Arr(), strSelName, onchange, strSelected, strexclude)Dim i if strSelected "" then swap arr, strSelected end if response.write "select NAME='" strSelName "' SIZE=1 ONCHANGE ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：149 | 回复：0
  • 如何实现在下拉菜单里输入文字？
    如何实现在下拉菜单里输入文字？
    如何实现在下拉菜单里输入文字？scriptfunction pp(){se.options=new Option(ok=(se.options)?se.options.innerText+String.fromCharCode(event.keyCode):String.fromCharCode(event.keyCode),"client")se.selectedI ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：152 | 回复：0
  • 如何利用数据库内容建立一个下拉式列表？
    如何利用数据库内容建立一个下拉式列表？
    如何利用数据库内容建立一个下拉式列表？% myDSN="DSN=xur;uid=xur;pwd=xur"mySQL="select * from authors where AU_ID100"set conntemp=server.createobject("adodb.connection")conntemp.open myDSNset rstemp=con ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：151 | 回复：0
  • 如何制作一个弹出式的调查窗口？
    如何制作一个弹出式的调查窗口？
    % Dim bSurvey ' 是否显示调查表 const bID="1" ' 调查表的id bSurvey=false ' 检查调查表是否已经显示过. if instr(request.Cookies("s"),":" bID ":")=0 then ' 如果调查表没有显示,更新Cookie response ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：163 | 回复：0
  • 如何控制弹出一个NTLM验证窗口？
    如何控制弹出一个NTLM验证窗口？
    如何控制弹出一个NTLM验证窗口？% Response.Status = "401 Unauthorized" Response.Addheader "WWW-Authenticate","NTLM" response.write "user=" Request.ServerVariables("LOGON_USER") "br" response.write "用 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：157 | 回复：0
  • 如何让一个方框栏内的文字滚动显示？
    如何让一个方框栏内的文字滚动显示？
    如何让一个方框栏内的文字滚动显示？!-- #include file="news.inc" --%dim NewsStr(1,5)NewsStr(0,0)="下载本栏链接" NewsStr(1,0)="http://www.intels.net/"NewsStr(0,1)="中国水利水电出版社"NewsStr(1,1)="http:/ ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：162 | 回复：0
  • 如何做一个检索结果带链接的检索？
    如何做一个检索结果带链接的检索？
    如何做一个检索结果带链接的检索？% data=request.form("search_data") ' 从FORM变量集得到要查询的文件名称所要包含的字符串 p=search_folder(data,"http://jack/cgi-bin","c:\intels\wwwroot\cgi-bin") ' 调用函数 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：162 | 回复：0
  • 如何终止浏览器的Cahce页面？
    如何终止浏览器的Cahce页面？
    如何终止浏览器的Cahce页面？Function Redirect( NewURL ) If Not IsEmpty( NewURL "" ) ThenDim QuestionMark QuestionMark = Instr( NewURL, "?" )If QuestionMark = 0 ThenResponse.Redirect NewURL "?" NoCac ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：152 | 回复：0
  • 如何实现非大小写的替换？
    如何实现非大小写的替换？
    如何实现非大小写的替换？Function ReplaceNoIgnoreCase(str,replStr) If len(replStr)1 or str="" Then ReplaceTest=str Exit function End If Dim LoopN LoopN=1 Dim TmpStr,inStrN,LenreplSt ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：149 | 回复：0
  • 如何编写一个加法器？
    如何编写一个加法器？
    如何编写一个加法器？form action="./calculation.asp"input type="text" size="1" name="op1 value=%Response.Write Request("op1")%input type="submit" name="operation value="plus"input type="text&……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：173 | 回复：0
  • 如何编写一个创建FTP站点的函数？
    如何编写一个创建FTP站点的函数？
    如何编写一个创建FTP站点的函数？FunctionASTCreateFtpSite(IPAddress,RootDirectory,ServerComment,HostName,PortNum,Computer,Start,LogFileDirectory)DimMSFTPSVC,FtpServer,NewFtpServer,NewDirDimBindings,Bind ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：175 | 回复：0
  • 如何编写一个过滤掉HTML代码的函数？
    如何编写一个过滤掉HTML代码的函数？
    如何编写一个过滤掉HTML代码的函数？%Function Filterhtml(strToFilter) Dim strTemp strTemp = strToFilter While Instr(1,strTemp,"") AND Instr(1, strTemp, "") strTemp = Left(strTemp, Instr(1, strTemp, "") ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：155 | 回复：0
  • 如何将访问者数目周期性地保存？
    如何将访问者数目周期性地保存？
    如何将访问者数目周期性地保存？script LANGUAGE="VBScript" RUNAT="Server"SUB Session-OnStart...Application.LockApplication("visitors")=Application("visitors") + 1' 增加访问计数t-visitors = Application( ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：175 | 回复：0
  • 如何在ASP里建立表格？
    如何在ASP里建立表格？
    如何在ASP里建立表格？% Dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DSN=blah" ' 建立连接Dim strSQL strSQL = "CREATE TABLE test (name varchar(50), age int)" conn.Execute strSQ ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：186 | 回复：0
  • 如何在ADSI中查询用户属性？
    如何在ADSI中查询用户属性？
    如何在ADSI中查询用户属性？%Dim x On error resume next'Set x = GetObject("WinNT://kenfilszwin2k/allen")strLDAP="LDAP://kenfilszwin2k/CN=Allen He,OU=kenfilsz,dc=kenfilsz,dc=com"set x=getobject(strLDAP)R ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：176 | 回复：0
热门推荐
More+
专题导读
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap