www.gusucode.com > 盐城分类信息网asp源码程序 > s1.asp

    <%
'***********************************
'本站由吉林信息网团队制作
'***********************************
'--------版权说明------------------
'吉林信息网官方网站：http://www.jl-e.com
'QQ:304133183  
'***********************************
%>
<table width="100%" cellspacing="0" cellpadding="0"><form action="so.asp" name="myform" method="POST"><tr><td width="539">&nbsp;热门:<MARQUEE scrollAmount=2 scrollDelay=3 align="left" onmouseover="this.stop()" onmouseout="this.start()" style="width: 500; padding-top: 2px; height:20" height="20" behavior="alternate"><%=hots%></MARQUEE>
</td>
<td width="434" align="right">
<DIV align="right" style="line-height: 120%; margin-top: 0; margin-bottom: 0">
<img border="0" src="image/search.gif">    
<%
dim rsc,sqlc
set rsc=server.createobject("adodb.recordset")
sqlc = "select * from class1 order by paixu desc"
rsc.open sqlc,conn,1,1
if rsc.eof and rsc.bof then
response.write "请先添加栏目。"
response.end
else
%><SELECT name="cla1"  size="1"  >
<OPTION selected value="0" >分类类别</OPTION>
<%do while not rsc.eof
%><OPTION value="<%=trim(rsc("id"))%>"><%=trim(rsc("class1"))%></OPTION>
<%
rsc.movenext
loop
end if
rsc.close
set rsc=nothing
%></SELECT>&nbsp;<input name="/2" type="text" class=inpbg1 size="22" onFocus="this.select()" onBlur="if (value ==''){value='关键字'}" onClick="if(this.value=='关键字')this.value=''"onMouseOver="this.focus()" value="关键字">&nbsp;<input type="submit" value="我搜" name="B2" style="height: 19"><a href="axx.asp"><img border="0" src="image/fa1.gif"></a>&nbsp;</DIV></td></tr></form></table><%
'***********************************
'本站由吉林信息网团队制作
'***********************************
'--------版权说明------------------
'吉林信息网官方网站：http://www.jl-e.com
'QQ:304133183  
'***********************************
%>