<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=false
const ChannelID=0
const SkinID=0
%>
新疆红盾信息网
<%
dim sqlLink,rsLink,LinkType,MaxPerPage
LinkType=trim(request("LinkType"))
strFileName="index.asp?LinkType=" & LinkType
MaxPerPage=20
PageTitle="友情链接"
sqlLink="select * from PE_FriendSite where IsOK=1 "
if LinkType<>"" then
LinkType=CInt(LinkType)
if LinkType=1 then
sqlLink=sqlLink & " and LinkType=1 "
elseif LinkType=2 then
sqlLink=sqlLink & " and LinkType=2 "
end if
end if
sqlLink=sqlLink & " order by id desc"
set rsLink=server.createobject("adodb.recordset")
rsLink.open sqlLink,conn,1,1
%>
