showoneitem.asp

来自「欢迎您使用审批系统!该系统主要面向银行内部人员,但也为客户提供一些信息." 登陆」· ASP 代码 · 共 19 行

<%
    sub ShowOneItem(rs)
        tab="<table border=0 width=""100%"">"
        tab=tab& "<tr><td bgcolor=#00d0d0>姓名:"&rs("姓名") &"</td>"
        tab=tab& "<tr><td>性别:"&rs("性别") &"</td>"
        tab=tab& "<tr><td >地址:"&rs("地址") &"</td>"
        tab=tab& "<tr><td >邮编:"&rs("邮编") &"</td>"
        tab=tab& "<tr><td >传真:"&rs("传真") &"</td>"
        tab=tab& "<tr><td >电子邮件:<A HREF="&"mailto:" & rs("电邮")&">"
        tab=tab&rs("电邮")&"</td>"
        tab=tab& "<tr><td >主题:"&rs("主题") &"</td>"
        tab=tab& "<tr><td  colspan=2>留言时间:"&rs("时间") &"</td>"
        memo=replace(rs("内容"),chr(13),"<br>")
        tab=tab& "<tr><td colspan=2 ><pre><font size=+1>留言："
        tab=tab& memo&"</font></pre></tr></td>"
        tab=tab&"</table><hr>"
        Response.write  tab
   end sub
%>