ASP如何在一张表里显示两张数据库内容【asp吧】

有一张数据是partid:
下面代码:



<SCRIPT language=javascript>
function unselectall()
{
     if(document.del.chkAll.checked){
     document.del.chkAll.checked = document.del.chkAll.checked&0;
     }
}
function CheckAll(form)
   {
   for (var i=0;i<form.elements.length;i++)
     {
     var e = form.elements[i];
     if (e.Name != "chkAll")
        e.checked = form.chkAll.checked;
     }
   }
function ConfirmDel()
{
    if(confirm("确定要删除选中的新闻吗？一旦删除将不能恢复！"))
      return true;
    else
      return false;
}
</SCRIPT>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from News partid order by id desc"
rs.open sql,conn,1,1
If rs.EOF Then
     response.Write " 暂无产品！"
Else
     rs.PageSize = 16 '每页记录条数
     iCount = rs.RecordCount '记录总数
     iPageSize = rs.PageSize
     maxpage = rs.PageCount
     page = request("page")
     If Not IsNumeric(page) Or page = "" Then
         page = 1
     Else
         page = CInt(page)
     End If
     If page<1 Then
         page = 1
     ElseIf page>maxpage Then
         page = maxpage
     End If
     rs.AbsolutePage = Page
     If page = maxpage Then
         x = iCount - (maxpage -1) * iPageSize
     Else
         x = iPageSize
     End If
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
.bg1 {
     line-height: 25px;
     background-color: #FFCC99;
     font-size: 14px;
     font-weight: bolder;
     color: #1E5494;
}
.bg2 {
     background-color: #EBE1C9;

     border-top-style: none;
     border-right-style: solid;
     border-bottom-style: solid;
     border-left-style: none;
     border-top-color: #3399FF;
     border-bottom-color: #3399FF;
     border-top-width: 1px;
     border-right-width: 1px;
     border-bottom-width: 1px;
     border-left-width: 1px;
     border-right-color: #3399FF;
     border-left-color: #3399FF;
     font-size: 12px;
     font-family: Arial, Helvetica, sans-serif;
     font-weight: normal;
}
body {
     background-color: #EBE1C9;
}
.bg3 {
}
body,td,th {
     color: #1E5494;
     font-family: Georgia, Times New Roman, Times, serif;
     font-size: 10px;
}
a:link {
     color: #1E5494;
     text-decoration: none;
}
a:visited {
     color: #1E5494;
     text-decoration: none;
}
a:hover {
     color: #FF6633;
     text-decoration: none;
}
a:active {
     color: #1E5494;
     text-decoration: none;
}
-->
</style>
</head>
<body>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
   <tr>
     <td colspan="8" class="bg1">  新闻中心</td>
   </tr>
   <tr>
     <td width="21" class="bg2"> </td>
     <td width="35" class="bg2"><div align="center"><strong>ID</strong></div></td>
     <td width="350" height="25" class="bg2"><div align="center"><strong>新闻标题</strong></div></td>
     <td width="94" class="bg2"><div align="center"><strong>新闻类目</strong></div></td>
     <td width="94" class="bg2"><div align="center"><strong>发布时间</strong></div></td>
     <td width="94" class="bg2"><div align="center"><strong>新闻来源</strong></div></td>
     <td colspan="2" class="bg2"><div align="center"><strong>操作</strong></div></td>
   </tr>
   <form method="post" action="del2.asp">
   <%do while not rs.eof%>
   <tr>
     <td class="bg2"><input type="checkbox" name="ids" value="<%= rs("id") %>" /></td>

     <td class="bg2"><div align="center"><%=rs("id")%></div></td>
     <td width="280" height="20" class="bg2"><a href=../News.asp?id=<%=rs("ID")%> target="_blank"><%=left(rs("News_bt"),22)%></a></td>
     <td class="bg2"><div align="center"><%=rs("partid")%></div></td>
     <td class="bg2"><div align="center"><%=formatdate(rs("time"),2)%></div></td>
     <td class="bg2"> </td>
     <td width="24" class="bg2"><label>
       <input type="checkbox" name="ids" value="<%= rs(0) %>" />
       </label></td>
     <td width="237" class="bg2"><div align="center"><a href="../News.asp?id=<%=rs("ID")%>" target="_blank">[预览]</a> <a href="ad_ModNews.asp?id=<%=rs("ID")%>"> [修改]</a></div></td>
   </tr>
     <%
rs.movenext
loop%>
   <tr>
     <td colspan="8" class="bg2"><label>
       <div align="center">
         <input type="submit" name="Submit" value="删除" onClick="return ConfirmDel();删除">
         </div>
     </label></td>
   </tr>
   </form>
               <%
               End If
               %>
   <tr>
     <td colspan="8" class="bg2"><font color="#FF0000">
       <%'閸掑棝銆夐崘锻啇閵?
             Call PageControl(iCount, maxpage, page, "border=0 align=center", "<p align=center>")
             rs.Close
             Set rs = Nothing
             %>
     </font></td>
   </tr>
</table>
</body>
</html>

日	一	二	三	四	五	六

ASP如何在一张表里显示两张数据库内容

扫二维码下载贴吧客户端