改写提示函数

[teleagle2]

原asp的代码如下：
－－－－－－－－－－
sub web_js_msg(msg_type,msg_var,msg_url)
call cookies_load()
if msg_type=0 then
response.write "alert("""&msg_var&""");location.href="""&msg_url&""";"
exit sub
end if
response.write joekoe_cms.js_type("alert("""&msg_var&""");location.href="""&msg_url&""";",3)
end sub
－－－－－－－－－－－
要将其改为在asp.net(vb)中使用，该如何改写，请大家指点一二

[triout]

sub web_js_msg(byval msg_type as integer,byval msg_var as string,byval msg_url as string)
call cookies_load()
if msg_type=0 then
response.write "alert("""&msg_var&""");location.href="""&msg_url&""";"
exit sub
end if
response.write joekoe_cms.js_type("alert("""&msg_var&""");location.href="""&msg_url&""";",3)
end sub

[teleagle2]

不行啊，有人能帮我吗？将这个asp代码，改成相同功能的asp.net(vb),先谢谢了
－－－－－－－－－－－－－－－－－－－－－－－
sub web_js_msg(msg_type,msg_var,msg_url)
if msg_type=0 then
response.write "alert("""&msg_var&""");location.href="""&msg_url&""";"
exit sub
end if
response.write js_type("alert("""&msg_var&""");location.href="""&msg_url&""";",3)
end sub

[rickjelly2004]

http://www.developerfusion.com/utilities/convertvbtocsharp.aspx