type.asp

来自「全功能网上商城 免费版」· ASP 代码 · 共 36 行

<%
sqltype = "select * from SearchType"
set rstype = Server.CreateObject("ADODB.RecordSet")
rstype.open sqltype,conn,1,1


if rstype.eof and rstype.bof then
response.write "<br>暂时没有定义搜索类别<br>"
else
%>

<TABLE border=0 cellpadding=2 cellspacing=3 bordercolor=#004392 width='100%'>
<%
Do While Not rstype.eof 

response.write "<TR><TD colspan="&type_col&"><b> 按"&rstype("SearchName")&"</b></TD></TR><tr>"
v = split(rstype("SearchContain"),"|")
for i=0 to Ubound(v)	
	if i mod type_col =0 and i<>0 then
		response.write "</tr><tr>"
		if instr(V(i),"*")= 0 then response.write "<TD><a href='searchtype.asp?code="&rstype("TypeNo")&i+1&"'>"&V(i)&"</a></TD>"
	else
		if instr(V(i),"*")= 0 then response.write "<TD><a href='searchtype.asp?code="&rstype("TypeNo")&i+1&"'>"&V(i)&"</a></TD>"
	end if
next

rstype.movenext
loop
%>
<tr><td></td></tr>
</TABLE>
<%
end if
set rstype=nothing
%>