📄 newadd.asp

📁 北京商务网

💻 ASP

字号:

<%@ codepage ="936" %>
<!--#include file="../conn/dbconn1.asp"-->
<%
const TjMax=15
dim rs1
dim sql1
set rs1=server.createobject("adodb.recordset") 
sql1="select * from qyml where tjbz like '%01%' order by ID desc"
rs1.open sql1,conn,1,1
%>
<html>
<STYLE type=text/css>
<!--
td { font-family: "宋体"; font-size: 9pt; line-height: 14pt; }
-->
</STYLE>
<LINK 
href="../css/Style.css" rel=stylesheet type=text/css>
<title>21sji商贸网</title>
<body>
<BODY text=#000000 leftMargin=0 topMargin=0 
marginheight="0" marginwidth="0">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="209" id="AutoNumber3">
<tr>
<TD 
width="170" style="font-size: 12px; line-height: 150%" height="40">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5" height="42" background="images/fw2.gif">
<tr>
<td width="100%" height="60" valign="middle">
<marquee id="yczj" onmouseover="vbscript:yczj.stop()" style="FONT-SIZE: 9pt; LEFT: 1px; MARGIN-LEFT: 2px; TOP: 2px; HEIGHT: 80; TEXT-ALIGN: left" onmouseout="vbscript:yczj.Start()" scrollAmount="1" direction="up" behavior="loop" scrolldelay="100">
<%do while not rs1.eof%>
<a target="_blank" href="../company/index.asp?id=<%=rs1("id")%>"><%=rs1("qymc")%></a><font color="#808000">&nbsp;</font>&nbsp;<br>
<%n=n+1 
if n>=TjMax then exit do 
rs1.movenext 
loop
rs1.close 
set rs1=nothing 
%>
</a></marquee></td>
</tr>
</table>
<tr>
<TD height=5 style="font-size: 12px; line-height: 150%">
</TD>
</tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -