<% Rem ==========论坛通用函数========= '页面错误提示信息 sub dvbbs_error() %>
xml:namespace prefix = table cellpadding=3 cellspacing=1 align=center class=tableborder1 style="width />
论坛错误信息 |
产生错误的可能原因:
您是否仔细阅读了帮助文件 ,可能您还没有登陆或者不具有使用当前功能的权限. <%=errmsg%> |
<%if not founduser then%> <%else%> "><< 返 回 上 一 页 |
<%end if%>
<% end sub sub dv
bbs_suc() %>
<% end sub
'rem 作用是注释 rem 过滤字符 function ChkBadWords(fString) dim bwords,ii if not(isnull(BadWords) or isnull(fString))
then bwords = split(BadWords, "|") for ii = 0 to ubound(b
words) fString = Replace(fString, bwords(ii), string(len(bwords(ii)),"*")) next ChkBadWords = fString end if end function Rem 过滤 HTML 代码 function HTMLEncode(fString) if not isnull(fString) then fString = replace(fString, ">", "&;gt;") fString = replace(fString, "<", "&;lt;") fString = Replace(fString, CHR(32), "&;nbsp;") fString = Replace(fString, CHR(9), "&;nbsp;") fString = Replace(fString, CHR(34), "&;quot;") fString = Replace(fString, CHR(39), "&;#39;") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) &; CHR(10), "
") fString = Replace(fString, CHR(10), "
") fString=ChkBadWords(fString) HTMLEncode = fString end if end function Rem 过滤表单字符 function HTMLcode(fString) if not isnull(fString) then fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) &; CHR(10), "
") fString = Replace(fString, CHR(10), "
") HTMLcode = fString end if end function '用户 IP 限制 function LockIP(sip)
dim str1,str2,str3,str4 dim num LockIP=