<%
dr = Request.ServerVariables("SERVER_NAME")
If topic_content_type="" Then
topic_content_type=0
End If
If CStr(price)="" then
chk_price=0
Else
chk_price= CLng(price)
End If
if Instr(dr,"news.")>0 Then
Randomize
int_rnd= Int(Rnd()*1000)
If int_rnd Mod 2=0 Then
Call showAomei()
Else
Call ShowHudong()
End If
End If ''动态播放youyi的广告
If chk_price=0 or CInt(topic_content_type)=1 Then ''免费资料或者论坛资料贴播放奥美广告
If CInt(topic_content_type)=1 Then
Randomize
int_rnd= Int(Rnd()*1000)
int_op= int_rnd Mod 3
Select Case int_op
Case 0
Call ShowYouyi()
Case 1
Call ShowHudong()
Case 2
Call showAomei()
End Select
Else
Randomize
int_rnd= Int(Rnd()*1000)
int_op= int_rnd Mod 3
Select Case int_op
Case 0
Call ShowYouyi()
Case 1
Call ShowHudong()
Case 2
Call showAomei()
End Select
End If
End If
If CInt(topic_content_type)=1 Then ''论坛资料贴弹出alibaba广告
%>
<%
End If
Sub ShowYouyi()
Response.Write "" & vbNewLine
End Sub
Sub ShowHudong()
Response.write "" & vbNewLine
End Sub
Sub ShowAomei()
Response.Write "" & vbNewLine
Response.Write "" & vbNewLine
End Sub
%>
.gif){kind=small}
