系统对SQL标签支持条件判断,非常方便,但是{$IF()}中,"IF"必须是大写,虽然有"regEx.IgnoreCase = True"但还是必须使用大写"IF"才有效,不信大家可以试试

修改方法:

KS_Cls/Kesion.Label.SQLCls.asp

找到

FieldParam    = Replace(Replace(Match.Value,"{$IF(",""),")}","")

修改为

FieldParam    = Replace(Replace(Match.Value,"{$IF(","",1,-1,1),")}","")

TempStr=Replace(TempStr,"{$IF(" &FieldParam &")}",ReturnFieldValue)

改为

TempStr=Replace(TempStr,"{$IF(" &FieldParam &")}",ReturnFieldValue,1,-1,1)

增加SQL标签对简单ASP代码的支持:

1、在Conn.asp中增加两个常量

Const ShowASPEvalError=1    '用{$ASP()}解析ASP语法时是否显示错误信息
Const EvalASPErrorPrev="解析ASP："  '用{$ASP()}解析ASP语法错误时显示错误信息的前缀

2、在KS_Cls/Kesion.Label.SQLCls.asp中增加一个函数:

Function ReplaceASP(byval str)
Dim regEx, Matches, Match, TempStr
Dim FieldParam,ReturnFieldValue,I
on error resume next
Set regEx = New RegExp
regEx.Pattern = "{\$ASP\([^{\$}]*\)}"
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(str)
TempStr=str
For Each Match In Matches
FieldParam= Replace(Replace(Match.Value,"{$ASP(","",1,-1,1),")}","")
ReturnFieldValue=eval(FieldParam)
if err.number<>0 and ShowASPEvalError=1 then
ReturnFieldValue=EvalASPErrorPrev&Err.Description
end if
TempStr=Replace(TempStr,"{$ASP(" &FieldParam &")}",ReturnFieldValue,1,-1,1)
Next
ReplaceASP=TempStr
End Function

找到

CleanLabel=ReplaceCondition(Replace(Content,"$KS:Page$",vbcrlf))

改为

CleanLabel=ReplaceASP(ReplaceCondition(Replace(Content,"$KS:Page$",vbcrlf)))

这样，就可以在SQL标签中这样使用：

[loop=10]
{$if(len("{$Field(FolderName,Text,0,...,0,)}")>0 and {$Field(TJ,Num,0,2)}>1||"哈哈"||"呵呵")}<br/>
{$asp(DatePart("yyyy",Now()))}
[/loop]

效果如下：

此主题相关图片如下：001.jpg

{$asp()}只支持变量值或带返回内容的函数或过程，如：now()、Date()、Request.Form、Request.QueryString、Request.ServerVariables等

暂时用不着．先做记号了

貌似蛮实用.....

我来随便看看  呵呵

最热门的小说极品家丁 金庸世界里的道士 异界重生之打造快乐人生