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

📄 ltzy.asp

📁 宁波娱乐在线城市,丰富的内容版块
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
      <TD width=80% rowspan="2" align=middle vAlign=center bgColor=#F7F7F7 fixed>
<%
    LM = CommandEx("329|")
if GetPart(LM(0),2) > 0 then
    if Int(GetPart(LM(0),2)) <= 8 then
        m = Int(GetPart(LM(0),2))
    else
        m = 8
    end if
    
    for i=1 to m
        if LM(i) = "" then exit for
        Response.Write("<TABLE WIDTH=100% CELLPADDING=2 CELLSPACING=2 BORDER=0 HEIGHT=25>")
        Response.Write("<TR><TD ALIGN=CENTER WIDTH=20% ><TABLE WIDTH=100% frame=vsides bgcolor=#84B6DE cellspacing=1 cellpadding=0 BORDER=0 HEIGHT=25><tr><td bgcolor=#ADBCC2 align=center><a href=list.asp?ID="&GetPart(LM(i),1)&"><font color=#21517B><B>"&GetPart(LM(i),2)&"</B></font></a></TD></TR></TABLE></TD><TD BGCOLOR=#F7F7F7>")
        LT = CommandEx("320|"&GetPart(LM(i),1)&"|1")
        if (Int(GetPart(LT(0),2))) <= 6 then
            n = Int(GetPart(LT(0),2))
        else
            n = 6
        end if
        for j=1 to n
            if LT(j) = "" then exit for
            Response.Write("&nbsp;<a href=ltlb.asp?ID="&GetPart(LT(j),1)&"><font class=pt9>"&GetPart(LT(j),2)&"</font></a>")
        next
        if (Int(GetPart(LT(0),2))) > 6 then
            Response.Write("&nbsp;&nbsp;<a href=list.asp?ID="&GetPart(LM(i),1)&">更 多 >></a></div>")
        else
            Response.Write("&nbsp;")
        end if
        Response.Write("</TD></TR></TABLE>")
    next
else
    Response.Write("")
end if%>
	  </TD>
                <TD height="23" align=center background="images/1-11.gif"><img src="images/ico_search.gif" border=0 align=absmiddle hspace="4"><FONT color=#21517B><B>搜 
                  索 引 擎</TD>
    </TR>
    <TR>
      <TD align=left bgColor=#F7F7F7>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
    <TR><form name="form1" onsubmit="return(search4())"> 
      <TD align=center>
<script>
function search4()
{
if(form1.abc0.checked)
window.open("http://search.sina.com.cn/cgi-bin/search/search.cgi?_searchkey="+form1.key.value,"mspg0");
if(form1.abc1.checked)
window.open("http://site.search.sohu.com/sitesearch.jsp?page_index=0&key_word="+form1.key.value,"mspg1");
if(form1.abc2.checked)
window.open("http://cn.search.yahoo.com/search/cn?p="+form1.key.value,"mspg2");
if(form1.abc3.checked)
window.open("http://nisearch.163.com/Search?q="+form1.key.value,"mspg3");
if(form1.abc4.checked)
window.open("http://cns.3721.com/cns.dll?name="+form1.key.value,"mspg4");
if(form1.abc5.checked)
window.open("http://search.yahoo.com/bin/search?p="+form1.key.value,"mspg5");
if(form1.abc6.checked)
window.open("http://www.google.com/search?hl=zh-CN&lr=lang_zh-CN&q="+form1.key.value,"mspg6");
if(form1.abc7.checked)
window.open("http://search.excite.com/search.gw?search="+form1.key.value,"mspg7");
if(form1.abc8.checked)
window.open("http://www1.baidu.com/baidu?word="+form1.key.value,"mspg8");
if(form1.abc9.checked)
window.open("http://search.sogua.com/search/search.asp?key="+form1.key.value,"mspg9");
if(form1.wf66.checked)
window.open("http://mysms.163.com:8888/ring_search.php?s="+form1.key.value,"mspg10");
return false;
}
</script>

<input class="urs" onfocus="this.value=''" size="22" value="多关键字用符号“+”" name="key" style="font-size:9pt"><br>
<span style=font-size:9pt><input type="checkbox" value="sina" name="abc0">新浪<input type="checkbox" value="sohu" name="abc1">搜狐<input type="checkbox" value="yahoo" name="abc2">雅虎&nbsp;<br><input type="checkbox" value="yeah" name="abc3">网易<input type="checkbox" value="baidu" name="abc8">百度<input type="checkbox" value="3721" name="abc4">3721&nbsp;<br><input type="checkbox" value="excite" name="abc9">音乐<input type="checkbox" value="excite" name="wf66">铃声<input type="checkbox" value="yahooe" name="abc5">Yahoo<br><input type="checkbox" value="google" name="abc6" checked>google<input type="checkbox" value="excite" name="abc7">Excite</span>&nbsp;<input type="submit" value="搜" name="B1" class=TButton></TD></form></TR></TABLE>

</TD></TR>
</TABLE>
</td>
</tr></table>
</td></tr></table>
<br>




<table cellpadding="0" cellspacing="0" border="0" bgcolor="#CCCCCC" width="97%" align="center">
  <tr><td>
<table cellpadding="4" cellspacing="1" border="0"  width="100%">
<tr><td bgcolor="#F9F9F9">
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=1 bgColor=#84B6DE>
    <TR> 
      <TD width=80% rowspan="10" vAlign=top fixed>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
            <TR><TD colSpan=4 background=images/titlebg.gif>
			  
			<table border=0 cellPadding=0 cellSpacing=0 width="100%">
			<TR><TD height=32><img src="images/new10.gif" ALIGN="ABSMIDDLE" VSPACE="4" HSPACE="4"><FONT 
            color=#21517B><b>最新发表文章</b></FONT></TD></TR>
			<TR><TD height=2 bgColor=#C3C3C3><img src="images/1x1.gif"></TD></TR>
			</table>
			</TD></TR>
            <TR bgcolor="#FFFFFF"> 
              <TD align=middle vAlign=center bgcolor="#F7F7F7" fixed>
			<table border=0 cellPadding=0 cellSpacing=0 width="100%">
			<TR><TD height=5><img src="images/1x1.gif"></TD></TR>
			</table>
			<table width="100%" border="0" cellpadding="1" cellspacing="0" align="center">
                         
                         <%
                        ret = CommandEx("314|")
                        if GetPart(ret(1),1) <> "" then
                            if GetPart(ret(0),1) = "0" then
                                for i=1 to 10
                                    if trim(GetPart(ret(i),1)) = "" then exit for
                                    Response.Write("<tr><td><img src=images/yhftz.gif ALIGN=ABSMIDDLE VSPACE=3 HSPACE=4>【<A href=ltlb.asp?ID="&GetPart(ret(i),1)&">"&GetPart(ret(i),2)&"</A>】<A href=wzlb.asp?RTID="&GetPart(ret(i),1)&"&ID="&GetPart(ret(i),3)&"><font color=#3E81A8>"&GetPart(ret(i),4)&"</FONT></A> [<A href=javascript:ShowGRZL('"&GetPart(ret(i),5)&"')>"&GetPart(ret(i),5)&"</A>]<font color=#083C6B class=p10>("&mid(GetPart(ret(i),6),1,10)&")</FONT></td></tr>")
                                next
                            end if
                        else
                            Response.Write("<tr><td>&nbsp;</td></tr>")
                        end if
                        %>
                                    </table>
              </TD>
            </TR>
        </TABLE>
        <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
            <TR><TD colSpan=4 background=images/titlebg.gif>
			  
			<table border=0 cellPadding=0 cellSpacing=0 width="100%">
			<TR><TD height=32><img src="images/new10.gif" ALIGN="ABSMIDDLE" VSPACE="4" HSPACE="4"><FONT 
            color=#21517B><b>最新推荐文章</b></FONT></TD></TR>
			<TR><TD height=2 bgColor=#C3C3C3><img src="images/1x1.gif"></TD></TR>
			</table>

			</TD></TR>
            <TR bgcolor="#FFFFFF"> 
              <TD align=middle vAlign=center bgcolor="#F7F7F7" fixed>
			  <table width="100%" border="0" cellspacing="0" cellpadding="1">
         <tr>
         <td height="200" valign=top> 
<table border=0 cellPadding=0 cellSpacing=0 width="100%">
<TR><TD height=5><img src="images/1x1.gif"></TD></TR>
</table>
<%
WZ = CommandEx("341|")
if GetPart(WZ(0),2) > 0 then
    if (Int(GetPart(WZ(0),2))) <= 10 then
        Response.Write("<table width=100% border=0 cellpadding=1 cellspacing=0>")
        for i=1 to Int(GetPart(WZ(0),2))
            if trim(GetPart(WZ(i),1)) = "" then exit for
            Response.Write("<tr><td><img src=images/tjwz.gif ALIGN=ABSMIDDLE VSPACE=3 HSPACE=4>【<A href=ltlb.asp?ID="&GetPart(WZ(i),1)&">"&GetPart(WZ(i),2)&"</A>】<A href=wzlb.asp?RTID="&GetPart(WZ(i),1)&"&ID="&GetPart(WZ(i),3)&"><FONT color=#3E81A8>"&GetPart(WZ(i),4)&"</FONT></A> [<A href=javascript:ShowGRZL('"&GetPart(WZ(i),5)&"')>"&GetPart(WZ(i),5)&"</A>]<span class=p10>("&mid(GetPart(WZ(i),6),1,10)&")</span></td></tr>")
        next
        Response.Write("</table>")
    else
        Response.Write("<marquee id=mar scrollAmount=1 direction=up scrolldelay=80 trueSpeed=false style=width:100%;height:182px onMouseOut=this.start(); onMouseOver=this.stop();>")
        Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0>")
        for i=1 to Int(GetPart(WZ(0),2))
            if trim(GetPart(WZ(i),1)) = "" then exit for
            Response.Write("<tr><td><img src=images/tjwz.gif ALIGN=ABSMIDDLE VSPACE=2 HSPACE=4>【<A href=ltlb.asp?ID="&GetPart(WZ(i),1)&">"&GetPart(WZ(i),2)&"</A>】<A href=wzlb.asp?RTID="&GetPart(WZ(i),1)&"&ID="&GetPart(WZ(i),3)&"><FONT color=#3E81A8>"&GetPart(WZ(i),4)&"</FONT></A> [<A href=javascript:ShowGRZL('"&GetPart(WZ(i),5)&"')>"&GetPart(WZ(i),5)&"</A>]<span class=p10>("&mid(GetPart(WZ(i),6),1,10)&")</span></td></tr>")
        next
        Response.Write("</table>")
        Response.Write("</marquee>")
    end if
else
    Response.Write("&nbsp;")
end if

%>
          </td>
        </tr>
      </table>
			  </TD>
            </TR>
        </TABLE> 
     
	 
	 </TD>
      <TD valign=top bgcolor=#EFF5FA>

<table width="100%" border="0" cellspacing="0" cellpadding="2">
      <tr> 
	  <TD height="23"align=center background="images/1-11.gif"><img src=images/ico_vote.gif align=absmiddle hspace=4><FONT color=#21517B ><B>投 票 调 查</B></FONT></TD>
    </TR>
    <TR> 
      <TD>
<!--
<script language="javascript" src="vote/votedy.asp"></script>
//-->
<%
set rs=server.createobject("adodb.recordset")
set rs=conn.execute("select top 1 * from voteclass order by id desc")
title=rs("title")
style=rs("style")
classid=rs("id")
rs.close

sql="select * from vote where class="&classid
rs.open sql,conn,3,1%>

<table border='0' width='98%' cellspacing='2' cellpadding='2' align=center>
<tr><form method='POST' target='_blank' action='vote/votetou.asp?classid=<%=classid%>&style=<%=style%>'>
<td width='100%' height='25'>
<p><b><%=title%><b></td>
</tr>
<tr>
<td width='100%'>
<div align='center'>
<center>
<table border='0' width='90%' cellspacing='0' cellpadding='0'>
<%do while not rs.eof%>
<tr>
<td width='100%'><input type='<%=style%>' name='voted' value='<%=rs("id")%>'><%=rs("vote")%></td>
</tr>
<%rs.movenext
loop%>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width='100%' valign='bottom' align='center' height='30'><input type='submit' value='投 票' name='B1' style=font-size:9pt>&nbsp;<a href='#' onclick=window.open('vote/showvote.asp?classid=<%=classid%>','','width=650,height=300,resizable=1,scrollbars=1');>投票结果</a></td>
</form></tr></table>
<%rs.close
set rs=nothing
conn.close
set conn=nothing%>

<%=IIF(UCase(Application("NC")) = UCase(Request.Cookies("NC")),"<a href='vote/step1.asp'>投票管理</a>","")%>
</TD></TR>
</TABLE>


	  
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr><TD HEIGHT="23" ALIGN="CENTER" background="images/1-11.gif"><B><font color=#21517B>用户文章查询</font></B></TD>
</TR>
<TR><TD align=center>
<TABLE WIDTH="100%" HEIGHT="40" CELLPADDING="0" CELLSPACING="1" BORDER="0">
<TR><form method="post" action="findzzwz.asp"><TD align=center>
<input type="text" name="zz" size="12" value=输入用户名 style="font-size:12px" onfocus="this.value=''"><input type="submit" name="Submit" value="查找" style="font-size:12px"></td>
</td></form></tr>
</TABLE>
</TD></TR>
</TABLE>


<table width="100%" border="0" cellspacing="0" cellpadding="2">
      <tr> 
	  <TD height="25" align=center background="images/1-11.gif"><FONT color=#21517B ><B>浏 览 翻 译</B></FONT></TD>
    </TR>
    <TR> 
      <TD align=center nowrap>

<FORM name=trans onsubmit="return validate()" target="_blank">
<table width="100%" height=5><tr><td><src="images/1x1.gif"></td></tr></table>
网址:<INPUT size=14 name=url value="http://" style="font-size:9pt" onfocus="this.value=''">
<table width="100%" height=5><tr><td><src="images/1x1.gif"></td></tr></table>
<SELECT id=select1 onchange=Select_Lang_ID() size=1 name=Source_Lang style="font-size:9pt">
<OPTION value=-1 selected>原语种</OPTION> 
<OPTION value=0>英　语</OPTION> 
<OPTION value=1>简　体</OPTION> 
<OPTION value=2>繁　体</OPTION> 
<OPTION value=3>日　文</OPTION></SELECT>
<SELECT id=select2 size=1 name=Target_Lang style="font-size:9pt"> 
<OPTION value=-1 selected>译语种</OPTION></SELECT>
<table width="100%" height=5><tr><td><src="images/1x1.gif"></td></tr></table>
<INPUT style="font-size:9pt" type=submit value=确定(Translate) name=Submit23>
<table width="100%" height=5><tr><td><src="images/1x1.gif"></td></tr></table>
</TD></TR>
</TABLE>



</td></tr></table> 
</td></tr></table>
    <td background="images/1-11.gif"></td></tr></table>
<br>

<%EndTime=timer()%>
<div align=center>[查询所用时间： <%=FormatNumber((EndTime-StarTime)*1000,3)%>毫秒]</div>
<br>
</body>
</html>
12

⌨️ 快捷键说明

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