📄 xbqq_head.asp
字号:
<%
'缓冲面页
response.Expires = -1
'True开启缓冲 False关闭
Response.Buffer=True
Dim time1,time2
time1=timer
%>
<!--#include file="Include/xbqq_Setup.asp" -->
<!--#include file="Include/xbqq1_Function.asp" -->
<!--#include file="Include/Xbqq_Function.asp" -->
<!--#include file="Conn_User.asp" -->
<!--#include file="other/xbqq_Md5.asp" -->
<!--#include file="Conn.asp" -->
<%
Dim Fy_Url,Fy_a,Fy_x,Fy_Cs(),Fy_Cl,Fy_Ts,Fy_Zx
'---定义部份 头------
Fy_Cl = 3 '处理方式：1=提示信息,2=转向页面,3=先提示再转向
Fy_Zx = "index.Asp" '出错时转向的页面
'---定义部份 尾------
On Error Resume Next
Fy_Url=Request.ServerVariables("QUERY_STRING")
Fy_a=split(Fy_Url,"&")
redim Fy_Cs(ubound(Fy_a))
On Error Resume Next
for Fy_x=0 to ubound(Fy_a)
Fy_Cs(Fy_x) = left(Fy_a(Fy_x),instr(Fy_a(Fy_x),"=")-1)
Next
For Fy_x=0 to ubound(Fy_Cs)
If Fy_Cs(Fy_x)<>"" Then
If Instr(LCase(Request(Fy_Cs(Fy_x))),"'")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"and")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"select")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"update")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"chr")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"delete%20from")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),";")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"insert")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"mid")<>0 Or Instr(LCase(Request(Fy_Cs(Fy_x))),"master.")<>0 Then
Select Case Fy_Cl
Case "1"
Response.Write "<Script Language=JavaScript>alert('出现错误！参数 "&Fy_Cs(Fy_x)&" 的值中包含非法字符串！\n\n 请不要试图破坏西部商务系统，感谢大家的支持与帮助！向中国红客致敬！');window.close();</Script>"
Case "2"
Response.Write "<Script Language=JavaScript>location.href='"&Fy_Zx&"'</Script>"
Case "3"
Response.Write "<Script Language=JavaScript>alert('出现错误！参数 "&Fy_Cs(Fy_x)&"的值中包含非法字符串！\n\n 请不要试图破坏西部商务系统，感谢大家的支持与帮助！向中国红客致敬！');location.href='"&Fy_Zx&"';</Script>"
End Select
Response.End
End If
End If
Next
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<title><%=Gaobei_Title%>--争取为每位站长赚到钱！---西部商务管理系统V3.5</title>
<meta name="description" content="<%=Gaobei_description%>">
<meta name="keyword" content="西部商务网站管理系统--打造行内最实用网站">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="other/xbqq_style.css" rel="stylesheet" type="text/css">
<SCRIPT language=javaScript src="Include/xbqq.js" type=text/javascript></SCRIPT>
</head>
<!--
<%
'获取文章的导航题目
SortID=CheckStr(Request.QueryString("SortID"))
sql="select * from Sort where ID="&SortID&""
Set Rs=conn.execute (sql)
Sortname=Rs("names")
Rs.close
set Rs=nothing
'==============================================
ClassID=CheckStr(Request.QueryString("ClassID"))
sqlc="select * from Sort where ID="&ClassID&""
Set Rsc=conn.execute (sqlc)
Classname=Rsc("names")
Gaobei_CalssInfo=Rsc("Info")
B_ID=Rsc("B_ID")
sqls="select * from Sort where ID="&B_ID&""
Set Rss=conn.execute (sqls)
SortName=Rss("names")
Title ="<a href=Sort.asp?SortID="&B_ID&">" &SortName & "</a>"& " >> " & Classname
Rs.close
set Rs=nothing
%>
-->
<body topmargin="0" leftmargin="0" bgcolor="#414141">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="80" bgcolor="ffffff">
<tr>
<td width="778" valign="top">
<table border="0" width="100%" id="table6" height="80">
<tr>
<td width="200">
<p align="center">
<img border="0" src="xbqq_img/logo.gif" width="180" height="70"></td>
<td width="588" background="xbqq_img/index_05.gif">
<table border="0" width="100%" id="table7" height="80">
<tr>
<td width="4"> </td>
<td valign="middle">
<img border="0" src="<%=Gaobei_Banner%>" width="468" height="60"></td>
<td width="78" bgcolor="#FFFFFF" valign="top">
<%help%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="28" background="xbqq_img/index_13.gif">
<tr>
<td>
<div align="right">
<table border="0" cellpadding="0" cellspacing="0" height="28" >
<tr>
<td>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="13" height="28">
<tr>
<td>
</td>
</tr>
</table>
</div>
</td>
<%
Dim TopSortSql,RsTopSort,daohang,hide
TopSortSql="select * from Sort where ((B_id=0 or daohang<>'') and hide<>true) and Hdaohang=true order by order_1"
Set RsTopSort=conn.execute (TopSortSql)
With RsTopSort
if .eof and .bof then
Response.write "<td align='center'>没有栏目</td>"
else
do while not .eof
'==================
if RsTopSort("daohang")<>"" then
daohang=RsTopsort("daohang")
else
daohang=" Sort.asp?SortID="&RsTopSort("ID")&" "
end if
'==================
response.write "<td>"
response.write "<div align=right>"
response.write "<table border=0 cellpadding=0 cellspacing=0 height=20>"
response.write "<tr>"
response.write "<td style='FILTER:PADDING-TOP: 2px'>"
response.write "<p align=center>"
if RsTopSort("blank")=true then
response.write " "
Response.Write("<A href='"&daohang&"' target='_blank'><FONT color=#1E1919><span style='letter-spacing: 2px'>" & RsTopSort("Names") & "</span></Font></a>")
response.write "|"
else
response.write " "
Response.Write("<A href='"&daohang&"'><FONT color=#ffffff <span style='letter-spacing: 2px'>" & RsTopSort("Names") & "</span></Font></a>")
response.write " <font color='#FFFFFF'>|</font>"
end if
response.write "</td>"
response.write "<td width=5 ></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
.movenext
loop
end if
.close
End With
Set RsTopSort=Nothing
%>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" id="table5">
<tr>
<td width="778">
<% Call xbqq_AD(10) %>
</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="29" background="xbqq_img/top2.gif" id="table5">
<tr>
<td width="86">
<p align="center"><font color="#E5E5E5">今天是:</font></td>
<td width="144" valign="middle">
<font color="#FFFFFF">
<SCRIPT type=text/javascript>Gaobei_time();</SCRIPT>
</font>
</td>
<td width="25"></td>
<td width="523"><font color="#008AF7">您现在所在的位置：</font><a href="index.asp">首页</a><% call navigation() %></td>
</tr>
</table>
</div>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -