[导入]JavaScript在ASP里的应用！-优快云博客

博主做完网站后试运行，遇到诸多错误。文中展示了一段代码，包含数据库查询、记录集操作等。强调要注意代码中的替换操作，避免JavaScript错误，同时需关注浏览器对JavaScript的支持，后续会写完整文章。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

网站做完了，好多错误，先试运行一段时间了！今天被这个文件搓折了一下！写上来分析一下：

<%
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
%>