📄 jk_ubb.asp

📁 漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目
💻 ASP
📖 第 1 页 / 共 4 页
字号:
	strer=re.Replace(strer,"<br><font color="&AlertFontColor1&"><b></font><font color="&AlertFontColor&"></b></font><bgsound src=pic/bmusic/107.mid border=0 align=middle>")
re.Pattern="(\/精典音乐2)"
	strer=re.Replace(strer,"<br><font color="&AlertFontColor1&"><b></font><font color="&AlertFontColor&"></b></font><bgsound src=pic/bmusic/108.mid border=0 align=middle>")
re.Pattern="(\/精典音乐3)"
	strer=re.Replace(strer,"<br><font color="&AlertFontColor1&"><b></font><font color="&AlertFontColor&"></b></font><bgsound src=pic/bmusic/109.mid border=0 align=middle>")
re.Pattern="(\/如果云知道)"
	strer=re.Replace(strer,"<br><font color="&AlertFontColor1&"><b></font><font color="&AlertFontColor&"></b></font><bgsound src=pic/bmusic/65.mid border=0 align=middle>")
re.Pattern="(\/最浪漫的事)"
	strer=re.Replace(strer,"<br><font color="&AlertFontColor1&"><b></font><font color="&AlertFontColor&"></b></font><bgsound src=pic/bmusic/1.mid border=0 align=middle>")
re.Pattern="(\/缘份的天空)"
	strer=re.Replace(strer,"<br><font color="&AlertFontColor1&"><b></font><font color="&AlertFontColor&"></b></font><bgsound src=pic/bmusic/2.mid border=0 align=middle>")
re.Pattern="(\/谢谢你的爱)"
	strer=re.Replace(strer,"<br><font color="&AlertFontColor1&"><b></font><font color="&AlertFontColor&"></b></font><bgsound src=pic/bmusic/13.mid border=0 align=middle>")
re.Pattern="(\/但愿人长久)"
	strer=re.Replace(strer,"<br><font color="&AlertFontColor1&"><b></font><font color="&AlertFontColor&"></b></font><bgsound src=pic/bmusic/8.mid border=0 align=middle>")
re.Pattern="(\/我的野蛮女友)"
	strer=re.Replace(strer,"<br><font color="&AlertFontColor1&"><b></font><font color="&AlertFontColor&"></b></font><bgsound src=pic/bmusic/89.mid border=0 align=middle>")
re.Pattern="(\/可惜我是水瓶座)"
	strer=re.Replace(strer,"<br><font color="&AlertFontColor1&"><b></font><font color="&AlertFontColor&"></b></font><bgsound src=pic/bmusic/101.mid border=0 align=middle>")
re.Pattern="(\/罗密欧与茱丽叶)"
	strer=re.Replace(strer,"<br><font color="&AlertFontColor1&"><b></font><font color="&AlertFontColor&"></b></font><bgsound src=pic/bmusic/45.mid border=0 align=middle>")
re.Pattern="(\/风中有朵雨做的云)"
	strer=re.Replace(strer,"<br><font color="&AlertFontColor1&"><b></font><font color="&AlertFontColor&"></b></font><bgsound src=pic/bmusic/71.mid border=0 align=middle>")
re.Pattern="(\/不让我的眼泪陪我过夜)"
	strer=re.Replace(strer,"<br><font color="&AlertFontColor1&"><b></font><font color="&AlertFontColor&"></b></font><bgsound src=pic/bmusic/63.mid border=0 align=middle>")
end if


'.........................................特殊贴开始...........................................
if Right(tit,6)="（浏览贴子）" then
dim vrs,ii,po

'.........................................回复可见开始.........................................
	re.Pattern="(\[replyview\])(.[^\[]*)(\[\/replyview\])"
    if login_mode="admin" then
	strer=re.Replace(strer,"<hr noshade size=1>以下内容为需要回复才能浏览<BR>$2<hr noshade size=1>")
    else
	set vrs=conn.execute("select id from bbs_data where forum_id="&forumid&" and reply_id="&viewid&" and username='"&login_username&"'")
	if vrs.eof and vrs.bof then
	strer=re.Replace(strer,"<hr noshade size=1><font class=red_3>此内容需要回复才能浏览</font><hr noshade size=1>")
	else
	strer=re.Replace(strer,"<hr noshade size=1>以下内容为需要回复才能浏览<BR>$2<hr noshade size=1>")
	end if
	vrs.close:set vrs=nothing
	end if
'.........................................回复可见结束..........................................
'.........................................购买可见开始.........................................
'购买帖子
re.Pattern="(^.*)(\[usemoney=*([0-9]*)\])(.[^\[]*)(\[\/usemoney\])(.*)"
po=re.Replace(strer,"$3")
if IsNumeric(po) then
	ii=int(po) 
else
	ii=0
end if
dim vrs2,SplitBuyUser,iPostBuyUser
set vrs2=conn.execute("select username from notes where nsort='b"&forumid&"' and iid="&viewid&" order by id")
if vrs2.eof and vrs2.bof then
iPostBuyUser="<select name=buyuser size=1><option>还没有用户购买</option>"
else
iPostBuyUser="<select name=buyuser size=1><option>已购买用户</option>"
end if
do while not vrs2.eof
SplitBuyUser=vrs2("username")
iPostBuyUser=iPostBuyUser & "<option>"&SplitBuyUser&"</option>"
vrs2.movenext
loop
iPostBuyUser=iPostBuyUser & "</select>"
vrs2.close:set vrs2=nothing
set vrs=conn.execute("select id from notes where username='"&login_username&"' and nsort='b"&forumid&"' and iid="&viewid&"")
if vrs.eof and vrs.bof then
if login_mode="admin" or u_username=login_username then
strer=re.Replace(strer,"$1<hr noshade size=1>以下为需要花<B>$3</B>金钱才能购买并浏览的内容&nbsp;&nbsp;"&iPostBuyUser&"<BR>$4<hr noshade size=1>$6")
else
if int(login_emoney)>ii then
	strer=re.Replace(strer,"$1<Form action=""BuyPost.asp"" mothod=post><hr noshade size=1><font class=red_3>此帖子内容需要您花$3金钱来购买浏览&nbsp;&nbsp;<input type=hidden value="&u_username&" name=username><input type=hidden value="&ii&" name=emoney><input type=hidden name=forum_id value="&forumid&"><input type=hidden value="&viewid&" name=view_id><input type=submit name=submit value=好黑啊…我…我买了！>&nbsp;&nbsp;"&iPostBuyUser&"</font><hr noshade size=1></form>$6")
else
	strer=re.Replace(strer,"$1<hr noshade size=1><font class=red_3>此内容要求金钱数达到$3以上才可以购买并浏览&nbsp;&nbsp;"&iPostBuyUser&"</font><hr noshade size=1>$6")
end if
end if
else 
strer=re.Replace(strer,"$1<hr noshade size=1>以下为需要花<B>$3</B>金钱才能购买并浏览的内容，您已经购买本贴&nbsp;&nbsp;"&iPostBuyUser&"<BR>$4<hr noshade size=1>$6")
end if
vrs.close:set vrs=nothing
'.........................................购买可见结束..........................................


'.........................................金钱可见开始.........................................
	re.Pattern="(^.*)(\[money=*([0-9]*)\])(.[^\[]*)(\[\/money\])(.*)"
	po=re.Replace(strer,"$3")
	if IsNumeric(po) then
		ii=int(po)
	else
		ii=0
	end if
    if login_mode="admin" or u_username=login_username or int(login_emoney)>ii 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_3>此内容要求金钱数达到$3以上才可以浏览</font><hr noshade size=1>$6")
	end if
'.........................................金钱可见结束..........................................
'.........................................贴子数开始.........................................
 re.Pattern="(^.*)(\[Post=*([0-9]*)\])(.[^\[]*)(\[\/Post\])(.*)"
 po=re.Replace(strer,"$3")
 if IsNumeric(po) then
  ii=int(po) 
 else
  ii=0
 end if
   if login_mode="admin" or u_username=login_username or int(login_bcounter)>ii 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_3>此内容要求贴子数达到$3以上才可以浏览</font><hr noshade size=1>$6")
   end if
'.........................................贴子数结束..........................................


else
  re.Pattern="(\[replyview\])(.[^\[]*)(\[\/replyview\])"
  strer=re.Replace(strer,"$2")
  re.Pattern="(\[money=*([0-9]*)\])(.[^\[]*)(\[\/money\])"
  strer=re.Replace(strer,"$3")
  re.Pattern="(\[Post=*([0-9]*)\])(.[^\[]*)(\[\/Post\])"
  strer=re.Replace(strer,"$3")
  re.Pattern="(\[point=*([0-9]*)\])(.[^\[]*)(\[\/point\])"
  strer=re.Replace(strer,"$3")
  re.Pattern="(\[usemoney=*([0-9]*)\])(.[^\[]*)(\[\/usemoney\])"
  strer=re.Replace(strer,"$3")
  re.Pattern="(\[power=([1-5])\])(.[^\[]*)(\[\/power\])"
  strer=re.Replace(strer,"$3")
  re.Pattern="(\[sex=([0-1])\])(.[^\[]*)(\[\/sex\])"
  strer=re.Replace(strer,"$3")
end if
'.........................................特殊贴结束...........................................
'.........................................积分可见开始.........................................
 re.Pattern="(^.*)(\[point=*([0-9]*)\])(.[^\[]*)(\[\/point\])(.*)"
 po=re.Replace(strer,"$3")
 if IsNumeric(po) then
  ii=int(po)
 else
  ii=0
 end if
  if login_mode="admin" or u_username=login_username or int(login_integral)>=ii 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_3>此内容要求积分达到$3以上才可以浏览</font><hr noshade size=1>$6")
  end if
'.........................................积分可见结束..........................................
'.........................................性别可见开始.........................................
dim sex
 re.Pattern="(^.*)(\[sex=([0-1])\])(.[^\[]*)(\[\/sex\])(.*)"
 po=re.Replace(strer,"$3")
 if IsNumeric(po) then
  ii=int(po)
 else
  ii=0
 end if
 if ii=0 then
 ii=false:sex="女孩"
 else
 ii=true:sex="男孩"
 end if
  if login_mode="admin" or u_username=login_username or login_sex&sex=ii&sex then
  strer=re.Replace(strer,"$1<hr noshade size=1>以下为只有"&sex&"才能浏览的内容<BR>$4<hr noshade size=1>$6")
  else
  strer=re.Replace(strer,"$1<hr noshade size=1><font class=red_3>此内容只有"&sex&"才可以浏览</font><hr noshade size=1>$6")
  end if
'.........................................性别可见结束..........................................
'.........................................权限可见开始.........................................
re.Pattern="(^.*)(\[Power=([1-5])\])(.[^\[]*)(\[\/Power\])(.*)"
po=re.Replace(strer,"$3")
if IsNumeric(po) then
	ii=int(po) 
else
	ii=0
end if
dim up1,up2
select case ii
case 1
up1="1"
case 2
up1="1.2"
case 3
up1="1.2.3"
case 4
up1="1.2.3.4"
case 5
up1="1.2.3.4.5"
case else
up1="1.2.3.4.5.0"
end select
up2=format_power(login_mode,2)
if not(isnumeric(up2)) then up2=0
up2=int(up2)
if up2="" or up2=0 then
💿 文件大小 8128 K
👤 上传用户 qqpp2q
📂 所属分类其他书籍
🏷️ 相关标签

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

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