www.gusucode.com > 芝麻屋小小留言本 2.0码程序 > admin/inc/config.asp

    <%
exec="select * from webset"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
'Version 2.0 
T1=rs("Title")
T2="小小留言本系统-"
T3="芝麻屋留言本系统-"
T4="Version 2.0"
Title=T1&T2&T3&t4
description=rs("description")
Keywords=rs("Keywords")
CopyRight=rs("CopyRight")
b=5
function cut(a,b)
if len(a)>b then
cut=left(a,b)&"***"
else
cut=a
end if
end function
%>