经典论坛's Archiver

zy8870194 发表于 2008-7-3 15:04

输出结果弹窗超链接显示问题

<%
If Trim(Request.Form("submit"))<>"" Then
Response.Write("<table width='100%' border='0'>")
Dim i,j,Rows,Flds
Rows=Ubound(arr_wawa,2)
Flds=Ubound(arr_wawa,1)
If Rows>=0 Then
For i=0 To Rows
  Response.Write("<tr>")
  For j=0 to Flds
   Response.Write("<td><a href=""javascript:openScript('view.asp?id=" & rs("id") & "',550,500)"">"&left(arr_wawa(j,i),10)&"</a></td>")
  Next
  Response.Write("</tr>")
Next
Else
Response.Write("<tr><td>"&Rows&"</td></tr>")
End If
Response.Write("</table>")
End If
%>

查询结果后是这样输出的 我想加个弹窗超链接 应该怎么加啊
<a href=""javascript:openScript('view.asp?id=" & rs("id") & "',550,500)"">"
这里的& rs("id") & 应该改成什么? 提示类型不匹配

页: [1]



Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.