页进行管理操作:
7、空格输出问题的解决
在中加入代码:
functionDoWhiteSpace(str)
DoWhiteSpace=Replace((Replace(str,vbCrlf,"")),chr(32)&chr(32),"")
EndFunction
然后在要输出的地方加入代码:
<%=DoWhiteSpace(Server.HTMLEncode(要输出的变量)%>
8、转到详细页面:
<%
DimMM_paramNam,MM_keepNone,MM_keepURL,MM_keepFormMM_keepBoth,MM_removeList,MM_item,MM_nextItem
MM_removeList="&index="
If(MM_paramName<>"")Then
MM_removeList=MM_removeList&"&"&MM_paramName&"="
EndIf
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
ForEachMM_itemInRequest.QueryString
MM_nextItem="&"&MM_item&"="
If(InStr(1,MM_removeList,MM_nextItem,1)=0)Then
MM_keepURL=MM_keepURL&MM_nextItem&Server.URLencode(Request.QueryString(MM_item))
EndIf
Next
ForEachMM_itemInRequest.Form
MM_nextItem="&"&MM_item&"="
If(InStr(1,MM_removeList,MM_nextItem,1)=0)Then
MM_keepForm=MM_keepForm&MM_nextItem&Server.URLencode(Request.Form(MM_item))
EndIf
Next
MM_keepBoth=MM_keepURL&MM_keepForm
If(MM_keepBoth<>"")Then
MM_keepBoth=Right(MM_keepBoth,Len(MM_keepBoth)-1)
EndIf
If(MM_keepURL<>"")Then
MM_keepURL=Right(MM_keepURL,Len(MM_keepURL)-1)
EndIf
If(MM_keepForm<>"")Then
MM_keepForm=Right(MM_keepForm,Len(MM_keepForm)-1)
EndIf
FunctionMM_joinChar(firstItem)
If(firstItem<>"")Then
MM_joinChar="&"
Else
MM_joinChar=""
EndIf
EndFunction
%>
">转到详细页面的链接
9、滚动字幕实现