bottom.asp

来自「本程序是一款比较完善的图书租赁系统」· ASP 代码 · 共 19 行

<%
strSQL="SELECT * FROM [SysInfo]"
Set objRS=Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL,objConn,1,3

Dim Owner,Copyright,Contact
Owner=objRS("SI_Owner_S")
Copyright=objRS("SI_Copyright_S")
Contact=objRS("SI_Contact_S")

objRS.Close
Set objRS=Nothing
%>
<table width=97% align=center cellspacing=0 cellpadding=0>
<tr><td align=center><hr size=2></td></tr>
<tr><td align=center>本程序注册给：<b><font color=red><%=Owner%></font></b>使用</td></tr>
<tr><td align=center>Copyright by：<b><%=Copyright%></b></td></tr>
<tr><td align=center>E-mail：<a href=mailto:<%=Contact%></a><b><%=Contact%></b></a></td></tr>
</table>