%
'######################################
' 启点在线企业网站管理系统中英文版
' Enterprise Web Site Management System
' 官方网站:http://www.kelvinvt.com
' 联系QQ:15038883
' 淘宝店: http://kelvinvt.taobao.com
'######################################
%>
<%
dim id,rs,exec,title
id = request.querystring("id")
if id <> "" then
if not isnumeric(id) then
response.write ""
response.end
end if
exec="select * from shop where id="&id
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
if rs.eof then
rs.close
set rs = nothing
conn.close
set conn = nothing
response.write ""
response.end
else
title = rs("title")
end if
else
title = ""
end if
%>