weblink.asp

浪人文章系统

<%
if IndexWebLinkShow="1" then

dim rsWL9
set rsWL9=Server.CreateObject("Adodb.RecordSet")
GuSQL="select * from "&GuTablePrefix&"_Config where Co_ID=1"
rsWL9.open GuSQL,GuConn,1,1
if not(rsWL9.eof and rsWL9.bof) then
	Response.write rsWL9("Co_IndexWebLinkText")
end if
rsWL9.close
set rsWL9=Nothing

dim rsWL6
set rsWL6=Server.CreateObject("Adodb.RecordSet")
rsWL6.open "select * from "&GuTablePrefix&"_WebLink",GuConn,1,1
if err.number<>0 then
	Response.write "数据库查询出错"
else
	if rsWL6.bof and rsWL6.eof then
		Response.write ""
	else
%>
<center>
<table border="0" cellpadding="0" cellspacing="1" width="780" height="20" class="T_BGColor_1"><%
dim rsWL7,iWLT
set rsWL7=Server.CreateObject("Adodb.RecordSet")
rsWL7.open "select * from "&GuTablePrefix&"_WebLink where WL_Type='T' order by WL_Order asc",GuConn,1,1
if err.number<>0 then
	Response.write "数据库查询出错"
else
	if rsWL7.bof and rsWL7.eof then
		Response.write ""
	else
%><tr>
  <td width="780" height="30" class="T_TD_BGColor_1_2">&nbsp;<%
		iWLT=1
		do while not rsWL7.eof
%><a href="<%=rsWL7("WL_Href")%>" target="_blank" class="BlackS12" title="<%=rsWL7("WL_Title")%>"><%=rsWL7("WL_Name")%></a>&nbsp;<%
		if (iWLT mod IndexWebLinkTextNum)=0 then
			Response.write "<br>&nbsp;"
		end if
		iWLT=iWLT+1
		rsWL7.movenext
		loop
%></td>
 </tr>
<%
	end if
end if
rsWL7.close

dim rsWL8,iWLP
set rsWL8=Server.CreateObject("Adodb.RecordSet")
rsWL8.open "select * from "&GuTablePrefix&"_WebLink where WL_Type='P' order by WL_Order asc",GuConn,1,1
if err.number<>0 then
	Response.write "数据库查询出错"
else
	if rsWL8.bof and rsWL8.eof then
		Response.write ""
	else
%><tr>
  <td width="780" height="20" class="T_TD_BGColor_1_2"><table border="0" width="100%" height="20"><tr><td width="100%" height="2"></td></tr><tr><td width="100%" height="20"><%
		iWLP=1
		do while not rsWL8.eof
%>&nbsp;<a href="<%=rsWL8("WL_Href")%>" target="_blank"><img src="<%=rsWL8("WL_Picture")%>" border="0" width="88" height="31" title="<%=rsWL8("WL_Title")%>"></a><%
		if (iWLP mod IndexWebLinkPictureNum)=0 then
			Response.write "<br>"
		end if
		iWLP=iWLP+1
		rsWL8.movenext
		loop
%></td>
  </tr>
 </table></td>
 </tr>
<%
	end if
end if
rsWL8.close
%>
</table>
</center>
<%
	end if
end if
end if
%>