 |
<%
Set rsqt=Server.CreateObject("ADODB.RecordSet")
sql="select top 5 * from vipbbs where typeid=65 order by id desc"
rsqt.Open sql,conn,1,1
if rsqt.eof and rsqt.bof then
%>
|
<%response.Write("数据库中暂无记录!")%> |
<%
else
if not rsqt.eof then
for i=1 to 5
if rsqt.eof then exit for
%>
| <%=rsqt("kaoshiriqi")%> |
<%=left(rsqt("title"),12)%> |
<%
rsqt.movenext
next
end if
end if
rsqt.close
set rsqt=nothing%>
 |
 |
<%
dim connstr1,conn1
connstr1 = "Provider = Sqloledb; User ID = kaoriyu; Password = kaoriyu@db.com; Initial Catalog = ask; Data Source = 210.51.190.113;"
set conn1=server.createobject("ADODB.CONNECTION")
conn1.open connstr1
if err then
response.Write("连接数据库出错,请检查!")
response.End()
end if
dim rs1,sql,i,str
set rs1=server.CreateObject("adodb.recordset")
sql ="Select top 10 bt,wt_filename from kw_wt where strong=1"
rs1.open sql,conn1,1,1
if rs1.bof and rs1.eof then
%>
- 数据库暂无记录
<%rs1.close
else
while not rs1.eof %>
- <%=left(rs1("bt"),12)%>
<%rs1.movenext
wend
rs1.close
end if
conn1.close
set conn1=nothing
%>
|
 |
|
|
