购买邀请码

红月论坛

文字教程@Mop刷怪掉宝设置

  [复制链接]
发表于 2015-7-17 11:38:10 | 显示全部楼层
这个是好东西,一定要看看
学习红月技术,我只来红月论坛!
回复

使用道具 举报

发表于 2015-8-22 20:09:31 | 显示全部楼层

好好学习 天天向上
学习红月技术,我只来红月论坛!
回复

使用道具 举报

发表于 2015-9-5 18:04:59 | 显示全部楼层
<%@language=vbscript%>
<!--#include file="www.redmoon8.com.asp" -->
<%
const MM_strFilter = "' "" , ; // -- _ go exec declare delete update or" '过滤字符,用空格分开
Call ChkRef()

Sub ChkRef()
dim str,server_v1,server_v2,Len_server_v2
'-------------------
str = ""
for each element in Request.Form
        str=str & Request.Form(element)
Next
'-------------------
for each element in Request.QueryString
        str=str & Request.QueryString(element)
next
'-------------------

'-------------------
if check_SQL(str) then Call stopEx()
End Sub

Sub stopEx()
response.write "<script language=javascript>alert('请不要提交非法字符\nWWW.REDMOON8.COM');history.back();</script>"
Response.end
end sub



Function check_SQL(strData)
dim strFilter
dim blnFlag
dim i

strFilter=MM_strFilter
blnFlag=Flase

dim arrayFilter
arrayFilter=Split(strFilter," ")
For i=0 To UBound(arrayFilter)
    If Instr(1,strData,arrayFilter(i),vbTextCompare)>0 Then
    blnFlag=True
    Exit For
    End If
Next

check_SQL=blnFlag
End Function
%>
<%
on error resume next
dim connstr
dim conn
connstr = "Provider=SQLOLEDB;Data Source="&dbip&";DATABASE="&dbname&";UID="&dbuser&";pwd="&dbpsd
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
errormsg="注册信息有错误......"
if err.number<>0 then
response.write "<script language=javascript>alert('连接SQL失败,请与管理员联系\nWWW.REDMOON8.COM');history.back();</script>"
response.end
end if
%>
<BODY oncontextmenu=window.event.returnValue=false>
<noscript><iframe src=*.html></iframe></noscript>
学习红月技术,我只来红月论坛!
回复

使用道具 举报

发表于 2015-9-8 07:14:24 | 显示全部楼层
刷点经验刷点水
学习红月技术,我只来红月论坛!
回复

使用道具 举报

发表于 2015-11-23 00:01:15 | 显示全部楼层

回复吧,为了学习!
学习红月技术,我只来红月论坛!
回复

使用道具 举报

发表于 2015-11-23 13:08:01 来自手机 | 显示全部楼层
2222222222222
学习红月技术,我只来红月论坛!
回复

使用道具 举报

发表于 2015-12-11 00:34:19 | 显示全部楼层
还是得慢慢研究啊
学习红月技术,我只来红月论坛!
回复

使用道具 举报

发表于 2015-12-16 20:24:59 | 显示全部楼层
。。。。搞不懂来看看
学习红月技术,我只来红月论坛!
回复

使用道具 举报

QQ|手机版|小黑屋| 红月论坛

GMT+8, 2021-10-22 02:30

Powered by Discuz! X3.4

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表