
ASP代码,我想在同一个页面下另一个表格中引用同一数据库(ACCESS)下的另一个表的内容
哪个高位能帮我稍稍修改一下,小女子在线等...这是一段<tr><tdwidth="20"></td><td><%=TopNews()%></td></tr>这又是一段fu...
哪个高位能帮我稍稍修改一下,小女子在线等...
这是一段
<tr>
<td width="20"></td>
<td><%=TopNews()%></td>
</tr>
这又是一段
function TopNews()
dim rs,sql,i,NewsName,NewFlag
set rs = server.createobject("adodb.recordset")
sql="select ID,NewsName"&LangData&",SortID,AddTime from NwebCn_News where ViewFlag"&LangData&" order by id desc"
rs.open sql,conn,1,1
response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
response.write "<tr><td height='1'></td></tr>"
if rs.bof and rs.eof then
response.write "<tr><td align='center'>暂无相关信息</td></tr>"
else
for i=1 to 5
if rs.eof then exit for
if StrLen(rs("NewsName"&LangData))<=36 then
NewsName=rs("NewsName"&LangData)
else
NewsName=StrLeft(rs("NewsName"&LangData),34)
end if
if now()-rs("AddTime")<=2 then
NewFlag=" <img src='Images/New_01.gif'>"
else
NewFlag=""
end if
response.write"<tr ><td class='ListTitle'> <FONT style='FONT-SIZE: 12px; COLOR: #333333; FONT-FAMILY: Webdings'>4</FONT> <a href='NewsView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>"&NewsName&"</a>"&NewFlag&"</td></tr>"
rs.movenext
next
end if
response.write "<tr><td height='6'></td></tr>"
response.write"</table>"
rs.close
set rs=nothing
end function 展开
这是一段
<tr>
<td width="20"></td>
<td><%=TopNews()%></td>
</tr>
这又是一段
function TopNews()
dim rs,sql,i,NewsName,NewFlag
set rs = server.createobject("adodb.recordset")
sql="select ID,NewsName"&LangData&",SortID,AddTime from NwebCn_News where ViewFlag"&LangData&" order by id desc"
rs.open sql,conn,1,1
response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
response.write "<tr><td height='1'></td></tr>"
if rs.bof and rs.eof then
response.write "<tr><td align='center'>暂无相关信息</td></tr>"
else
for i=1 to 5
if rs.eof then exit for
if StrLen(rs("NewsName"&LangData))<=36 then
NewsName=rs("NewsName"&LangData)
else
NewsName=StrLeft(rs("NewsName"&LangData),34)
end if
if now()-rs("AddTime")<=2 then
NewFlag=" <img src='Images/New_01.gif'>"
else
NewFlag=""
end if
response.write"<tr ><td class='ListTitle'> <FONT style='FONT-SIZE: 12px; COLOR: #333333; FONT-FAMILY: Webdings'>4</FONT> <a href='NewsView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>"&NewsName&"</a>"&NewFlag&"</td></tr>"
rs.movenext
next
end if
response.write "<tr><td height='6'></td></tr>"
response.write"</table>"
rs.close
set rs=nothing
end function 展开
2个回答
展开全部
请提供另一个数据表的表名,需要读取的字段,页面点击查看需要转向的链接。我来帮你改!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询