网站做完了，好多错误，先试运行一段时间了！今天被这个文件搓折了一下！写上来分析一下：
<!--#include file="include/db_conn.asp"-->
<%
sql="select top 2 h_id,h_date,h_resume,h_address from t_house where h_web=yes order by h_sort,h_id"
set sr=Server.CreateObject("ADODB.recordset")
sr.open sql,conn,1,1
str="<table width=100% border=0 cellpadding=0 cellspacing=0><tr>"
do until sr.eof
sql_2="select top 1 w_pic from t_web_msg where w_msg_id="&sr("h_id")
set pic_set=conn.execute(sql_2)
pic_address=""
if not pic_set.eof then
pic_address=replace(pic_set("w_pic"),"//","/")
end if
if pic_address="" then
pic_address="/images/NoPic.gif"
end if
str=str&"<td width=50% ><table width=100% border=0><tr><td><a href='web_view_detail.asp?id="&sr("h_id")&"'>"
str=str&"<img src='"&pic_address&"' width='117' height='94' border='0' align='left'><b>"&sr("h_address")&"</b>["&month(sr("h_date"))&"-"&day(sr("h_date"))&"]<br>"&left(sr("h_resume"),200)&"......"
str=str&"</a></td></tr></table></td>"
sr.moveNext
loop
str=str&"</tr></table>"
str=replace(str,chr(10),"")
str=replace(str,chr(13),"")
response.Write("document.write("&chr(34)&str&chr(34)&");")
sr.close
set sr=nothing
CloseConn
%>
要注意一些替换，不然总有些JavaScript的错误！还有，注意浏览器对JavaScript的支持！今天没太多时间，就先写些，过些时候写个完整的文章上来！
文章来源:http://computer.mblogger.cn/wucountry/posts/24471.aspx