inhelp.asp

wanzhengban 完整版 wanzhengban 完整版

<table cellSpacing="0" cellPadding="0" border="0">
	<tr><td height="5"></td></tr>
	<tr><td><img border="0" src="img/inhelp1.gif" width="171" height="44"></td></tr>
	<tr><td align="middle" background="img/inhelp3.gif">
<%sql="select * from type"
	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 cellspacing=0 cellpadding=0 width="100%"  border=0 style="border-collapse: collapse" bordercolor="#111111">
<tr><td colspan="3" height="26" align="center"><font color="#000099"><%=rs("typename")%></font></td></tr>
<% set rs8=server.CreateObject("adodb.recordset")
rs8.open "select * from book where typeid="&typeid&"",conn,1,1%><tr>
<%i=-1
do while not rs8.eof and not rs8.bof
i=-i
if i=1 then%>
<td align="right" width="45%" height="23"><a href="help.asp?id=<%=rs8("id")%>"><%=rs8("title")%></a></td>
<td width="10%" align="center" height="23">|</td>
<%else%>
<td width="45%" height="23"><a href="help.asp?id=<%=rs8("id")%>"><%=rs8("title")%></a></td></tr><tr><%end if
rs8.movenext
loop
rs8.close
set rs8=nothing
%><%if i=1 then response.write"<td width=45% height=23></td>"%></tr></table><%rs.movenext 
loop 
end if 
rs.close%></td></tr>
<tr><td align="middle"><img border="0" src="img/inhelp2.gif" width="171" height="9"></td></tr></table>