如何在ASP.NET中使用VBSCRIPT?

[keenx]

我在ASP中使用到下面的代码:
<%
disk=request.QueryString("disk")
user=request.QueryString("user")
if disk="" or user="" then
Response.Write "没有指定硬盘或用户(disk,user)"
else

Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1")
colDiskQuotas.Initialize disk, True
set objUser = colDiskQuotas.FindUser(user)
Response.write "警告等级:"
Response.write objUser.QuotaThreshold
Response.write "<p>配额限制:"
Response.write objUser.QuotaLimit
Response.write "<p>使用数量:"
Response.write objUser.QuotaUsed
Response.write "<p>状态:"
Response.write colDiskQuotas.QuotaState

end if
%>
现在我想把它改成ASP.NET来做,要如何做?

[daguzhang]

Private Sub Page_Load(byval sender as Object, _
ByVal e as EventArgs)

' Create your script code
Dim sScript as String = "<script" & _
"language=JavaScript> "
sScript = "function confirmDelete() {"
sScript += "confirm('Are you sure?');}"
sScript += "</script>"

If(Not _
IsClientScriptBlockRegistered("MyScript") _
) Then
RegisterClientScriptBlock("MyScript", _
sScript)
End If

End Sub

[daguzhang]

btnDelete.Attributes.Add("onClick", _
"return confirmDelete();")

这样也可以
如果你是用C#
找找RegisterClientScriptBlock的用法
和上面差不多

[will97]

在.net的服务器上
asp与aspx是不可以混编的。
你要么用asp
要么用aspx

[keenx]

TO will97(飘逝) :
我现在是在ASP中可以达到了这个功能,可是我现在想用ASP.NET来实现它,有没有什么办法?

TO daguzhang(gg):
不太明白你写的,可以讲讲吗?

[keenx]

没人帮我吧?

[孟子E章]

Dim colDiskQuotas As Microsoft.DiskQuota = New Microsoft.DiskQuota

把你的dll添加到引用里，在写代码即可看到类似上面的。【可能有点出入】

[keenx]

没人帮忙吗?up

[pl7624]

你这部分的代码在。NET是被识别的，只用写在form_load里就行了

[jasonboy]

帮你up

[keenx]

怎样写,可以说详细一点吗?

[keenx]

up!!!

[keenx]

救命啊!!!

[keenx]

谢谢net_lover(孟子E章)