新世界动漫 > 百变机兽之洛洛历险记
更多
观看《百变机兽之洛洛历险记第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"
" %>
��������

�����dzƣ� *С��ʾ����Ctrl+Enter(�س�)��ֱ�ӷ������ԣ���������ʱҳ�治����ת��


����������������

���϶��������۾���������<%=maxz_1%>���۵�

<% 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"
��"&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%>

<%=zt_content%>

<% If i>=maxz_27 Then Exit Do rs_comment.movenext Loop rs_comment.close set rs_comment=Nothing response.write"
"&getPageInfo(total,Page,zt_vid)&"
" End If %> <%End Sub '����0-9�������� function rnd_num(digits) dim rndnum,num Randomize Do while Len(rndnum)",">") 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 %>