<!--#include file="inc.asp"-->
<!--#include file="check.asp"-->
<%'***********************************************
'过程名：checksql
'作  用：过滤恶意字符以及html语法
'参  数：str  ----待处理的字符串
'       strtype ----过滤方式,1为数字,2为html过滤,3为不过滤html
'返回值:过滤了的字符
'***********************************************
Function checksql(str,strtype)
str=""&str
str=Trim(str)
str=replace(str,"'","''")
str = Replace(str, CHR(32), "&nbsp;")
str = Replace(str, CHR(9), "&nbsp;")
str=Replace(str, CHR(10) & CHR(10), "</P><P> ")
str=Replace(str, CHR(10), "<BR> ")			
str=Replace(str, CHR(13), "")
if strtype=1 then
   if isNumeric(str) then
     str=clng(str)
   else
     str=1
   end if
elseif strtype=2 then
  str=replace(str,"<","&lt;")
  str=replace(str,">","&gt;") 
  str=replace(str,CHR(34),"&quot;") 
  str=replace(str," ","&nbsp;")
  str=Replace(str, CHR(39), "&#39;")
elseif strtype=4 then
  str=replace(str,"&","&amp;")
else   
  str=str
end if
  checksql=str
end function
%>
<%
function htmlencode1(fString)
if fString<>"" and not isnull(fstring) then
	fString = replace(fString, "&gt;", ">")
	fString = replace(fString, "&lt;", "<")

	fString = Replace(fString, "&nbsp;", chr(32))
	fString = Replace(fString, "</P><P>", CHR(10) & CHR(10))
	fString = Replace(fString, "<BR>", CHR(10))
	htmlencode1=fString
else
	htmlencode1=""
end if
end function

function htmlencode2(fString)
if fString<>"" and not isnull(fstring) then

	fString = replace(fString, ">", ">")
	fString = replace(fString, "<", "<")

	fString = Replace(fString, chr(32), " ")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	htmlencode2=fString
else
	htmlencode2=""
end if
end function
function htmlencode3(fString)
if fString<>"" and not isnull(fstring) then

	fString = replace(fString, "&gt;", ">")
	fString = replace(fString, "&lt;", "<")
	htmlencode3=fString
else
	htmlencode3=""
end if
end function
%><%
function Checkin(s) 
s=trim(s) 
s=replace(s," ","&amp;nbsp;") 
s=replace(s,"'","&amp;#39;") 
s=replace(s,"""","&amp;quot;") 
s=replace(s,"&lt;","&amp;lt;") 
s=replace(s,"&gt;","&amp;gt;") 
Checkin=s 
end function 

%>
<style>
body { font-size: 12px; margin-top:0px}
A:visited {TEXT-DECORATION: none;color: #000000;}
A:link {TEXT-DECORATION: none;color: #000000;}
A:hover {TEXT-DECORATION: none;color: #FF0000;}
</style><% 
Response.CacheControl = "no-cache" 
	SiteName="福建音乐视听网"			        '网站名称
	SiteUrl="http://www.0hao.cn"			        '网站地址
	Copyright="福建音乐视听网 www.0hao.cn"		        '版权信息
	Ver="福建音乐视听网 Ver 3.0"				        '版本信息
	AdminEmail="12jc17@163.com"		        '站长信箱
	pagemax=15
	TjASs="Show"		        'hidden首页网友推荐与点歌状态
	IsUser="Show"		        '首页会员收藏等状态
%>