观看《百变机兽之洛洛历险记第49集》视频后请留下评论
<%
'�Ƿ�������
maxz_26="1"
'����ÿҳ��ʾ����
maxz_27="10"
'�����û�����������
maxz_29="10"
'����������������
maxz_30="200"
'Ĭ����������
maxz_31="������"
'���۹�������
maxz_28="������,�¼ұ�,��,��,����,������,����,����,���,����,����,����,����,����,����,����,����,����,����,����,غ��,��Ƥ,��ͷ,��,�P,��,�H,����,��ͷ,��ë,����,����,�д�,ǿ��,��Һ,�Ը߳�,����,�Խ�,�ڽ�,�ؽ�,chdy8,http,//,com,cn,net,org,www"
'by maxz-2007.12.26
'by qiushi
response.buffer=true
Response.Expires=0
response.charset="gb2312"
If maxz_26=0 Then
response.write"
SORRY��վ�������ùر����ۣ�
"
response.End
End If
'Db="inc/"&maxz_32
'ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
'Set conn = Server.CreateObject("ADODB.Connection")
'conn.open ConnStr
Call maxz.exec("", -1)
Dim action
action=Request.QueryString ("action")
set V_ppdong=New PreventInjection
Select Case Lcase(action)
Case "add"
Call add
Case "vertify"
Call vertify
Case Else
Call main
End Select
call web_clear()
set V_ppdong=nothing
sub vertify
if request.Cookies("LeaveWord_Flag")="yes" then
response.Write("yes")
else
response.Cookies("LeaveWord_Flag")="yes"
Response.Cookies("LeaveWord_Flag").Expires=DateAdd("s",20,now())
response.Write("no")
end if
end sub
Sub add
u_zt_id=unescape(request("zt_id"))
u_zt_id=V_ppdong.filterSpecialStr(u_zt_id)
call V_ppdong.checkNumberType(u_zt_id)
call V_ppdong.checkStrLenth(u_zt_id,1,8,3)
u_user=unescape(request("user"))
u_user=V_ppdong.filterSpecialStr(u_user)
u_user=V_ppdong.cutStr(u_user,1,10,3)
u_content=unescape(request("content"))
u_content=V_ppdong.filterSpecialStr(u_content)
u_content=V_ppdong.cutStr(u_content,1,200,3)
zt_vid=u_zt_id
zt_username=badFilter(enhtml(u_user))
zt_content=badFilter(showFace(enhtml(u_content)))
zt_ip=getIP()
call V_ppdong.checkIpStr(zt_ip)
If zt_vid="" Or zt_username="" Or zt_content="" Then
response.write"�ύ�Ƿ�
"
response.End
End If
conn.execute("insert into zt_comment(zt_vid,zt_username,zt_content,zt_date,zt_ip) values("&zt_vid&",'"&zt_username&"','"&zt_content&"','"&now()&"','"&zt_ip&"')")
response.redirect"?zt_id="&zt_vid
End Sub
Sub main
maxz_27=CInt(maxz_27):maxz_29=CInt(maxz_29):maxz_30=CInt(maxz_30)
zt_vid=request("zt_id")
zt_vid=V_ppdong.filterSpecialStr(zt_vid)
call V_ppdong.checkNumberType(zt_vid)
call V_ppdong.checkStrLenth(zt_vid,1,8,3)
response.write""
%>
<%
page=cint(request("page"))
page=V_ppdong.filterSpecialStr(page)
set rs_comment=server.createobject("adodb.recordset")
sql="select zt_id,zt_username,zt_content,zt_date from zt_comment where zt_vid="&zt_vid&" order by zt_id desc"
rs_comment.open sql,conn,1,1
i=0
If rs_comment.bof Or rs_comment.eof Then
response.write" "
Else
rs_comment.pagesize=maxz_27
if page="" or page<1 then page=1
total=rs_comment.pagecount
p=rs_comment.recordcount
if page>total then
page=total
else
rs_comment.absolutepage = page
end If
response.write"",">")
Str_=replace(Str_,CHR(34),""")
Str_=replace(Str_,CHR(39),"'")
enhtml=Str_
End Function
'��ȡIP
Function GetIP()
Dim ipadd
ipadd=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if ipadd= "" Then ipadd=Request.ServerVariables("REMOTE_ADDR")
GetIP=ipadd
End Function
'���ֹ���
Function badFilter(Str)
badKeyword=maxz_28
badKeywordArr=split(badKeyword,",")
for s_i=0 to ubound(badKeywordArr)
Str=replace(Str,badKeywordArr(s_i),"***")
Next
badFilter=Str
End Function
'������ʾ
Function showFace(Str)
Str=replace(Str,"[maxz:1]","
")
Str=replace(Str,"[maxz:2]","
")
Str=replace(Str,"[maxz:3]","
")
Str=replace(Str,"[maxz:4]","
")
Str=replace(Str,"[maxz:5]","
")
Str=replace(Str,"[maxz:6]","
")
Str=replace(Str,"[maxz:7]","
")
Str=replace(Str,"[maxz:8]","
")
Str=replace(Str,"[maxz:9]","
")
Str=replace(Str,"[maxz:10]","
")
Str=replace(Str,"[maxz:11]","
")
Str=replace(Str,"[maxz:12]","
")
Str=replace(Str,"[maxz:13]","
")
Str=replace(Str,"[maxz:14]","
")
Str=replace(Str,"[maxz:15]","
")
Str=replace(Str,"[maxz:16]","
")
Str=replace(Str,"[maxz:17]","
")
showFace=Str
End Function
%>
��������
�����dzƣ� *С��ʾ����Ctrl+Enter(�س�)��ֱ�ӷ������ԣ���������ʱҳ�治����ת��
����������������
���϶��������۾���������<%=maxz_1%>���۵�
��Ƭ�������ۣ�������ɳ���ɣ�
��"&p&"λ���Ѳ�������
"&getPageInfo(total,Page,zt_vid)&"
"
bgcolorArr=Array("#D66103","#512DBD","#780E1A","#C5A200","#DA4912","#530752","#C5A200","#512DBD","#D66103","#530752")
Do while not rs_comment.eof
i=i+1
zt_id=rs_comment("zt_id")
zt_username=rs_comment("zt_username")
zt_content=rs_comment("zt_content")
zt_date=rs_comment("zt_date")
%>
��<%=p-(page-1)*maxz_27-(i-1)%>¥
<%=zt_username%> ������ <%=zt_date%>
<%
If i>=maxz_27 Then Exit Do
rs_comment.movenext
Loop
rs_comment.close
set rs_comment=Nothing
response.write"<%=zt_content%>
"&getPageInfo(total,Page,zt_vid)&"
"
End If %>
<%End Sub
'����0-9��������
function rnd_num(digits)
dim rndnum,num
Randomize
Do while Len(rndnum)![](/"&maxz_2&"images/faces/1.gif)
![](/"&maxz_2&"images/faces/2.gif)
![](/"&maxz_2&"images/faces/3.gif)
![](/"&maxz_2&"images/faces/4.gif)
![](/"&maxz_2&"images/faces/5.gif)
![](/"&maxz_2&"images/faces/6.gif)
![](/"&maxz_2&"images/faces/7.gif)
![](/"&maxz_2&"images/faces/8.gif)
![](/"&maxz_2&"images/faces/9.gif)
![](/"&maxz_2&"images/faces/10.gif)
![](/"&maxz_2&"images/faces/11.gif)
![](/"&maxz_2&"images/faces/12.gif)
![](/"&maxz_2&"images/faces/13.gif)
![](/"&maxz_2&"images/faces/14.gif)
![](/"&maxz_2&"images/faces/15.gif)
![](/"&maxz_2&"images/faces/16.gif)
![](/"&maxz_2&"images/faces/17.gif)