select_type.asp

来自「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」· ASP 代码 · 共 70 行

ASP
70
字号
<%@ codepage ="936" %><!--#include file="../../inc/config.asp"-->
<!--#include file="../../conn/dbconn2.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>选择行业类别</title>
<LINK href="../Style.css" rel=stylesheet type=text/css>
</head>
<SCRIPT LANGUAGE="JavaScript">
function retForm(sortid,typeid,sortname,typename) 
{ 
if (!opener) return true;
opener.document.forms[0].sortid.value = sortid;
if (!opener) return true;
opener.document.forms[0].typeid.value = typeid;
if(opener.document.forms[0].cat_sel_name)
opener.document.forms[0].cat_sel_name.value = sortname+ " >> "+ typename;
self.close();
return false;
}
</SCRIPT>
<%
dim rssort
dim sortsql
if not isEmpty(request("sortid")) then
sortid=request("sortid")
else
sortid=1
end if
Set rssort= Server.CreateObject("ADODB.Recordset") 
sortsql="select * from class_1 where sortid="&sortid&"" 
rssort.open sortsql,conn,1,1
sortname=rssort("sort")
rssort.close
set rstype=server.createobject("adodb.recordset") 
typesql="select * from class_2 where sortid="&sortid&"" 
rstype.open typesql,conn,1,1 
%>
<CENTER>
<TABLE align=center border=0 cellPadding=3 cellSpacing=0 width="98%">
<TBODY>
<tr>
<td colspan=6><img border="0" src="../images/hangye.gif"></td>
</tr>
<tr><td colspan=6 height=10></td></tr>
<TR>
<TD align=middle vAlign=top width=600>
<TABLE border="0" width="100%" cellpadding="0"> 
<%do while not rstype.eof%> 
<TR> 
<td width="5%" height="20" align="center"></td> 
<td width="28%" height="20" align="left"><p style="line-height: 150%"><IMG src="../images/list.gif"> <a href="" onclick="return retForm('<%=sortid%>','<%=rstype("typeid")%>','<%=sortname%>','<%=rstype("typename")%>')"><%=rstype("typename")%></a><font size="1" color="#ff6600"></font></TD>
<%rstype.movenext %> 
<td width="5%" height="20" align="center"></td> 
<td width="28%" height="20" align="left"><p style="line-height: 150%"><IMG src="../images/list.gif"> <a href="" onclick="return retForm('<%=sortid%>','<%=rstype("typeid")%>','<%=sortname%>','<%=rstype("typename")%>')"><%=rstype("typename")%></a><font size="1" color="#ff6600"></font></TD>
<% rstype.movenext %> 
<td width="5%" height="20" align="center"></td> 
<td width="29%" height="20" align="left" ><p style="line-height: 150%"><IMG src="../images/list.gif"> <a href="" onclick="return retForm('<%=sortid%>','<%=rstype("typeid")%>','<%=sortname%>','<%=rstype("typename")%>')"><%=rstype("typename")%></a><font size="1" color="#ff6600"></font></TD>
</TR> 
<% rstype.movenext 
loop 
rstype.close 
%> 
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</body>
</html>

⌨️ 快捷键说明

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