<!--#include file="conn.asp"-->
<!--#include file="cls_huayuweb()^191563631.asp"-->
<!--#include file="cls_showpaged.asp"-->
<!--#include file="../label/newslist.asp"-->
<!--#include file="strfunc.asp"--><title><%=web_title%></title><%if pid<>"" then%>
<% set rs=oa.execute("select title,skeywrods from c_article where  id="&PID)
 if not rs.eof then
 if rs(1)<>"" then
web_keyword=rs(1)
  else
 web_keyword=web_keyword
 end if
 end if%>
<%else%>
<%if cid<>"" and sid="" then%>
<%set ra=oa.execute("select classname,parentpath,ckeywords from classlist where classid="&cid)
if not  ra.eof then
if ra(2)<>"" then
web_keyword=ra(2)
else
web_keyword=web_keyword
end if
end if
ra.close
set ra=nothing%>
<%end if%>
<%if cid<>"" and sid<>"" then%>
<%set ra=oa.execute("select classname,parentpath,ckeywords from classlist where classid="&sid)
if not  ra.eof then
if ra(2)<>"" then
web_keyword=ra(2)
else
web_keyword=web_keyword
end if
end if
ra.close
set ra=nothing%>
<%end if%>
<%end if%>
<meta name="keywords" content="<%=web_keyword%>"><%if pid<>"" then%>
<% set rs=oa.execute("select title,scontent from c_article where  id="&PID)
 if not rs.eof then
 if rs(1)<>"" then
web_content=rs(1)
  else
web_content=web_content
 end if
 end if
if mfb="" or instr(mfb,"www.huayuweb.cn")=0  then oa.msgshow("你使用是免费版，不能删除技术支持！")%>
<%else%>
<%if cid<>"" and sid="" then%>
<%set ra=oa.execute("select classname,parentpath,ccontent from classlist where classid="&cid)
if not  ra.eof then
if ra(2)<>"" then
web_content=ra(2)
else
web_content=web_content
end if
end if
ra.close
set ra=nothing%>
<%end if%>
<%if cid<>"" and sid<>"" then%>
<%set ra=oa.execute("select classname,parentpath,ccontent from classlist where classid="&sid)
if not  ra.eof then
if ra(2)<>"" then
web_content=ra(2)
else
web_content=web_content
end if
end if
ra.close
set ra=nothing%>
<%end if%>
<%end if%>
<meta name="description" content="<%=web_content%>">
<meta name="Author" content="zyzmxy">
<meta http-equiv="X-UA-Compatible" content="ie=edge;chrome=1">
<SCRIPT type=text/javascript >if((navigator.userAgent.match(/(iPhone|iPod|Android|ios)/i))) {
<%if cid=0 or cid="" then%> 
location.replace("<%=webdir%>wap/"); 
<%end if%>
<%if cid<>"" and  sid="" then%> 
location.replace("<%=webdir%>column/?<%=cid%>.html"); 
<%end if%>
<%if cid<>"" and  sid<>"" and pid="" then%> 
location.replace("<%=webdir%>category/?<%=cid%>-<%=sid%>.html"); 
<%end if%>
<%if pid<>"" then%> 
location.replace("<%=webdir%>show/?<%=cid%>-<%=sid%>-<%=pid%>.html"); 
<%end if%>						
}</SCRIPT>
<%Dim GetFlag Rem(提交方式)
Dim ErrorSql Rem(非法字符)
Dim RequestKey Rem(提交数据)
Dim ForI Rem(循环标记)
ErrorSql = "'~;~and~(~)~exec~update~count~*~%~<~>~chr~mid~master~truncate~char~declare" Rem(每个敏感字符或者词语请使用半角 "~" 格开)
ErrorSql = Split(ErrorSql, "~")
If Request.ServerVariables("REQUEST_METHOD") = "GET" Then
    GetFlag = True
Else
    GetFlag = False
End If
If GetFlag Then
    For Each RequestKey In Request.QueryString
        For ForI = 0 To UBound(ErrorSql)
            If InStr(LCase(Request.QueryString(RequestKey)), ErrorSql(ForI))<>0 Then
                Call infoback("请不要使用特殊字符，例如英文单引号等！")
            End If
        Next
    Next
Else
    For Each RequestKey In Request.Form
        For ForI = 0 To UBound(ErrorSql)
            If InStr(LCase(Request.Form(RequestKey)), ErrorSql(ForI))<>0 Then
                Call infoback("请不要使用特殊字符，例如英文单引号等！")
            End If
        Next
    Next
End If
Sql_in = "and|or|on|select|insert|update|delete|exec|declare'"
Sql = Split(Sql_in, "|")
If Request.QueryString<>"" Then
    For Each Sql_Get In Request.QueryString
        For Sql_Data = 0 To UBound(Sql)
            If InStr(LCase(Request.QueryString(Sql_Get)), Sql(Sql_Data))<>0 Then
                Call infoback("请不要尝试非法注入！")
            End If
        Next
    Next
End If
If Request.Form<>"" Then
    For Each Sql_Post In Request.Form
        For Sql_Data = 0 To UBound(Sql)
            If InStr(LCase(Request.Form(Sql_Post)), Sql(Sql_Data))<>0 Then
                Call infoback("请不要尝试非法注入！")
            End If
        Next
    Next
End If
'==========常用子程序==========

Sub infoback(info)
    response.Write "<script language=javascript>alert('"&info&"');window.history.back();</script>"
    response.End
End Sub


Sub infohref(info, url)
    response.Write "<script language=javascript>alert('"&info&"');window.location.href='"&url&"'</script>"
    response.End
End Sub%>
<SCRIPT src="<%=webdir%>images/wow.min.js" type="text/javascript"></SCRIPT>
<script>
if (!(/msie [6|7|8|9]/i.test(navigator.userAgent))){
	new WOW().init();
}

</script>
