copyright.asp

来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 27 行

<%
dim webemail,dizhi,youbian,dianhua,copyright
set rs=server.CreateObject("adodb.recordset")
    rs.Open "select * from shop_config",conn,1,1

    webemail = trim(rs("webemail"))
    dizhi    = trim(rs("dizhi"))
    youbian  = trim(rs("youbian"))
    dianhua  = trim(rs("dianhua"))
    copyright= trim(rs("copyright"))

    rs.Close
set rs=nothing
%>
<hr align="center" width="776" size="1">
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align=center><%dim endtime
endtime=timer()
response.Write "客户服务中心信箱："&webemail&"&nbsp;&nbsp;&nbsp;&nbsp;热线直拨："&dianhua&"<br>"
    response.Write "公司地址："&dizhi&"&nbsp;&nbsp;&nbsp;&nbsp;邮编："&youbian&"&nbsp;&nbsp;&nbsp;<font color=red>页面执行时间"&FormatNumber((endtime-startime)*1000,3)&" 毫秒</font><br>"
    response.Write "Copyright &copy; "&copyright
  response.Write "&nbsp;&nbsp;程序设计：<a href=mailto:[e-mail]?subject=荣拓工作室你好..><font color=black>荣拓工作室</font></a> 3.20完成"
  %>
  </tr>
</table>