inhelp.asp

来自「凡人网络购物系统 v8.0 中文版」· ASP 代码 · 共 30 行

<table cellSpacing="0" cellPadding="0" border="0" width="171">
	<tr><td height="5"></td></tr>
	<tr><td><img border="0" src="Skin/<%=venshop_skin%>/inhelp1.gif" width="171" height="44"></td></tr>
	<tr><td align="middle" background="Skin/<%=venshop_skin%>/inhelp3.gif">
<%set rs=server.CreateObject("adodb.recordset")
sql="select * from venshop_type order by id asc"
	rs.open sql,conn,1,1 
	if rs.bof and rs.eof then 
	response.write "没有分类" 
	else 
	do while not rs.eof 
typeid=rs("id")%>
<table cellpadding=5 width="90%"  border=0 style="border-collapse: collapse" bordercolor="#111111">
<tr><td colspan="3"><a href="help.asp?typeid=<%=rs("id")%>"><b><%=rs("typename")%></b></a></td></tr>
<tr><td colspan=3 height=2 background=Img/dot_menu.gif></td></tr>
<%set rs8=server.CreateObject("adodb.recordset")
rs8.open "select * from venshop_book where typeid="&typeid&" order by id asc",conn,1,1
do while not rs8.eof and not rs8.bof%>
<tr><td><a href="help.asp?id=<%=rs8("id")%>">>>&nbsp;<%=rs8("title")%></a></td></tr>
<tr><td colspan=3 height=2 background=Img/dot_menu.gif></td></tr>
<%rs8.movenext
loop
rs8.close
set rs8=nothing%></table>
<%rs.movenext
loop 
end if 
rs.close
set rs=nothing%></td></tr>
<tr><td align="middle"><img border="0" src="Skin/<%=venshop_skin%>/inhelp2.gif" width="171" height="9"></td></tr></table>