show.asp

这是一个我自己写的有关java的编程之道

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%id=request.QueryString("id")
if id="" then 
Response.Redirect"error.asp" 
response.end 
end if%>
<%object=request.QueryString("object")%>
<%
if object="" then object=("办公室") else object=object end if%>


<style type="text/css">
<!--
.STYLE1 {
	font-size: 18px;
	font-weight: bold;
}
.STYLE3 {color: #FF0000}
.STYLE4 {color: #0000FF}
-->
</style>	 <%
	set macopad=conn.execute("select * from macopadlist where id="&id)
	
%>

<title>会员<%response.Write(macopad("name"))%>信息页面</title><table width="872" height="338" border="0" align="center">
  <tr>
    <td height="334"><table width="348" border="1" align="center" bordercolor="#999999">
      <tr>
        <td height="28" colspan="2"><div align="center" class="STYLE1">会员信息</div></td>
        </tr>
      <tr>
        <td>姓名：</td>
        <td width="251"><%response.Write(macopad("name"))%>&nbsp;</td>
      </tr>
      <tr>
        <td width="81">性别：</td>
        <td><%response.Write(macopad("sex"))%>&nbsp;</td>
        </tr>
      <tr>
        <td>手机号码：</td>
        <td><%response.Write(macopad("cellphone"))%>&nbsp;</td>
      </tr>
      <tr>
        <td>论坛ID：</td>
        <td><%response.Write(macopad("cert"))%>&nbsp;</td>
      </tr>
      <tr>
        <td>E_mail:</td>
        <td><%response.Write(macopad("email"))%>&nbsp;</td>
      </tr>
      <tr>
        <td>QQ/MSN:</td>
        <td><%response.Write(macopad("qq"))%>&nbsp;</td>
      </tr>
      <tr>
        <td>个人主页：</td>
        <td><%response.Write(macopad("web"))%>&nbsp;</td>
      </tr>
      <tr>
        <td>所属部门: </td>
        <td><%response.Write(macopad("bumen"))%>&nbsp;</td>
      </tr>
      <tr>
        <td>宿舍地址：</td>
        <td><%response.Write(macopad("gongyu"))%>&nbsp;</td>
      </tr>
      <tr>
        <td>特长爱好：</td>
        <td><%response.Write(macopad("love"))%>&nbsp;</td>
      </tr>
      <tr>
        <td colspan="2"><div align="center">个人介绍</div></td>
        </tr>
      
      
      <tr>
        <td height="129" colspan="2"><%response.Write(macopad("content"))%>&nbsp;
          <P class="STYLE3">
            <span class="STYLE4">[
            <%response.Write(macopad("adminname"))%>
            ]</span>
            评价：
            
            <%response.Write(macopad("admin"))%>
          </td>
        </tr>
    </table></td>
  </tr>
</table>