📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/config.asp" -->
<%
if session("rsnews").state = &H00000001 then
session("rsnews").close
end if
session("mode") = "user"
session("rsnews").open "select * from enterprise_type",session("conn")
%>
<HTML>
<HEAD>
<TITLE>企业名录</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY>
<table cellspacing=0 cellpadding=0 width=470 border=0 align="center">
<tbody>
<%
while not session("rsnews").eof
%>
<tr>
<td align="center" valign="top"><table width="250" border="0" cellspacing="1" cellpadding="1">
<tr>
<td align="center" bgcolor="#dddddd"><%= session("rsnews")("type") %></td>
</tr>
<tr>
<td align="center"> <%
session("sqlString") = "select top 5 id,name from v_enter where type_id = " & session("rsnews")("id")
'Response.Write(session("sqlString"))
Server.Execute("list_enter.asp")
%> </td>
</tr>
<tr>
<td colspan="2" align="right"> <a href="more_enter.asp?type=<%= session("rsnews")("id") & "&typename=" & session("rsnews")("type") %>">MORE...</a></td>
</tr>
</table></td>
<%
session("rsnews").movenext
if not session("rsnews").eof then
%>
<td align="center" valign="top"><table width="250" border="0" cellspacing="1" cellpadding="1">
<tr>
<td align="center" bgcolor="#dddddd"><%= session("rsnews")("type") %></td>
</tr>
<tr>
<td align="center"> <%
session("sqlString") = "select top 5 * from v_enter where type_id = " & session("rsnews")("id")
'Response.Write(session("sqlString"))
Server.Execute("list_enter.asp")
%> </td>
</tr>
<tr>
<td colspan="2" align="right"> <a href="more_enter.asp?type=<%= session("rsnews")("id") & "&typename=" & session("rsnews")("type") %>">MORE...</a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="10" colspan="2" align="center"> </td>
</tr>
<%
session("rsnews").movenext
end if
wend
session("rsnews").close
%>
</tbody>
</table>
</BODY>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -