2今日新增: 0 篇
2本月新增: 300 篇
2今年新增: 1700 篇
2共有文章: 27600 篇
&总浏览: 133004 次
|
|
FunctionHTMLDecode(ByValreString)DimStr:Str=reStringIfNotIsNull(Str)ThenStr=Replace(Str,'','')Str=Replace(Str,'','')Str=Replace(Str,'',CHR(9... |
发表时间:2021-11-27 |
点击数:9 |
查看全文 |
FunctionHTMLEncode(ByValreString)DimStr:Str=reStringIfNotIsNull(Str)ThenStr=Replace(Str,'','')Str=Replace(Str,'','')Str=Replace(Str,CHR(9),'... |
发表时间:2021-11-27 |
点击数:5 |
查看全文 |
FunctionUnCheckStr(ByValStr)IfIsNull(Str)ThenUnCheckStr=''ExitFunctionEndIfStr=Replace(Str,''',''')Str=Replace(Str,''','''')DimreSetre=newRe... |
发表时间:2021-11-27 |
点击数:1 |
查看全文 |
'****************************************************'函数名:CutStr'作用:字符串长度切割,超过显示省略号'参数:str----字符串内容'strlen------要显示的长度'返回值:切割后字符串内容'********... |
发表时间:2021-11-22 |
点击数:2 |
查看全文 |
functionshowrnd(x,y)'第一个参数要得到多少个数,第二个指定最ifyxthenexitfunctionendifredimn(x)dimi,qdimisokfori=1to10Randomizen(i)=round((y-1)*Rnd)+1isok=falsed... |
发表时间:2021-11-22 |
点击数:2 |
查看全文 |
'*************************************'检测是否有效的数字'*************************************FunctionIsInteger(Para)IsInteger=FalseIfNot(IsNull(Par... |
发表时间:2021-11-18 |
点击数:6 |
查看全文 |
'*************************************'防止外部提交'*************************************functionChkPost()dimserver_v1,server_v2chkpost=falseserve... |
发表时间:2021-11-18 |
点击数:7 |
查看全文 |
foreachitemsinrequest.formexecuteitems'='''server.HTMLEncode(request.Form(items))''''next... |
发表时间:2021-11-13 |
点击数:9 |
查看全文 |
1、备份%SQL='backupdatabase数据库名todisk=''Server.MapPath('backup')'\\''backuptext.dat''''setcnn=Server.createobject('adodb.connection')cnn.open'd... |
发表时间:2021-11-13 |
点击数:8 |
查看全文 |
普通的替换函数:%publicfunctionHighLight(S,F)dimtL,tM,tR,ktL=''tM=''tR=Sk=instr(1,tR,F,1)dowhilek0tL=tLleft(tR,k-1)tM=mid(tR,k,len(F))tL=tL'spanstyl... |
发表时间:2021-11-12 |
点击数:2 |
查看全文 |
|