[导入]JavaScript在ASP里的应用!
2004-12-29 05:00
351 查看
网站做完了,好多错误,先试运行一段时间了!今天被这个文件搓折了一下!写上来分析一下:
<!--#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
<!--#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
相关文章推荐
- [导入]ASP.NET AJAX客户端编程之旅(三)——让JavaScript和C#无障碍沟通:数据类型自动转换&序列化
- [导入]浅谈MsChart在ASP中的应用(转)
- [转]asp的textbox的javascript应用
- javascript在asp.ne中的应用
- 在ASP.Net中应用Javascript
- 用javascript编写asp应用--第一课--通览
- javascript 随机数 与高级应用 附vbscript(asp) 随机数总结
- JavaScript、jQuery在ASP.NET中的应用
- 在ASP.Net中应用Javascript
- 如何解决在ASP.NET中应用JavaScript的 alert 函数时弹出的窗口背景全部为白色的问题
- [导入]本周ASP.NET英文技术文章推荐[03/02 - 03/15]:ASP.NET AJAX、LinqDataSource、ListView、MVC、JavaScript、智能感知、Ext、CAPTCHA
- 在ASP.Net中应用Javascript
- [导入]JavaScript组件之JQuery(A~Z)教程(基于Asp.net运行环境)[示例代码下载]
- asp.net mvc + javascript导入文件内容
- [导入]ASP.NET中的MVC模式应用[转载]
- ASP.Net中应用Javascript的示例(引)
- [导入]JavaScript组件之JQuery(A~Z)教程(基于Asp.net运行环境)[示例代码下载]
- javascript 随机数 与高级应用 附vbscript(asp) 随机数总结
- asp.net mvc + javascript导入文件内容
- [导入]ASP.Net中自定义Http处理及应用之HttpModule篇