搜索列表
-
如何拒绝同一张表单被多次提交？
【编程10000问】如何拒绝同一张表单被多次提交？formtest.asp' 表单文件.<%Randomize ' 初始化随机数种子.num1=rnd()' 产生随机数.num1=int(26*num1)+65 ' 修改num1的范围,使其是A-Z范围的Ascii码,防止表单名出错.session("antry")="test"&chr(num1) ' 产生随机字符串.%><form name="test" action="testact.a...
|如何|何拒|拒绝|绝同|同一|一张|张表|表单|单被|被多|多次|次提|提交|交？|？| -
如何按时间显示最新标志
【编程10000问】<%mytime=rs("time") '数据库中保存时间nowtime=now() '当前时间if datediff("d",mytime,nowtime)<1 then '比较当前时间和数据库中时间，如相差小于1，即显示图片new.gif%><img src="images/new.gif"><%end if%>
|如何|何按|按时|时间|间显|显示|示最|最新|新标|标志|志| -
如何阻止别人非法链接你网站的图片？
【编程10000问】getimage.asp<% Option ExplicitDim strBuffer, FilePathstrBuffer = Request.ServerVariables("HTTP_REFERER")strBuffer = mid(strBuffer, InStr(strBuffer,".") + 1)strBuffer = left(strBuffer, InStr(strBuffer, "/") - 1)FilePath = "/HIDDENIMAGES/"If strBuffer = "i...
|如何|何阻|阻止|止别|别人|人非|非法|法链|链接|接你|你网|网站|站的|的图|图片|片？|？| -
如何在ASP里显示进度条？
【编程10000问】response.buffer=true' 应用缓存技术.dim lostnum' 防止dmax过大而dstep过小.dim shownumdelayshow(dstep,dmax)sub delayshow(dstep,dmax)' dmax表示要处理多少dmax(步)才能完成全过程，dstep表示已处理的占全过程的大致百分比. dim total ' 显示所有画面.dim dtemp ' 过渡变量.total=100dtemp=dstepdste...
|如何|何在|在A|AS|SP|P里|里显|显示|示进|进度|度条|条？|？| -
如何修改被表单引用的ASP页面？
【编程10000问】formhandler.asp<html><body><%Dim RequestMethod RequestMethod = Request.ServerVariables("REQUEST_ METHOD") ' 获取REQUEST_METHOD的数值,并把它存入本地的变量中.当Web页面被表单标记的Action参数调用时,REQUESTMETHOD的数值为Post.其他时候, ...
|如何|何修|修改|改被|被表|表单|单引|引用|用的|的A|AS|SP|P页|页面|面？|？| -
如何显示最后十名来访者？
【编程10000问】<%Application.LockIF NOT isArray( Application( "lastTen" ) ) THEN DIM dummy( 10, 3 ) Application( "lastTen" ) = dummy' 创建或者取得最近10个Application数组.END IF lastTen = Application( "lastTen" )Application.UnLockIF lastTen( 9, 0 ) <> ...
|如何|何显|显示|示最|最后|后十|十名|名来|来访|访者|者？|？| -
如何取得服务器上的用户组列表？
【编程10000问】domainname.asp<form method="POST"> 请输入域名:<input type="text" name="DomainName" size="20"> <input type="submit" value="提交" name="B1"> <input type="reset" value="重写" name="B2"></form><%if i...
|如何|何取|取得|得服|服务|务器|器上|上的|的用|用户|户组|组列|列表|表？|？| -
如何判断URL格式是否符合规范？
【编程10000问】<% function checkisUrl(tmpString) dim c,i checkisUrl = true tmpString=Lcase(trim(tmpString)) if left(tmpString,7)<>"http://" then tmpString="http://"&tmpString &n...
|如何|何判|判断|断U|UR|RL|L格|格式|式是|是否|否符|符合|合规|规范|范？|？| -
如何检测用户第一次访问我的网站并显示友好信息？
【编程10000问】< %@ LANGUAGE="VBscript" % >< % RequestName = Request.Form("Name")RequestLeaveMeAlone = Request.Form("LeaveMeAlone")If RequestName < >"" or RequestLeaveMeAlone < >"" then' 在同一个页面中检查表单变量. Response.Cooki...
|如何|何检|检测|测用|用户|户第|第一|一次|次访|访问|问我|我的|的网|网站|站并|并显|显示|示友|友好|好信|信息|息？|？| -
如何计算下载一个文件需要多长时间？
【编程10000问】<%Function DownloadTime(intFileSize, strModemType)Dim TimeInSeconds, ModemSpeed, strDownloadTime, AppendStringDim intYears, intWeeks, intDaysDim intHours, intMinutes, intSecondsintYears = 0intWeeks = 0intDays = 0intHours = 0intMinutes = 0intSeconds = 0strDow...
|如何|何计|计算|算下|下载|载一|一个|个文|文件|件需|需要|要多|多长|长时|时间|间？|？| -
如何动态添加Form项？
【编程10000问】<%@ language = vbscript%><% Response.Expires = 0 %><html><head><title>星河影动之动态添加Form项</title></head><body><%If Request("Action") = "提交列表" ThenResponse.Write "<B>提交的项:</B><BR>"...
|如何|何动|动态|态添|添加|加F|Fo|or|rm|m项|项？|？| -
如何把中文转换为UNICODE？
【编程10000问】<%function unicode(str)dim i,j,c,i1,i2,u,fs,f,punicode=""p=""for i=1 to len(str)c=mid(str,i,1)j=ascw(c)if j<0 thenj=j+65536end ifif j>=0 and j<=128 thenif p="c" thenunicode=" "&unicodep="e"end ifunicode=unicode&celseif p="e" thenunicode=unicode&" "p="c"end ifunicode...
|如何|何把|把中|中文|文转|转换|换为|为U|UN|NI|IC|CO|OD|DE|E？|？|
