紧急求助：InputBox在VB写的网页中不能用，怎么办啊？

Partial Class _Default
    Inherits System.Web.UI.Page
    Public xAcct As String
    Public xYear As Integer
    Public xPerd As Integer

    Protected Sub btndlgr_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDLGR.Click
        xAcct = InputBox(" ", "请输入账号")
        xYear = InputBox(" ", "请输入年份")
        xPerd = InputBox(" ", "请输入月份")
        SqlDataSource1.ProviderName = "System.Data.Odbc"
        SqlDataSource1.ConnectionString = "Dsn=as400/db2;uid=grn82;pwd=xxxxxxxx"
        SqlDataSource1.SelectCommand = "SELECT CRSG01,CRSG02,CRSG03,CRSG04,CRSG05,LHYEAR,LHPERD,LHDDAT,HHTRNO,LHJNEN,LHJNLN,LHREAS," _
                                     & "       LHLDES,LHJRF1,LHJRF2,LHDREF,LHDRAT,LHCRAT " _
                                     & "FROM v82fsil.gcrl01 left outer join v82fsil.glhl03 on lhian=crian " _
                                     & "left outer join v82fsil.ghhl02 on hhldgr=lhldgr and hhbook=lhbook and hhyear=lhyear and " _
                                     & "                                  hhperd=lhperd and hhjnen=lhjnen " _
                                     & "WHERE left(crsg01,2)||left(crsg02,6)='" & xAcct & "' and lhyear=" & xYear & " and lhperd=" & xPerd & " " _
                                     & "ORDER BY CRSG01,CRSG02,CRSG03,CRSG04,CRSG05"
        GridView1.DataSourceID = "SqlDataSource1"
    End Sub

End Class --------------------编程问答-------------------- 界面这个样子
--------------------编程问答-------------------- 没有加那3行InputBox之前，调试和IE都可以运行

加了之后，调试运行可以，IE不行，出现“Service Unavailable--HTTP Error 503. The service is unavailable.”，并且应用程序池停止
， --------------------编程问答-------------------- 顶一哈 
貌似要用到客户端脚本

只有慢慢看书了 

补充：.NET技术 ,  VB.NET