nocode.asp

二月小说 看小说必备工具 默认的管理路径为:admin/index.asp 用户名：admin 密码：admin

<%
Public Function ncode(str)
 If IsNull(str) Then
	 ncode = ""
	 Exit Function
 End If
	str=str
	str=Replace(str,CHR(32),"&nbsp;")
	str=Replace(str,"<","&lt;")
	str=Replace(str,">","&gt;")
'======================================================================
'=              Copyright (c) 2008-2010 ,老四(QQ7280091)开发          =
'=                      All rights reserved.                          =
'=--------------------------------------------------------------------=
'=                    　　　　 二月小说 v_1.0   　                    =
'=                    　　　　                  　                    =
'=                     演示网址：www.2yue.com.cn                      =
'=                     官方网址：vip.2yue.com.cn =
'=                     官方QQ群：7500701                              =
'=--------------------------------------------------------------------=
'=                     用   途：小说、小说连载                        =
'=                     最后更新：2008-11-1                            =
'======================================================================
	'str=Replace(str,vbCrLf,"<br>")
	str=Replace(str,CHR(39),"&#39;")
	str=Replace(str,CHR(42)&CHR(42),"&#42;&#42;")
	str=Replace(str,CHR(45)&CHR(45),"&#45;&#45;")
	str=Replace(str,CHR(92),"&#92;")
	'str=Replace(str,CHR(44),"&#44;")
	'str=Replace(str, "/s", "/&#115;")
	str=Replace(str,"select", "sel&#101;ct")
	str=Replace(str,"execute", "&#101xecute")
	str=Replace(str,"exec", "&#101xec")
	str=Replace(str,"join", "jo&#105;n")
	str=Replace(str,"union", "un&#105;on")
	str=Replace(str,"where", "wh&#101;re")
	str=Replace(str,"insert", "ins&#101;rt")
	str=Replace(str,"delete", "del&#101;te")
	str=Replace(str,"update", "up&#100;ate")
	str=Replace(str,"like", "lik&#101;")
	str=Replace(str,"drop", "dro&#112;")
	str=Replace(str,"create", "cr&#101;ate")
	str=Replace(str,"rename", "ren&#097;me")
	str=Replace(str,"count", "co&#117;nt")
	str=Replace(str,"chr", "c&#104;r")
	str=Replace(str,"mid", "m&#105;d")
	str=Replace(str,"truncate", "trunc&#097;te")
	str=Replace(str,"nchar", "nch&#097;r")
	str=Replace(str,"char", "ch&#097;r")
	str=Replace(str,"alter", "alt&#101;r")
	str=Replace(str,"cast", "ca&#115;t")
	str=Replace(str,"exists", "e&#120;ists")
	str=Replace(str,"script", "&#115;cript")
	str=Replace(str,"SCRIPT", "&#083;CRIPT")
	str=Replace(str,"Script", "&#083;cript")
	str=Replace(str,"script", "&#083;cript")
	str=Replace(str,"object", "&#111;bject")
	str=Replace(str,"OBJECT", "&#079;BJECT")
	str=Replace(str,"Object", "&#079;bject")
	str=Replace(str,"object", "&#079;bject")
	str=Replace(str,"applet", "&#097;pplet")
	str=Replace(str,"APPLET", "&#065;PPLET")
	str=Replace(str,"Applet", "&#065;pplet")
	str=Replace(str,"applet", "&#065;pplet")
    ncode = str
End Function
%>