<%
dim id,rs,exec
id = request.querystring("id")
If id="" Then
server_v40=Request.ServerVariables("QUERY_STRING")
id=Int(replace(replace(server_v40,"/",""),".html",""))
End If
if id = "" or not isnumeric(id) then
response.write ""
response.end
end if
exec="select * from [about] 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
end if
%>
<%=config("title")%>
" />
" />
锘?/head>
棣栭〉-鍚堜綔鏀跨瓥-<%=rs("title")%>