📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/function.asp"-->
<%
if IsNumeric(request.QueryString("user"))=False then
response.Redirect ("index.asp")
response.end
end if%>
<%
if request("user")<>"" then
a=Request.ServerVariables("REMOTE_ADDR")
b=Application("ip")
if Instr(b,a)>0 then
else
if replace(replace(replace(request("user"),"'",""),"""",""),"&","")>0 then
a=Time()
b=int(replace(a,":",""))
c=100000
d=int(day(Now))
if int(Month(Now))<10 then
yue="0"&int(Month(Now))
else
yue=int(Month(Now))
end if
if int(day(Now))<10 then
ri="0"&int(day(Now))
else
ri=int(day(Now))
end if
if b<c then
t="0"&Time()
else
t=Time()
end if
mu=yue&ri&t
mu=int(replace(mu,":",""))
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [G_user] where G_validate>0 and G_userid="&replace(replace(replace(request("user"),"'",""),"""",""),"&","")
rs.open sql,conn,1,3
if rs.eof then
else
rs("G_date")=mu
rs("G_comeintime")=now()
rs("G_comein")=(rs("G_comein")+1)
rs.update
rs.close
ip=Request.ServerVariables("REMOTE_ADDR")
today=right(year(now),1)&yue&ri
if int(today)>int(Application("mu")) then
Application("mu")=right(year(now),1)&yue&ri
Application("ip")=""
Application("Goip")=""
else
Application("mu")=right(year(now),1)&yue&ri
Application("ip")=ip&"|"&Application("ip")
end if
end if
end if
end if
end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>驴友俱乐部_中国驴友网_百万流量交换，打造驴友的世界</title>
<META Name="keywords" Content="驴友俱乐部,驴友俱乐部主页,驴友之家,中国驴友网,驴友俱乐部网,驴友俱乐部网站,驴友俱乐部网页,驴友俱乐部首页,百万主页,百万驴友俱乐部,百万驴友俱乐部主页,百万驴友俱乐部网,百万驴友俱乐部网站,百万驴友俱乐部网页,百万驴友俱乐部首页,百万网,百万网站,百万网页,百万美元,百万美元主页,百万美元网,百万美元网站,百万美元网页,百万美元首页,百万美圆,百万首页,网络驴友俱乐部,超级驴友俱乐部">
<META Name="description" Content="hikers.cn 百万流量免费广告s">
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #FFFFFF;
}
-->
</style></head>
<SCRIPT>
var ns4 = document.layers;
var ns6 = document.getElementById && !document.all;
var ie4 = document.all;
offsetX = 0;
offsetY = 20;
var toolTipSTYLE="";
function initToolTips() {
if(ns4||ns6||ie4) {
if(ns4) toolTipSTYLE = document.toolTipLayer;
else if(ns6) toolTipSTYLE = document.getElementById("toolTipLayer").style;
else if(ie4) toolTipSTYLE = document.all.toolTipLayer.style;
if(ns4) document.captureEvents(Event.MOUSEMOVE);
else {
toolTipSTYLE.visibility = "visible";
toolTipSTYLE.display = "none";
}
document.onmousemove = moveToMouseLoc;
}
}
function toolTip(msg, fg, bg) {
if(toolTip.arguments.length < 1) {// hide
if(ns4) toolTipSTYLE.visibility = "hidden";
else toolTipSTYLE.display = "none";
}
else {// show
if(!fg) fg = "#999900";
if(!bg) bg = "#FFFFFF";
var content =
'<table border="0" cellspacing="0" cellpadding="1" bgcolor="' + fg + '"><td>' +
'<table border="0" cellspacing="0" cellpadding="1" bgcolor="' + bg +
'"><td align="center" CLASS=tip><font face="sans-serif" color="' + fg +
'"> \;' + msg +
' \;</font></td></table></td></table>';
if(ns4) {
toolTipSTYLE.document.write(content);
toolTipSTYLE.document.close();
toolTipSTYLE.visibility = "visible";
}
if(ns6) {
document.getElementById("toolTipLayer").innerHTML = content;
toolTipSTYLE.display='block'
}
if(ie4) {
document.all("toolTipLayer").innerHTML=content;
toolTipSTYLE.display='block'
}
}
}
function moveToMouseLoc(e) {
if(ns4||ns6) {
x = e.pageX;
y = e.pageY;
}
else {
x = event.x + document.body.scrollLeft;
y = event.y + document.body.scrollTop;
}
toolTipSTYLE.left = x + offsetX;
toolTipSTYLE.top = y + offsetY;
return true;
}</SCRIPT>
<body>
<div align="center">
<!--#include file="top.asp"-->
<!--头部代码结束-->
<!--顶线注册2000家可以删除-->
<table width="1000" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1000" valign="top" background="images/grid1.gif">
<!--SHOW ADD-->
<%
dim num,i
set rs=server.CreateObject("adodb.recordset")
sql="select top 1000 * from G_user where G_comein>2 and G_validate=1 order by G_date desc"'G_userid
rs.open sql,conn,1,1%>
<table width="1000" border="0" cellspacing="0" cellpadding="0">
<%row_count=1 %>
<tr align="center"><%if rs.eof and rs.bof then
response.write (" ")
else
randomize
Num=(int(rnd()*802)+1)
i=Num
Do While Not rs.EOF%>
<td align="left"><table width="100" border="0" align="left" cellpadding="0" cellspacing="0">
<%if rs("G_photoshop")="no" then%>
<tr>
<td height="100" align="center" bgcolor="#FE<%=i%>"><a href="go.asp?id=<%=rs("G_userid")%>" target="_blank"><font title="<%=rs("G_webinfo")%>【点入】<%=rs("G_comein")%>【点出】<%=rs("G_goout")%>"><%=rs("G_webname")%><br><%=rs("G_webinfo")%></font></a></td>
</tr>
<%else%>
<tr>
<td height="100" align="center"><a href="go.asp?id=<%=rs("G_userid")%>" target="_blank"><img src="Spread/<%=rs("G_photoshop")%>" alt="<%=rs("G_webinfo")%>【点入】<%=rs("G_comein")%>【点出】<%=rs("G_goout")%>" width="100" height="100" border="0"></a></td>
</tr>
<%end if%>
</table></td>
<% if row_count mod 10 =0 then%>
</tr><%end if
rs.MoveNext
row_count=row_count+1
i=i+27
Loop
rs.close
end if%>
</table>
<!--SHOW END--></td>
</tr>
</table>
<!--底线注册超过2000家可以删除-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#887872"></td>
</tr>
</table>
<!--底部代码开始-->
<%call link()%>
<!--#include file="bottom.asp"-->
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -