📄 new_company.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.

💻 ASP

字号:

<%@ codepage ="936" %>
<!--#include file="../inc/config.asp"-->
<!--#include file="../conn/dbconn1.asp"-->
<%
const TjMax=13
dim rs1
dim sql1
set rs1=server.createobject("adodb.recordset") 
sql1="select url,id,qymc from qyml order by ID desc"
rs1.open sql1,conn,1,1
%>
<html>
<link href="../css/main.css" rel="stylesheet" type="text/css">
<title>商务网－－最新公司</title>
<body>
<BODY text=#000000 leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="60" valign="middle">

<%do while not rs1.eof%>
 &nbsp;<font face='Wingdings'>w</font><span lang="en-us">
 	<%if rs1("url")<>"" then %><a target="_blank" href="../<%=rs1("url")%>">
	<%else%><a target="_blank" href="../company/index.asp?id=<%=rs1("id")%>">
	<%end if%>
	<%if len(rs1("qymc"))>11 then%>
	<%=rs1("qymc")%>...
	<%else%>
	<%=rs1("qymc")%>
	<%end if%>
	</a><br>
<%n=n+1 
if n>=TjMax then exit do 
rs1.movenext 
loop
rs1.close 
set rs1=nothing 
%>
</td>
</tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -