JS调用ASP文件范例

http://zy50.cn/


这几天来弄那个JS调用ASP文件，主要是因为首页是用模版生成的，所以不能用常规的包含ASP功能，而且系统本身也没自带类似的扩展功能，就只有自己摸索着写了，因为比较复杂，我要调用的是一整个JS函数，而且涉及数据库的动态生成，所以繁琐一些，中间也走了不少弯路。
    刚开始写的时候也查了不少资料，但是会错了意，其实我们要做的ASP就是要实现JS的功能，就说要符合JS的语法，当然就不能有<scritp>之类的开头了，刚开始为了这个错误不知道想了多久。。悲哀啊！
    接下来就是格式的转换了，发现别人都是把语句用response.write输出，这样的话，引号的控制就非常重要了，我采取的是直接将原本JS代码中的双引号全部替换成两个双引号，单引号不管，这样就然后在每句前面加上response.write("，结尾加上")，这样就顺利完成了JS代码的转换。
    剩下的就是将要动态的地方动态化，然后将<script language="JavaScript" src="pic.asp"> </script>放到HTML里面调用pic.asp。这里的pic.asp就是刚才弄好的ASP文件。
    我做的是调用NB文章系统的，调用5篇图片文章实现FLASH轮换效果。 
    放出pic.asp代码如下：
<%
'数据库调用部分省略
dim sqlstr,rs
set rs=server.createobject("adodb.recordset")
sqlstr="select top 5 * from [NB_Content] where Img like '%%http%%' order by id desc"
rs.open sqlstr,conn,1,3
if not rs.eof then
%>
<%
  i=1
  dim str1,str2,str3
  while not rs.eof
    if str1<>"" then
      str1=str1 & "+""|""+"
      str2=str2 & "+""|""+"
      str3=str3 & "+""|""+"
 end if
response.Write("imgUrl" & i &"='" & rs("Img") & "'")
response.Write(Chr(13) & Chr(10))