ASP中自编函数的调用问题

问题描述：

<%
sub alertx(abc)
response.Write("<script language=javascript>alert"&abc&"</script>")
end sub
alertx("2")
%>
我的目的是定义一个函数然后，调用他
效果是弹出一个JS窗口
希望高手指点一下

问题解答：

Sub alertx(s)
Response.Write("<script language=""javascript"">")
Response.Write("alert('")
Response.Write(s)
Response.Write("');")
Response.Write("history.go(-1);")
Response.Write("</script>")
Response.End
End Sub
帮你改了一下，多加了两条，如果不需要弹出窗口点确定后自己返回，那么去掉history.go()这一行，最后我加了一个response.end，如果不加这一条，那么程序如果执行完了这个过程，还会继续执行下去。如果需要继续执行，那么去掉response.end

这个函数有点多余

直接用js就是了

一般用写成JS，然后调用．

过程是不返回值的，要传输并显示值要用Function()

另这里写法有误：

response.Write("<script language=javascript>alert"&abc&"</script>")

应为：

response.Write("<script language=javascript>alert('abc')</script>")

<%
Sub AlertX(message)
message = Replace(message, "'", "\'") ' 将单引号转换成 \' ,否则当message 中有单引号，会出现js错误
Response.Write("<script type='text/javascript'>alert('" & message & "')</script>")
End Sub

AlertX "hello world!"
AlertX "Hello world, I'm xxxx!"
%>