inc_content.asp

商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会

<%
if infocount>0 then
	sqltext="select * from miscell_info where miscellno="&keyno&" and enflag<>'1' order by sortnum"
	rs2.Open sqltext,cn,1,1
	do while not rs2.EOF
		if rs2("picflag")="1" then
			picalign2=trim(rs2("picalign"))
			if picalign2="center" then
%>	
				<div align=center>
				<%if rs2("picflag2")="1" then%>
					<a href="../admin/pic_displaybig.asp?code=miscell_info2&keyno=<%=rs2("keyno")%>" target=_blank><img src="../admin/pic_display.asp?code=miscell_info&keyno=<%=rs2("keyno")%>" border="0"></a>
				<%else%>
					<img src="../admin/pic_display.asp?code=miscell_info&keyno=<%=rs2("keyno")%>" border="0">
				<%end if%>
				</div>
				<%if rs2("flag")="1" then%>
					<div align=center><%=trim(rs2("title"))%></div>
				<%end if	
			else
				if rs2("picflag2")="1" then
			%>
					<a href="../admin/pic_displaybig.asp?code=miscell_info2&keyno=<%=rs2("keyno")%>" target=_blank><img src="../admin/pic_display.asp?code=miscell_info&keyno=<%=rs2("keyno")%>" border="0" align=<%=picalign2%>></a>
			    <% else %>
					<img src="../admin/pic_display.asp?code=miscell_info&keyno=<%=rs2("keyno")%>" border="0" align=<%=picalign2%>>
				 <%end if
			end if
		end if
		Response.Write(checkstr(trim(rs2("content")),"1")&"<br>")
		rs2.MoveNext
		loop
	rs2.Close
else
	if picflag="1" then
		piccode="miscell"
		if picflag2="1" then piccode="miscell2"
		if picalign="center" then				
		%>
			<center><img src="../admin/pic_display.asp?code=<%=piccode%>&keyno=<%=keyno%>" border="0"></center><br>
	    <%else%>
		<img src="../admin/pic_display.asp?code=<%=piccode%>&keyno=<%=keyno%>" border="0" align="<%=picalign%>"><br>
		<%	end if
	end if	
	Response.Write(checkstr(content,"1"))
end if%>