网页不能弹出新窗口(ASP),哪里出错?

来源:百度知道 编辑:UC知道 时间:2024/09/22 04:02:13
我想将链接改为从新窗口打开,但是老是不行,求解!
--------------------------------------------------------
Function ReplaceTest(str,patrn, replStr)
Dim regEx, str1
str1 = str
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.global=true
ReplaceTest = regEx.Replace(str1, replStr)
End Function

Function Format_TitleURL(ID,Title,TitleColor,TitleURL,LeftN)
oTitle = LeftX(Title,LeftN * 2)
If TitleColor<>"" Then oTitle = "<font color=""" & TitleColor & """>" & oTitle & "</font>"
If TitleURL="" Then
Target = ""
TitleURL = "show.asp?id=" & ID
Else
Target = "target=""_blank"""
End If
Format_TitleURL = "<a href=""" & TitleURL & """" & Target & " title=""" & Server.HT

你运行后在浏览器里看看源代码,看不懂的话把这个源代码发上来

我的意思是浏览器里运行这个页面,就是说经过解析后的纯html代码,关于这个链接的代码

也就是说调用函数后生成的html代码