⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 otype.asp

📁 全新后台新闻编辑器 2.全新后台下载编辑器 3.增加图片友情链接管理功能 4.JMail在线发送邮件,支持在线导出Email 5.新增在后台网站配置中指定网站首页新闻条数 6.后台
💻 ASP
字号:
<!--#include file="Inc/syscode.asp" -->
<!--#include file="head.asp" -->
<% 
owen1=request("owen1")
owen2=request("owen2")
%><body topmargin="0">

<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" valign="top" class="bg"><table width="779" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="779" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="32" valign="top" background="img/cont_left_bg.gif"><img src="img/cont_left_img01.gif" width="32" height="603"></td>
            <td valign="top" bgcolor="#FFFFFF"><table width="715" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="8" background="img/cont_bg01.gif"></td>
                </tr>
                <tr>
                  <td valign="top"><table width="715" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td width="215" align="left" valign="top"><table width="200" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td><table width="200" border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                <td><img src="img/left_img01.gif" width="200" height="16"></td>
                              </tr>
                              <tr>
                                <td align="center" valign="top" background="img/left_bg.gif"><table width="184" border="0" cellspacing="0" cellpadding="0">
                                    <tr>
                                      <td><img src="img/left_img03.gif" width="184" height="52"></td>
                                    </tr>
                                    <tr>
                                      <td align="center" valign="top"><table width="178" border="0" cellspacing="0" cellpadding="0">
                                          <tr>
                                            <td align="center" valign="top" bgcolor="#EBE7D8"><% call ShowUserLogin() %></td>
                                          </tr>
                                      </table></td>
                                    </tr>
                                </table></td>
                              </tr>
                              <tr>
                                <td><img src="img/left_img02.gif" width="200" height="15"></td>
                              </tr>
                          </table></td>
                        </tr>
                        <tr>
                          <td style="padding-top:7px; "><table cellspacing=0 cellpadding=0 width=200 border=0>
                              <tr>
                                <td><div align=center><img height=67 src="Img/serch_6.gif" 
                  width=200></div></td>
                              </tr>
                              <tr>
                                <td align="center" background=img/serch_4.gif>
                                    <table width="89%" border="0" cellpadding="0" cellspacing="0">
                                      <form name="form1" method="get" action="News_search.asp">
                                        <tr>
                                          <td  height="30" align="center" bgcolor="#F4F4F4"><input type="text" name="key" size="19" class="input"></td>
                                        </tr>
                                        <tr>
                                          <td height="30" align="center" bgcolor="#F4F4F4"><select name="otype" class="input">
                                              <option value="title" selected class="input">新闻标题</option>
                                              <option value="msg" class="input">新闻内容</option>
                                            </select>
                                            <input type="submit" name="Submit2" value="搜索" class="input"></td>
                                        </tr>
                                      </form>
                                  </table></td>
                              </tr>
                              <tr>
                                <td><div align=center><img height=23 src="img/serch_3.gif" 
                  width=200></div></td>
                              </tr>
                          </table></td>
                        </tr>
                        <tr>
                          <td style="padding-top:7px; "><table cellspacing=0 cellpadding=0 width=200 border=0>
                            <tr>
                              <td><div align=center><img height=53 src="Img/fl_tit.gif" 
                  width=200></div></td>
                            </tr>
                            <tr>
                              <td style="padding-top:10px; padding-bottom:10px; " align="center" valign="top" background=img/serch_4.gif><table width="80%" border="0" cellpadding="0" cellspacing="0">
                                <tr>
                                  <td height="20"><div align="center"><a href="News.asp">企 业 新 闻</a></div></td>
                                </tr>
                                <TR>
                                  <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                                </TR>
                                <tr>
                                  <td height="20"><div align="center"><a href="yeNews.asp">业 内 资 讯</a></div></td>
                                </tr>
                                <TR>
                                  <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                                </TR>
                              </table></td>
                            </tr>
                            <tr>
                              <td><div align=center><img height=12 src="img/serch_5.gif" 
                  width=200></div></td>
                            </tr>
                          </table></td>
                        </tr>
                        <tr>
                          <td valign="top" style="padding-top:7px; "><table cellspacing=0 cellpadding=0 width=200 border=0>
                            <tr>
                              <td><div align=center><img height=53 src="Img/serch_7.gif" 
                  width=200></div></td>
                            </tr>
                            <tr>
                              <td style="padding-top:6px; " align="center" valign="top" background=img/serch_4.gif><table width="94%" border="0" cellpadding="0" cellspacing="0">
                                  <%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="SELECT * from NEWS order by id desc" 
rs.Open sql,conn,1,1
if not Rs.eof then
do while not rs.eof
t=t+1
%>
                                  <tr>
                                    <td width="17%" height="22" align="center"><%= t %></td>
                                    <td width="82%"><a href="shownews.asp?id=<%=rs("id")%>" title="<%=rs("title")%>" target="_blank"><%=left(rs("title"),10)%></a></td>
                                  </tr>
                                  <% 
if t>=10 then exit do 
rs.movenext 
loop 
else 
response.write "<tr><td align=center colspan=2 bgcolor=#E8E8F4>尚无收录</td></tr>" 
end if 
rs.close 
%>
                              </table></td>
                            </tr>
                            <tr>
                              <td><div align=center><img height=12 src="img/serch_5.gif" 
                  width=200></div></td>
                            </tr>
                          </table></td>
                        </tr>
                      </table>
                        </td>
                      <td valign="top"><table width="501" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td width="501">
<script language='javascript'>
var imgUrl=new Array();
var imgLink=new Array();
var adNum=0;
imgUrl[1]="img/cp/chanpin3.jpg";
imgLink[1]="http://www.chinahaiwei.com";
imgUrl[2]="img/cp/chanpin2.jpg";
imgLink[2]="http://www.chinahaiwei.com";
imgUrl[3]="img/cp/chanpin1.jpg";
imgLink[3]="http://www.chinahaiwei.com";
var imgPre=new Array();
var j=0;
for (i=1;i<=3;i++) {
 if( (imgUrl[i]!="") && (imgLink[i]!="") ) {
 j++;
 } else {
 break;
 }
}
function playTran(){
 if (document.all)
 imgInit.filters.revealTrans.play();
}
var key=0;
function nextAd(){
 if(adNum<j)adNum++ ;
 else adNum=1;
 if( key==0 ){
 key=1;
 } else if (document.all){
 imgInit.filters.revealTrans.Transition=12;
 imgInit.filters.revealTrans.apply();
 playTran();
 }
 document.images.imgInit.src=imgUrl[adNum];

 theTimer=setTimeout("nextAd()", 5000);
}
function goUrl(){
 jumpUrl=imgLink[adNum];
 jumpTarget='_blank';
 if (jumpUrl != ''){
 if (jumpTarget != '')
 window.open(jumpUrl,jumpTarget);
 else
 location.href=jumpUrl;
 }
}
                          </script>
                            <a href="javascript:goUrl()"><img style="visibility:visible;filter:revealtrans(duration=4.0,transition=12);" src="javascript:nextAd()" width="500" height="180" border=0 name=imgInit></a></td>
                        </tr>
                        <tr>
                          <td style="padding-top:7px; " valign="top"><table width="500" border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td><img src="img/cont_tbl_img01.gif" width="500" height="16"></td>
                            </tr>
                            <tr>
                              <td height="300" align="center" valign="top" background="img/cont_tbl_bg.gif"><table width="94%" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td class="title_right" height="32">&nbsp;&nbsp;&nbsp;<img src="Images/smallbook.jpg" width="10" height="10">&nbsp;&nbsp;<a href="index.asp">首页</a>&gt;&gt;<a  href="otype.asp?owen1=<%=owen1%>"><%=owen1%></a></td>
                                </tr>
                                <tr>
                                  <td height="1" bgcolor="#999999" class="title_right"><img width="1" height="1"></td>
                                </tr>
                              </table>
                                <table width="94%" border="0" cellspacing="0" cellpadding="0">
                                  <tr>
                                    <td style="padding-top:10px; "><table width="94%" border="0" cellpadding="0" cellspacing="0">
                                      <% 
page=clng(request("page"))		 
Set rs=Server.CreateObject("ADODB.RecordSet") 
if owen1<>"" and owen2 <>"" then
sql="select * from news where BigClassName='"&owen1&"' and SmallClassName='"&owen2&"' order by id desc"
rs.Open sql,conn,1,1
elseif owen1<>"" then
sql="select * from news where BigClassName='"&owen1&"' order by id desc"
rs.Open sql,conn,1,1
end if
if rs.eof and rs.bof then
  response.Write("暂时没有记录")
else 
%>
                                      <% 
rs.PageSize=20
if page=0 then page=1 
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page  
for j=1 to rs.PageSize 
%>
                                      <tr>
                                        <td width="6%" height="24" align="center" >◎</td>
                                        <td height="24" style="BORDER-bottom: #999999 1px dotted"><% if rs("imagenum")<>"0" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %>
                                            <a href="shownews.asp?id=<%= RS("id") %>" target="_blank"><%= RS("TITLE") %></a> <font color="#999999">[<%= RS("infotime") %>] (阅读<font color="#ff0000"><%= RS("hits") %></font>次) </font></td>
                                      </tr>
                                      <%
rs.movenext
if rs.eof then exit for
next
%>
                                      <tr align="right" valign="bottom">
                                        <td height="50" colspan="2" ><form method=Post action="otype.asp?owen1=<%=owen1%>&owen2=<%=owen2%>">
                                            <%if Page<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&page=1>首页</a>&nbsp;"
    response.write "<a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&page=" & Page-1 & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&page=" & (page+1) & ">"
    response.write "下一页</a> <a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&owen2="&owen2&"&page="&rs.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次:<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
    response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
   response.write " 转到:<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
   response.write " <input class=input type='submit'  value=' Goto '  name='cndok'></span></p>"     
%>
                                        </form></td>
                                      </tr>
                                      <% 
end if
rs.close
set rs=nothing
%>
                                    </table></td>
                                  </tr>
                                </table>                                <p>&nbsp;</p></td>
                            </tr>
                            <tr>
                              <td><img src="img/cont_tbl_img02.gif" width="500" height="16"></td>
                            </tr>
                          </table></td>
                        </tr>
                      </table></td>
                    </tr>
                  </table></td>
                </tr>
            </table></td>
            <td width="32" valign="top" background="img/cont_right_bg.gif"><img src="img/cont_right_img01.gif" width="32" height="603"></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td background="img/cont_bg02.gif"><table width="779" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="33"><img src="img/cont_img01.gif" width="33" height="29"></td>
            <td>&nbsp;</td>
            <td width="33"><img src="img/cont_img02.gif" width="33" height="29"></td>
          </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>
<!--#include file="btm.asp" -->

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -