authorintro.asp

3000首FLASH源程序

<table width="100%" border="0" cellspacing="0" cellpadding="0" style="TABLE-LAYOUT: fixed; border-collapse:collapse; border-left-width:1; border-right-width:1; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" bordercolor="#111111">
  <tr>
  <td colspan="2" bgcolor="<%=aTabletitlecolor%>" height=16 style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1"><span lang="zh-cn">&nbsp; 
  名 家 推 介--&gt;&gt;&gt;</span></td>
  </tr>
  <tr>
    <td valign="top" width="50%" style="WORD-WRAP: break-word"> 
      <%
		sql="select top 1 jsauthorid from const"
		rs.open sql,conn,1,1
			if not rs.eof then
				jsauthorid=rs("jsauthorid")
			end if
		rs.close
sql="select top 1 * from author where authorid="&jsauthorid
rs.open sql,conn,1,1
if not rs.eof then
authorid=rs("authorid")
%>
      <table border="0" cellspacing="0" cellpadding="5" width="95" align="left">
        <tr> 
          <td align="center"><a href="authorlist.asp?id=<%=authorid%>" target="_blank"><img src="<%=rs("images")%>" border="0" width="86" height="110"></a></td>
        </tr>
      </table>      
      <%=left(rs("content"),310)%>...... 
      <%
else
Response.Write "<img src=""photo/zhaopianzq.jpg"" border=""0"" width=""86"" height=""110"">"
end if
rs.close
%>
    </td>
    <td align="center" valign="top" width="50%"> 
      <%
sql="select top 6 * from pic where authorid="&authorid&" order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
%>
      <table width="100%" border="0" cellspacing="5" cellpadding="5">
        <tr>
          <td>
            <table border="0" cellspacing="0" cellpadding="2" style="TABLE-LAYOUT: fixed">
<%
i=0
while not rs.EOF
i=i+1
if i mod 2=1  then response.write "<tr>"
%>
                <td align="center" style="WORD-WRAP: break-word"> 
                  <p><a href="piclist.asp?id=<%=rs("id")%>&classid=<%=rs("classid")%>" target="_blank"><img src="<%=rs("images")%>" border="0" width="72" height="54"></a><br>
                    <a href="piclist.asp?id=<%=rs("id")%>&classid=<%=rs("classid")%>" target="_blank"><%=rs("title")%></a> 
                  </p>
                </td>
      <%
if i mod 2=0  then response.write "</tr>"	  
rs.MoveNext
wend
%>
            </table>
          </td>
        </tr>
      </table>			
<%
else
Response.Write "<img src="""" border=""0"" width=""72"" height=""54"" alt=""尚无作品"">"
end if
%>


    </td>
</tr>
</table>
<%
rs.close
%>