📄 webconfig.asp
字号:
<!--#include file="include/cache_cls.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="word.asp"-->
<!--#include file="include/56770_main_cls.asp"-->
<!--#include file="include/56770_skins_cls.asp"-->
<!--#include file="include/56770_temp.asp"-->
<%
'信息处理
'**** Start ************************************************************************************************************************
dim tl,mes
sub sendinfo(tl,mes)
response.write"<table border=0 cellpadding=0 cellspacing=0 class=bk width='100%' align=center><tr><td class=bk_h width=100% height=26> <img src='images/i.gif'> "&tl&"</td></tr><tr class='bg_l'><td width=100% ><p style='margin: 8; line-height:150%'>"&mes&"</p></td></tr></table>"
end Sub
'**** End *************************************************************************************************************************
'商品关键词
'**** Start ************************************************************************************************************************
sub searchgjc
Dim sqls,rss
sqls="select * from search order by cs DESC"
Set rss = Server.CreateObject("ADODB.RecordSet")
rss.Open sqls, Conn, 1, 1
do while not rss.eof
response.write"<a href=""searchshop.asp?product_name="&server.urlencode(rss(""&lan_gjc&""))&""" target=""_self"">"&rss(""&lan_gjc&"")&"</a> "
rss.movenext
loop
rss.close
set rss=nothing
end sub
'**** End *************************************************************************************************************************
sub pagelist()%>
<Script Language="JavaScript" type="text/JavaScript" src="include/js/Page.js"></Script>
<Script Language="JavaScript" type="text/JavaScript" >
var ss= new Cls_jsPage(<%=rs.recordCount%>,<%=rs.pagesize%>,5,"ss");
ss.setPageSE("Page=","");
ss.setPageInput("Page");
ss.setUrl("");
ss.setPageFrist("<font color=888888 class=GrayFont face=webdings title=首页>9</font>","<font face=webdings title=首页>9</font>");
ss.setPagePrev("<font color=888888 class=GrayFont face=webdings title=上页>7</font>","<font face=webdings title=上页>7</font>");
ss.setPageNext("<font color=888888 class=GrayFont face=webdings title=下页>8</font>","<font face=webdings title=下页>8</font>");
ss.setPageLast("<font color=888888 class=GrayFont face=webdings title=尾页>:</font>","<font face=webdings title=尾页>:</font>");
ss.setPageText("<font class='normalTextSmall'><u><b>{$PageNum}</b></u></font>","{$PageNum}");
ss.setPageTextF(" {$PageTextF} "," {$PageTextF} ");
ss.setPageSelect("{$PageNum}","{$PageNum}");
ss.setPageCss("PageInput","","");
ss.setHtml("<table class='bk' border='0' cellpadding='0' cellspacing='0'><tr align='center' height='18'><td>{$PageFrist} {$PagePrev}{$PageText}{$PageNext} {$PageLast}</td><td>{$PageInput}</td><td><table class='bk' border='0' cellpadding='0' cellspacing='0'><tr align='center' height='18'><td>Page：{$Page}/{$PageCount} Qty：{$PageSize} Total：{$RecCount}</td></tr></table></td></tr></table>");
ss.Write();
</Script>
<%end Sub
'**** End *************************************************************************************************************************
copy="56770 Eshop v4.0.0 免费版"
Sub qq_gd
If qq_zt=1 And qq_ys=0 Then
str_qqservice="<table border='0' width='100%' cellspacing='0' cellpadding='2' align='center'><tr><td align='center'>"
Set rs=conn.execute("select * from [56770_qq_sort] order by q_s_paixu desc")
If rs.eof Then
Else
Set rs_1=conn.execute("select q_s_id from [56770_qq_sort] where q_s_paixu<"&rs("q_s_paixu")&"")
Do While Not rs.eof
str_qqservice=str_qqservice&"["&Trim(rs("q_s_name"))&"："
Set rss=conn.execute("select * from [56770_qq] where q_s_id="&rs("q_s_id")&" order by q_paixu desc")
If Not rss.eof Then
Do While Not rss.eof
If oicq_zt=1 Then
str_qqservice=str_qqservice&"<a target='_blank' href='http://wpa.qq.com/msgrd?V=1&Uin="&rss("q_num")&"&Site="&Trim(rs("q_s_name"))&sitename&"&Menu=yes'><img border='0' src='http://wpa.qq.com/pa?p=1:"&rss("q_num")&":4' alt='"&Trim(rss("q_name"))&"' align='absmiddle'>"&Trim(rss("q_name"))&"</a> "
Else
str_qqservice=str_qqservice&"<a target='blank' href='http://wpa.qq.com/msgrd?V=1&Uin="&rss("q_num")&"&Site="&Trim(rs("q_s_name"))&sitename&"&Menu=yes'><img src='images/qq_face/"&rss("q_face")&".gif' height='16' border='0' align='absmiddle'>"&Trim(rss("q_name"))&"</a> "
End If
rss.movenext
Loop
End If
rss.close:Set rss=Nothing
str_qqservice=str_qqservice&"] "
rs.movenext
Loop
End If
rs.close:Set rs=Nothing
str_qqservice=str_qqservice&"</td></tr></table>"
End If
End Sub
%>
<%
sub qq_fd
If qq_zt=1 And qq_ys=1 Then
ontitle="客服在线，点击号码进行交谈" 'QQ在线文字说明
offtitle="客服不在线，点击号码进行留言。" 'QQ离线文字说明
rem 更新QQ咨询插件 56770.kingdge 2006-2-12
rem 获取全部QQ号码
Dim QQ_num
Set rss=conn.execute("select * from [56770_qq_sort] order by q_s_paixu desc")
If not rss.eof Then
Do While Not rss.eof
Set rs=conn.execute("select q_num from [56770_qq] where q_s_id="&rss("q_s_id")&" order by q_paixu desc")
If Not rs.eof Then
Do While Not rs.eof
QQ_num=QQ_num+CStr(rs("q_num"))+":"
rs.movenext
Loop
End If
rs.close:Set rs=Nothing
rss.movenext
Loop
End If
rss.close
%>
<script>
var online= new Array();
if (!document.layers)
document.write('<div id="divStayTopLeft" style="position:absolute">')
</script>
<layer id="divStayTopLeft">
<%If oicq_zt=1 Then%><script src="http://webpresence.qq.com/getonline?Type=1&<%=QQ_num%>"></script><%End if%>
<table border="0" width="100" cellspacing="0" cellpadding="0">
<tr><td width="100"><img src="images/qq_skin/<%=oicq_skin%>_1.gif" width="100" height="24" alt=""></td></tr>
<tr>
<td valign=middle background="images/qq_skin/<%=oicq_skin%>_2.gif">
<table border="0" width="96%" cellspacing="0" cellpadding="2" align="center">
<%
sum_num = UBound(Split(QQ_num,":"))
Set rs=conn.execute("select * from [56770_qq_sort] order by q_s_paixu desc")
If rs.eof Then
Else
Set rs_1=conn.execute("select q_s_id from [56770_qq_sort] where q_s_paixu<"&rs("q_s_paixu")&"")
Do While Not rs.eof
response.write"<tr><td height='20' class='qq_top'>"&Trim(rs("q_s_name"))&"</td></tr>"
Set rss=conn.execute("select * from [56770_qq] where q_s_id="&rs("q_s_id")&" order by q_paixu desc")
If Not rss.eof Then
Do While Not rss.eof
If oicq_zt=1 Then
%>
<script>
if (online[<%=online_num(rss("q_num"),QQ_num)%>]==0)
document.write("<tr><td> <img src=images/QQoffline.gif border=0 align=middle ALT='<%=offtitle%>'> <a class='qqb' target=blank href='http://wpa.qq.com/msgrd?V=1&Uin=<%=rss("q_num")%>&Site=<%=Trim(rs("q_s_name"))&sitename%>&Menu=yes' title='<%=offtitle%>'><%=Trim(rss("q_name"))%></a></td></tr>");
else
document.write("<tr><td> <img src='images/qq_face/<%=rss("q_face")%>.gif' border='0' align='absmiddle'> <a class='qqa' target=blank href='http://wpa.qq.com/msgrd?V=1&Uin=<%=rss("q_num")%>&Site=<%=Trim(rs("q_s_name"))&sitename%>&Menu=yes' title='<%=ontitle%>'><%=Trim(rss("q_name"))%></a></td></tr>");
</script>
<%
Else
response.write"<tr><td><a target='blank' href='http://wpa.qq.com/msgrd?V=1&Uin="&rss("q_num")&"&Site="&Trim(rs("q_s_name"))&sitename&"&Menu=yes'><img src='images/qq_face/"&rss("q_face")&".gif' height='16' border='0' align='absmiddle'>"&Trim(rss("q_name"))&"</a></td></tr>"
End If
rss.movenext
Loop
End If
rss.close:Set rss=Nothing
rs.movenext
Loop
End If
rs.close:Set rs=Nothing
%>
</table>
</td>
</tr>
<tr><td width="100"><img border=0 src="images/qq_skin/<%=oicq_skin%>_3.gif"></td></tr>
</table>
</layer>
<script type="text/javascript">
<%if qq_wz=1 and qq_zt=1 then%>
var verticalpos="fromtop"
<%elseif qq_wz=0 and qq_zt=1 then%>
var verticalpos="frombottom"
<%end if%>
if (!document.layers)
document.write('</div>')
function JSFX_FloatTopDiv()
{
var startX =document.body.clientWidth-<%=cint(sys_oicq_x)%>,
<%if qq_wz=1 and qq_zt=1 then%>
startY = 10;
<%elseif qq_wz=0 and qq_zt=1 then%>
startY = <%=cint(sys_oicq_y)%>;
<%end if%>
var ns = (navigator.appName.indexOf("Netscape") != -1);
var d = document;
function ml(id)
{
var el=d.getElementById?d.getElementById(id):d.all?d.all[id]:d.layers[id];
if(d.layers)el.style=el;
el.sP=function(x,y){this.style.left=x;this.style.top=y;};
el.x = startX;
if (verticalpos=="fromtop")
el.y = startY;
else{
el.y = ns ? pageYOffset + innerHeight : document.body.scrollTop + document.body.clientHeight;
el.y -= startY;
}
return el;
}
window.stayTopLeft=function()
{
if (verticalpos=="fromtop"){
var pY = ns ? pageYOffset : document.body.scrollTop;
ftlObj.y += (pY + startY - ftlObj.y)/8;
}
else{
var pY = ns ? pageYOffset + innerHeight : document.body.scrollTop + document.body.clientHeight;
ftlObj.y += (pY - startY - ftlObj.y)/8;
}
ftlObj.sP(ftlObj.x, ftlObj.y);
setTimeout("stayTopLeft()", 10);
}
ftlObj = ml("divStayTopLeft");
stayTopLeft();
}
JSFX_FloatTopDiv();
</script>
</html>
<%
End If
end Sub
'**** End *************************************************************************************************************************
'顶部导航
'**** Start ************************************************************************************************************************
SUB TOPMENU
head()
%>
<!--<table WIDTH="100%" border="0" cellpadding="1" align="left">
<tr>
<td align="left">-->
<%END Sub
'**** End *************************************************************************************************************************
Function countreplace(str)
If Isnull(Str) Then
countreplace = ""
Exit Function
End If
str=Replace(Str,"[today]",today)
str=Replace(Str,"[yeday]",yeday)
str=Replace(Str,"[Alday]",alday)
countreplace=str
End Function
Sub www56770com_count
'增加防刷新机制,增加后台管理
'BY 小寒 www.56770.com 2005-5-9
'2005-7-26 更新
'-----------------------------------------------------------------
'林子站点计数器 Ver1.0 精简版 设计制作：林子 |
'程序版权归林子所有，任何人可以发布修改本系统，请注明出处，谢谢！|
'E-mail:502230@163.com linzi.cnzzz.com |
'-----------------------------------------------------------------
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="select * from [56770_count]"
Rs.open Sql,Conn,1,3
' response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
if rs(4)=date() and rs("shuaxin")=0 then
rs(1)=rs(1)+1
rs(3)=rs(3)+1
Elseif rs(4)=date() and request.cookies("IPAddress")="" and rs("shuaxin")=1 then
rs(1)=rs(1)+1
rs(3)=rs(3)+1
response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
Response.Cookies("Time").expires=date+1
Elseif rs(4)<>date() then
rs(2)=rs(1)
rs(1)=1
rs(3)=rs(3)+1
rs(4)=date()
response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
Response.Cookies("Time").expires=date+1
End if
'Caday=date-rs(5) '统计天数
'Avday=int(rs(3)/CAday) '平均每天访问次数
today=rs(1) '今天访问次数
yeday=rs(2) '昨天访问次数
Alday=rs(3) '所有访问次数
rs.update
rs.close:set rs=Nothing
If count_ys=1 Then
strcount = countreplace(www56770com_word628)
ElseIf count_ys=2 Then
strcount = countreplace(www56770com_word627)
End if
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -