📄 jk_ubb.asp

📁 漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目
💻 ASP
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
strer=re.Replace(strer,"$1<hr noshade size=1><font class=red_3>此内容要求&nbsp;"&power_pic(0,up1,0)&"&nbsp;的权限才可以浏览</font><hr noshade size=1>$6")
else
if login_mode="admin" or u_username=login_username or up2=<ii then
strer=re.Replace(strer,"$1<hr noshade size=1>以下为需要&nbsp;"&power_pic(0,up1,0)&"&nbsp;的权限才能浏览的内容<BR>$4<hr noshade size=1>$6")
else
strer=re.Replace(strer,"$1<hr noshade size=1><font class=red_3>此内容要求&nbsp;"&power_pic(0,up1,0)&"&nbsp;的权限才可以浏览</font><hr noshade size=1>$6")
end if
end if
'.........................................权限可见结束.......................................... 
'.........................................指定可见开始.......................................... 

if instr(lcase(strer),"[/name]")>0 then
  re.Pattern="(^.*)(\[name=(.[^\[]*)\])(.*)(\[\/name\])(.*)"
  po=re.replace(strer,"$3")
    if login_mode="admin" or u_username=login_username or zdtusers(po)="yes" then
      strer=re.Replace(strer,"$1<hr noshade size=1>此內容只有作者、 <B>$3</B> 及管理员才能浏览。<BR>$4<hr noshade size=1>$6")
    else
      strer=re.Replace(strer,"$1<hr noshade size=1><font class=red>此內容只有作者、 <font class=blue><b>$3</b></font> 及管理员才能浏览。</font><BR><hr noshade size=1>$6")
  end if
end if
'.........................................指定可见结束.........................................
 
  '================================

  set re=Nothing

  strer=replace(strer,"[br]","<br>")
  strer=replace(strer,"[BR]","<br>")
  strer=replace(strer,vbCrLf,"<br>")
  strer=replace(strer,"max-width",web_var(web_num,9))
  strer=replace(strer,"max-height",web_var(web_num,10))
  code_jk=strer
end function

function code_jk2(strers)
  dim strer:strer=strers
  if strer="" or isnull(strer) then code_jk2="":exit function
  
  strer=health_var(strer,1)
  
  strer=replace(strer,"<","&lt;")
  strer=replace(strer,">","&gt;")
  strer=replace(strer," ","&nbsp")		'空格
  strer=replace(strer,CHR(9),"&nbsp")		'table
  strer=replace(strer,"'","&#39;")		'单引号
  strer=replace(strer,"""","&quot;")		'双引号
  'code_jk2=strer:exit function
  dim re,re_v
  re_v="[^\(\)\;\'\[]*"
  're_v=".[^\[]*"
  Set re=new RegExp
  re.IgnoreCase =True
  re.Global=True
  
  re.Pattern="(javascript:)"
  strer=re.Replace(strer,"javascript：")
  re.Pattern="(javascript)"
  strer=re.Replace(strer,"&#106avascript")
  re.Pattern="(jscript:)"
  strer=re.Replace(strer,"&#106script:")
  re.Pattern="(js:)"
  strer=re.Replace(strer,"&#106s:")
  re.Pattern="(value)"
  strer=re.Replace(strer,"&#118alue")
  re.Pattern="(about:)"
  strer=re.Replace(strer,"about&#58")
  re.Pattern="(file:)"
  strer=re.Replace(strer,"file&&#58")
  re.Pattern="(document.cookie)"
  strer=re.Replace(strer,"documents&#46cookie")
  re.Pattern="(document.)"
  strer=re.Replace(strer,"document．")
  re.Pattern="(vbscript:)"
  strer=re.Replace(strer,"&#118bscript:")
  re.Pattern="(vbs:)"
  strer=re.Replace(strer,"&#118bs &#58")
  re.Pattern="(on(mouse|exit|error|click|key))"
  strer=re.Replace(strer,"&#111n$2")
  
  re.Pattern="\[IMG\](.[^\[]*(gif|jpg|jpeg|bmp|png))\[\/IMG\]"
  're.Pattern="\[IMG\](http|https|ftp):\/\/(.[^\[]*)\[\/IMG\]"
  strer=re.Replace(strer,"<IMG SRC='$1' align=center border=0 onload=""javascript:if(this.width>screen.width-250)this.width=screen.width-250"">")
  re.Pattern="(\[URL\])(.[^\[]*)(\[\/URL\])"
  strer=re.Replace(strer,"<A HREF='$2' TARGET=_blank>$2</A>")
  re.Pattern="(\[URL=(.[^\[]*)\])(.[^\[]*)(\[\/URL\])"
  strer=re.Replace(strer,"<A HREF='$2' TARGET=_blank>$3</A>")
  re.Pattern="(\[EMAIL\])(\S+\@.[^\[]*)(\[\/EMAIL\])"
  strer=re.Replace(strer,"<img align=absmiddle src=images/small/email.gif><A HREF=""mailto:$2"">$2</A>")
  re.Pattern="(\[EMAIL=(\S+\@.[^\[]*)\])(.[^\[]*)(\[\/EMAIL\])"
  strer=re.Replace(strer,"<img align=absmiddle src=images/small/email.gif><A HREF=""mailto:$2"" TARGET=_blank>$3</A>")
  re.Pattern="\[face=(.[^\[]*)\](.[^\[]*)\[\/face\]"
  strer=re.Replace(strer,"<font face=$1>$2</font>")
  re.Pattern="\[size=([1-4])\](.[^\[]*)\[\/size\]"
  strer=re.Replace(strer,"<font size=$1>$2</font>")
  re.Pattern="\[color=(.[^\[]*)\](.[^\[]*)\[\/color\]"
  strer=re.Replace(strer,"<font color=$1>$2</font>")
  re.Pattern="\[align=(.[^\[]*)\](.[^\[]*)\[\/align\]"
  strer=re.Replace(strer,"<div align=$1>$2</div>")
  re.Pattern="\[align=(.[^\[]*)\](.*)\[\/align\]"
  strer=re.Replace(strer,"<div align=$1>$2</div>")
  re.Pattern="\[center\](.[^\[]*)\[\/center\]"
  strer=re.Replace(strer,"<div align=center>$1</div>")
  re.Pattern="\[fly\](.[^\[]*)\[\/fly\]"
  strer=re.Replace(strer,"<marquee width=90% behavior=alternate scrollamount=3>$1</marquee>")
  re.Pattern="\[move\](.[^\[]*)\[\/move\]"
  strer=re.Replace(strer,"<MARQUEE scrollamount=3>$1</marquee>")  
  re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/GLOW]"
  strer=re.Replace(strer,"<table width=$1 style=""filter:glow(color=$2, strength=$3)"">$4</table>")
  re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/SHADOW]"
  strer=re.Replace(strer,"<table width=$1 style=""filter:shadow(color=$2, strength=$3)"">$4</table>")
  re.Pattern="\[i\](.[^\[]*)\[\/i\]"
  strer=re.Replace(strer,"<i>$1</i>")
  re.Pattern="\[u\](.[^\[]*)(\[\/u\])"
  strer=re.Replace(strer,"<u>$1</u>")
  re.Pattern="\[b\](.[^\[]*)(\[\/b\])"
  strer=re.Replace(strer,"<b>$1</b>")

  set re=Nothing
  
  dim emci
  for emci=1 to 16
    strer=Replace(strer,"[em"&emci&"]","<image src='images/icon/em"&emci&".gif' border=0>&nbsp;")
  next
  for emci=1 to 28
    strer=Replace(strer,"[emb"&emci&"]","<image src='images/icon/emb"&emci&".gif' border=0>&nbsp;")
  next
  strer=replace(strer,"[br]","<br>")
  strer=replace(strer,"[BR]","<br>")
  strer=replace(strer,vbCrLf,"<br>")
  code_jk2=strer
end function

function reUBBCode(strer)
    strer = replace(strer, ">", "&gt;")
    strer = replace(strer, "<", "&lt;")
    strer = Replace(strer, CHR(32), "<I></I>&nbsp;")
    strer = Replace(strer, CHR(9), "&nbsp;")
    strer = Replace(strer, CHR(34), "&quot;")
    strer = Replace(strer, CHR(39), "&#39;")
    strer = Replace(strer, CHR(13), "")
    strer = Replace(strer, CHR(10) & CHR(10), " ")
    strer = Replace(strer, CHR(10), " ")
dim re
Set re=new RegExp
re.IgnoreCase=true
re.Global=True
strer=replace(strer,"&nbsp;"," ")
re.Pattern="(\[QUOTE\])(.[^\[]*)(\[\/QUOTE\])"
strer=re.Replace(strer,"")
  re.Pattern="(\[replyview\])(.*)(\[\/replyview\])"
strer=re.Replace(strer,"★★ 回复贴内容不能引用 ★★")	
  re.Pattern="(\[money=*([0-9]*)\])(.*)(\[\/money\])"
strer=re.Replace(strer,"★★ 金钱贴内容不能引用 ★★")
  re.Pattern="(\[Post=*([0-9]*)\])(.*)(\[\/Post\])"
strer=re.Replace(strer,"★★ 贴子数内容不能引用 ★★")
  re.Pattern="(\[point=*([0-9]*)\])(.*)(\[\/point\])"
strer=re.Replace(strer,"★★ 积分贴内容不能引用 ★★")
  re.Pattern="(\[usemoney=*([0-9]*)\])(.*)(\[\/usemoney\])"
strer=re.Replace(strer,"★★ 购买贴内容不能引用 ★★")
  re.Pattern="(\[Power=*([0-9]*)\])(.*)(\[\/Power\])"
strer=re.Replace(strer,"★★ 权限贴内容不能引用 ★★")
  re.Pattern="(\[sex=([0-1])\])(.*)(\[\/sex\])"
strer=re.Replace(strer,"★★ 性别贴内容不能引用 ★★")
  re.Pattern="(\[name=(.[^\[]*)\])(.*)(\[\/name\])"
strer=re.Replace(strer,"★★ 指定贴内容不能引用 ★★")
strer=replace(strer,"<I></I>","")
set re=Nothing
reUBBCode=strer
end function

function zdtusers(zdtname)
  dim zdtUserArr,iiii
    zdtname=replace(zdtname,"，",",")
	zdtusers = "no"
	If ""&zdtname&"" = "" Then
		Exit function
	End If
	If InStr(zdtname, ",") Then
		zdtUserArr	= Split(zdtname, ",")
		For iiii = 0 To UBound(zdtUserArr)
			If zdtUserArr(iiii) = login_username Then
				zdtusers = "yes"
				Exit function
			End If
		Next
	Else
		If zdtname = login_username Then
			zdtusers = "yes"
		End If
	End If
end function
%>
上一页 1 2 34
💿 文件大小 8128 K
👤 上传用户 qqpp2q
📂 所属分类其他书籍
🏷️ 相关标签

#修改 #v11 #BUG #企业网站
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -