Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
'Gridlist.CurrentPageIndex = 0
'dlapdept.SelectedValue = ""
'ddlRecdept.SelectedValue = ""
'txtRecLocation.Text = ""
'txtRecuser.Text = ""
'txtappdate.Value = ""
'txtOrder.Text = ""
'txtSaddress.Text = ""
'txtmeno.Text = ""
If txtSearchcode.Text = "" Then
Response.Write("<script language='javascript'> alert('搜索单号不能为空,请输入申请表主单号进行查询!');</script>")
'Response.Write("<script language='javascript'>")
'Response.Write("alert('搜索单号不能为空,请输入申请表主单号进行查询!');")
'Response.Write("</script>")
Exit Sub
End If
GridbindSerch()
Griddetailbindsearch()
End Sub上面的语句在提示框跳出来的时候页面总全是白色的很难看,怎么改才能保持提示框跳出来时原来的页面还是显示以前的内容?
'Gridlist.CurrentPageIndex = 0
'dlapdept.SelectedValue = ""
'ddlRecdept.SelectedValue = ""
'txtRecLocation.Text = ""
'txtRecuser.Text = ""
'txtappdate.Value = ""
'txtOrder.Text = ""
'txtSaddress.Text = ""
'txtmeno.Text = ""
If txtSearchcode.Text = "" Then
Response.Write("<script language='javascript'> alert('搜索单号不能为空,请输入申请表主单号进行查询!');</script>")
'Response.Write("<script language='javascript'>")
'Response.Write("alert('搜索单号不能为空,请输入申请表主单号进行查询!');")
'Response.Write("</script>")
Exit Sub
End If
GridbindSerch()
Griddetailbindsearch()
End Sub上面的语句在提示框跳出来的时候页面总全是白色的很难看,怎么改才能保持提示框跳出来时原来的页面还是显示以前的内容?
解决方案 »
- 命名空间“System.Web”中不存在类型或命名空间名称“HttpContext”(是缺少程序集引用)
- 一个Page.ClientScript.RegisterStartupScript的问题
- ExtJs的问题,高手帮忙
- 关于数组类型的疑问?
- 有关table的小白问题,高分求解,在线等。
- Reapter控件的用法?
- IIS发布.aspx页面报错.发布htm页面就正常..!闷.>!
- 现在VS.net的最高版本是多少? VS.net2002和VS.net2003有什么明显区别?
- 如何在C#中把十六进制转换为十进制?
- 两个问题:1.求匹配脚本块的正则表达式2.如何防止在线编辑器的自动完成功能(各50)
- 页面总提示下面的错误?怎么解决?
- repeater嵌套问题
to
'Response.Write("<script language='javascript' defer>")
this.Controls.Add(le);
le.Text="<script language='javascript'> alert('搜索单号不能为空,请输入申请表主单号进行查询!');</script>";
"alert('搜索单号不能为空,请输入申请表主单号进行查询!');",true);