.....
Sub Execute()
Response.Write "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" & vbcrlf
Response.Write "<html xmlns=""http://www.w3.org/1999/xhtml"">" & vbcrlf
Response.Write "<head>" & vbcrlf
Response.Write "<title>搜索结果-" & KSCMS.GetConfig("WebName") & "</title>" & vbcrlf
Response.Write "<link href=""" & KSCMS.GetConfig("InstallDir") & "images/sousuo.css"" type=text/css rel=stylesheet>" & vbcrlf
Response.Write "<link href=""" & KSCMS.GetConfig("InstallDir") & "images/style.css"" type=text/css rel=stylesheet>" & vbcrlf
Response.Write "</head>" & vbcrlf
Response.Write "<body>" & vbcrlf
%>
<!--#include file="head.htm"-->
<%Response.Write "<div class=""content"">" & vbcrlf
.....
Response.Write "" & vbcrlf
Response.Write "" & vbcrlf
Response.Write SearchForm
Response.Write "</div>" & vbcrlf
%>
<!--#include file="foot.htm"-->
<%
' Response.Write "<div class=""footer"">" & vbcrlf
' Response.Write "<p>"& KSCMS.GetConfig("CopyRight") &" </p>" & vbcrlf
' Response.Write "<p>Powered By <a href='http://www.kesion.com'