| |
|
|
|
|
|
『淘一世』10MB商务空间专拍链接 |
『淘一世』20MB商务空间专拍链接 |
『淘一世』30MB商务空间专拍链接 |
『淘一世』50MB商务空间专拍链接 |
<%
rstj1.close
set rstj1=nothing
%> |
<%
dim j,all
j=1
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from siteclass"
rs.open sql,conn,1,1
if rs.recordcount>1 then
all=rs.recordcount
else
all=1
end if
%>
<%do until rs.eof%> | v <%
response.write ""&rs("sitetype")&""
%>
|
<%
if j mod 5=0 then response.write " "
rs.movenext
j=j+1
loop
rs.close
set rs=nothing
%>
|
|
<%
set rsnews=Server.CreateObject("ADODB.Recordset")
sqlnews="select top 9 * from news where type='news' order by id desc"
rsnews.open sqlnews,conn,1,3
if rsnews.eof and rsnews.bof then
response.write "
目前暂无信息！"
end if
do while not rsnews.eof%>
· " target="_blank" title="<%=rsnews("title")%>"><%=left(rsnews("title"),14)%> [<%=rsnews("time")%>]
<%
if rsnews("time")=date() then
Response.Write(" ")
end if%> |
<%rsnews.movenext
loop
rsnews.close %>
|
<%
set rshelp=Server.CreateObject("ADODB.Recordset")
sqlhelp="select top 12 * from news where type='help' order by id desc"
rshelp.open sqlhelp,conn,1,3
if rshelp.eof and rshelp.bof then
response.write "
目前暂无信息！"
end if
do while not rshelp.eof%>
| · " target="_blank" title="<%=rshelp("title")%>"><%=left(rshelp("title"),14)%> [<%=rshelp("time")%>]
<%
if rshelp("time")=date() then
Response.Write("")
end if
%>
|
<%rshelp.movenext
loop
rshelp.close %>
|
|
|
 |
淘一世(Tao14)储存专家为您免费服务...
