<%
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mite.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
%>
<%
set tirs = Server.CreateObject("adodb.recordset")
tirs.open "select * from mite_time" ,conn,1,3
dim systime
systime=date
nowtime=tirs("infor_time")
tt=cdate(date)-cdate(nowtime)
if tt < 5 then
%>
<%
check=trim("http://"&Request.ServerVariables("SERVER_NAME"))
set zrs=Server.CreateObject("adodb.recordset")
zrs.open "select * from url where kurl like '%"&check&"%'" ,conn,1,1
if zrs.EOF and zrs.BOF then
lbid="1"
else if check<>zrs("kurl") then
lbid="1"
else
lbid=zrs("klbid")
ktitle=zrs("ktitle")
kdp=zrs("kdp")
kbottom=zrs("kbottom")
end if
end if
%>
<%
id=trim(request("pid"))
if trim(request("pid"))<>"" then
pid=trim(request("pid"))
Set rs = Server.CreateObject("adodb.recordset")
rs.open "select * from link where mite_list= "&pid&"",conn,1,1
else
pid=lbid
Set rs = Server.CreateObject("adodb.recordset")
rs.open "select * from link where mite_list= "&lbid&"",conn,1,1
end if
%>
<%=ktitle%>友情链接系统
<%=ktitle%>
<%=kdp%>
<%
if rs.EOF and rs.BOF then
response.write (" 暂无友情链接")
else
Do Until rs.EOF
abc=pid
%>
<%
rs.MoveNext
Loop
end if
%>
<%
rs.close
set conn=Nothing
%>
<%=kbottom%>
<%
else
tirs("infor_time")=systime
tirs.update
%>
<%
Dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mite.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
%>
<%
conn.execute("delete from link")
conn.execute("delete from url")
set zxrs = Server.CreateObject("adodb.recordset")
zxrs.open "select * from link" ,conn,1,3
set miters = Server.CreateObject("adodb.recordset")
miters.open "select * from url" ,conn,1,3
%>
<%
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=vip.yewei.org.cn;UID=sq_jtcm2008;Password=fg67ihwiuf;DATABASE=sq_jtcm2008"
set gkcon = server.createobject("adodb.connection")
gkcon.open strconn
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from link" ,gkcon,1,1
Do Until rs.EOF
re_mite_name=rs("mite_name")
re_mite_url=rs("mite_url")
re_mite_alt=rs("mite_alt")
re_mite_list=rs("mite_list")
zxrs.addnew
zxrs("mite_name")=re_mite_name
zxrs("mite_url")=re_mite_url
zxrs("mite_alt")=re_mite_alt
zxrs("mite_list")=re_mite_list
zxrs.update
rs.MoveNext
Loop
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from url" ,gkcon,1,1
Do Until rs.EOF
re_kurl=rs("kurl")
re_ktitle=rs("ktitle")
re_kdp=rs("kdp")
re_klbid=rs("klbid")
re_kbottom=rs("kbottom")
miters.addnew
miters("kurl")=re_kurl
miters("ktitle")=re_ktitle
miters("kdp")=re_kdp
miters("klbid")=re_klbid
miters("kbottom")=re_kbottom
miters.update
rs.MoveNext
Loop
%>
<%
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mite.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
%>
<%
'check=trim("http://"&Request.ServerVariables("SERVER_NAME"))
check="http://www.daiyunbb.cn"
set zrs=Server.CreateObject("adodb.recordset")
zrs.open "select * from url where kurl like '%"&check&"%'" ,conn,1,1
if zrs.EOF and zrs.BOF then
lbid="1"
else if check<>zrs("kurl") then
lbid="1"
else
lbid=zrs("klbid")
ktitle=zrs("ktitle")
kdp=zrs("kdp")
kbottom=zrs("kbottom")
end if
end if
%>
<%
id=trim(request("pid"))
if trim(request("pid"))<>"" then
pid=trim(request("pid"))
Set rs = Server.CreateObject("adodb.recordset")
rs.open "select * from link where mite_list= "&pid&"",conn,1,1
else
pid=lbid
Set rs = Server.CreateObject("adodb.recordset")
rs.open "select * from link where mite_list= "&lbid&"",conn,1,1
end if
%>
<%=ktitle%>友情链接系统
<%=ktitle%>
<%=kdp%>
<%
if rs.EOF and rs.BOF then
response.write (" 暂无友情链接")
else
Do Until rs.EOF
abc=pid
%>