|
<% response.write ""&chr(i)&""%>
|
<%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select user_name,name from username where Pin_Yin_List='"&lcase(chr(i))&"' and con_num <> 0 order by name desc"
rs.Open sql,conn,1,1
if NOT rs.EOF then
do while NOT rs.EOF
%>
<%
for t=1 to 7
if NOT rs.EOF then
Response.Write("| ")
%>
target=_blank><%=rs("name")%>
<%
rs.MoveNext
end if
next
%>
|
<%
loop
else
'//////////////////////
'判断可以在此目录下填加文章了
'////////////////////
'Content_Add=True
Response.Write ""
Response.Write "| "
Response.Write "--"
Response.Write " | "
Response.Write " "
end if
rs.close
set rs = nothing
%>
|
<%
next
%>
