如何优化这段代码!!!

ircfan 2003-10-31 02:07:44
<%@ Page Language="VB" Debug="True" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<Script runat="server">
Dim startIndex As Integer
Dim SortField As String
Sub Page_Load(sender As Object, e As EventArgs)

If Not IsPostBack Then
If SortField = "" Then
SortField = "省地县码"
End If
startIndex = 0
MyDataGrid.VirtualItemCount = 200
End If

End Sub

Sub MyDataGrid_Page(sender As Object, e As DataGridPageChangedEventArgs)
startIndex = e.NewPageIndex * MyDataGrid.PageSize
MyDataGrid.CurrentPageIndex = e.NewPageIndex
'BindGrid
End Sub

sub btn_back(Sender as object, e as eventArgs)
panel1.visible=true
panel2.visible=false
End sub

Sub btn_Click(Sender as object, e as eventArgs)
panel1.visible=false
panel2.visible=true
Dim Requery1 As String = Request.Form("faren")
Dim Requery2 As String = Request.Form("shendi")
Dim Requery3 As String = Request.Form("type")
Dim Requery4 As String = Request.Form("pro1")
Dim Requery5 As String = Request.Form("pro2")
Dim Requery6 As String = Request.Form("pro3")
Dim DropList1 As String = Request.Form("DropDownList1")
Dim DropList2 As String = Request.Form("DropDownList2")
Dim DropList3 As String = Request.Form("DropDownList3")
Dim DropList4 As String = Request.Form("DropDownList4")
Dim DropList5 As String = Request.Form("DropDownList5")
'Response.write(Requery1 & "<br>" & Requery2 & "<br>" & Requery3 & "<br> "& Requery4 & "<br>" & DropList1 )
'Response.End
Dim str As String
Dim StrSelect As String
If Requery1<>"" then
StrSelect = "Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%'"
End If

If Requery2<>"" then
StrSelect ="Select Top 50 * from sc2001 Where 省地县码 like '%"& Requery2 &"%'"
End If
If Requery1<>"" And Requery2<>"" then
StrSelect ="Select top 50 * from sc2001 Where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 省地县码 like '%"& Requery2 &"%'"
End If

If Requery3<>"" then
StrSelect ="Select top 50 * from sc2001 where 行业类别 like '%"& Requery3 &"%'"
End If
If Requery1<>"" And Requery3 <>"" then
StrSelect ="Select top 50 * from sc2001 Where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 行业类别 like '%"& Requery3 &"%'"
End If
If Requery2<>"" And Requery3 <>"" Then
StrSelect ="Select top 50 * from sc2001 Where 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%'"
End If
If Requery1<>"" AND Requery2<>"" And Requery3<>""
StrSelect ="Select top 50 * from sc2001 Where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%'"
End If

If Requery4<>"" then
StrSelect ="Select top 50 * from sc2001 Where 产品1 like '%"& Requery4 &"%'"
End If
If Requery1 <>"" And Requery4<>"" then
StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 产品1 like '%"& Requery4 &"%'"
End If
If Requery2 <>"" And Requery4<>"" then
StrSelect ="Select top 50 * from sc2001 where 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 产品1 like '%"& Requery4 &"%'"
End If
If Requery3 <>"" And Requery4<>"" then
StrSelect ="Select top 50 * from sc2001 where 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%'"
End If
If Requery1 <>"" And Requery2<>"" And Requery4<>"" then
StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 产品1 like '%"& Requery4 &"%'"
End If
If Requery1<>"" And Requery3<>"" And Requery4<>"" then
StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%'"
End If
If Requery2 <>"" And Requery3<>"" And Requery4<>"" then
StrSelect ="Select top 50 * from sc2001 where 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%'"
End If
If Requery1<>"" And Requery2<>"" And Requery3<>"" And Requery4<>"" then
StrSelect ="Select Top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%'"
End If

If Requery5 <>"" then
StrSelect ="Select top 50 * from sc2001 Where 产品2 Like '%"& Requery5 &"%'"
End If
If Requery1 <>"" And Requery5<>"" then
StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 产品2 like '%"& Requery5 &"%'"
End If
If Requery1 <>"" And Requery2<>"" And Requery5 <>"" then
StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 产品2 like '%"& Requery5 &"%'"
End If
If Requery1 <>"" And Requery2<>"" And Requery3<>"" And Requery5<>"" then
StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品2 like '%"& Requery5 &"%'"
End If
If Requery1 <>"" And Requery2<>"" And Requery3<>"" And Requery4<>"" And Requery5<>"" then
StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品2 like '%"& Requery5 &"%'"
End If
...全文
39 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
火电 2003-10-31
  • 打赏
  • 举报
 回复
switch 形式能够使结构更清晰

至于优化：

主要是sql语句的优化
有必要select出来*吗
只要把你要的字段select 出来就可以了
还有
like % 字段 % 重的钱一个%如果不是很必要就不要加
这样的sql不能通过该字段进行索引查找
cchinasp 2003-10-31
  • 打赏
  • 举报
 回复
我們都是用函数來完成裝的.
cchinasp 2003-10-31
  • 打赏
  • 举报
 回复
用一个函数来完成每一个条件的Sql的组装,程序结构会清楚很多
RickFang 2003-10-31
  • 打赏
  • 举报
 回复
第三,改成switch形式
RickFang 2003-10-31
  • 打赏
  • 举报
 回复
第二个建议，注意明名规则.
RickFang 2003-10-31
  • 打赏
  • 举报
 回复
我先给第一个建议,把代码写到.cs文件里,不要直接写在.aspx文件里
ircfan 2003-10-31
  • 打赏
  • 举报
 回复
If Requery2 <>"" And Requery5<>"" then
StrSelect ="Select top 50 * from sc2001 where 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 产品2 like '%"& Requery5 &"%'"
End If
If Requery2 <>"" And Requery3<>"" And Requery5<>"" then
StrSelect ="Select top 50 * from sc2001 where 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品2 like '%"& Requery5 &"%'"
End If
If Requery2 <>"" And Requery4<>"" And Requery5<>"" then
StrSelect ="Select top 50 * from sc2001 where 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品2 like '%"& Requery5 &"%'"
End If
If Requery2 <>"" And Requery3<>"" And Requery4<>"" And Requery5<>"" then
StrSelect ="Select top 50 * from sc2001 where 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品2 like '%"& Requery5 &"%'"
End If
If Requery3 <>"" And Requery5<>"" then
StrSelect ="Select top 50 * from sc2001 where 行业类别 like '%"& Requery3 &"%' "& DropList2 &" 产品2 like '%"& Requery5 &"%'"
End If
If Requery3 <>"" And Requery4<>"" And Requery5<>"" then
StrSelect ="Select top 50 * from sc2001 where 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品2 like '%"& Requery5 &"%'"
End If
If Requery4 <>"" And Requery5<>"" then
StrSelect ="Select top 50 * from sc2001 where 产品1 like '%"& Requery4 &"%' "& DropList2 &" 产品2 like '%"& Requery5 &"%'"
End If

If Requery6 <>"" Then
StrSelect ="Select top 50 * from sc2001 Where 产品3 like '%"& Requery6 &"%'"
End If
If Requery1 <>"" And Requery6<>"" then
StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 产品3 like '%"& Requery6 &"%'"
End If
If Requery1 <>"" And Requery2<>"" And Requery6<>"" then
StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 产品3 like '%"& Requery6 &"%'"
End If
If Requery1 <>"" And Requery2<>"" And Requery3<>"" And Requery6<>"" then
StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品3 like '%"& Requery6 &"%'"
End If
If Requery1 <>"" And Requery2<>"" And Requery3<>"" And Requery4<>"" And Requery6<>"" then
StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品3 like '%"& Requery6 &"%'"
End If
If Requery1 <>"" And Requery2<>"" And Requery3<>"" And Requery4<>"" And Requery5<>"" And Requery6<>"" then
StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品2 like '%"& Requery5 &"%' "& DropList5 &" 产品3 like '%"& Requery6 &"%'"
End If
If Requery2 <>"" And Requery6<>"" then
StrSelect ="Select top 50 * from sc2001 where 省地县码 like '%"& Requery2 &"%' "& DropList1 &" 产品3 like '%"& Requery6 &"%'"
End If
If Requery2 <>"" And Requery3<>"" And Requery6<>"" then
StrSelect ="Select top 50 * from sc2001 where 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品3 like '%"& Requery6 &"%'"
End If
If Requery2<>"" And Requery3<>"" And Requery4<>"" And Requery6<>"" then
StrSelect ="Select top 50 * from sc2001 where 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品3 like '%"& Requery6 &"%'"
End If
If Requery2<>"" And Requery3<>"" And Requery4<>"" And Requery5<>"" And Requery6<>"" then
StrSelect ="Select top 50 * from sc2001 where 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品2 like '%"& Requery5 &"%' "& DropList5 &" 产品3 like '%"& Requery6 &"%'"
End If
If Requery3<>"" And Requery6<>"" then
StrSelect ="Select top 50 * from sc2001 where 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品3 like '%"& Requery6 &"%'"
End If
If Requery3<>"" And Requery4<>"" And Requery6<>"" then
StrSelect ="Select top 50 * from sc2001 where 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品3 like '%"& Requery6 &"%'"
End If
If Requery3<>"" And Requery4<>"" And Requery5<>"" And Requery6<>"" then
StrSelect ="Select top 50 * from sc2001 where 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品2 like '%"& Requery5 &"%' "& DropList5 &" 产品3 like '%"& Requery6 &"%'"
End If
If Requery4<>"" And Requery6<>"" then
StrSelect ="Select top 50 * from sc2001 where 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品3 like '%"& Requery6 &"%'"
End If
If Requery4<>"" And Requery5<>"" And Requery6<>"" then
StrSelect ="Select top 50 * from sc2001 where 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品2 like '%"& Requery5 &"%' "& DropList5 &" 产品3 like '%"& Requery6 &"%'"
End If
If Requery5<>"" And Requery6<>"" then
StrSelect ="Select top 50 * from sc2001 where 产品2 like '%"& Requery5 &"%' "& DropList5 &" 产品3 like '%"& Requery6 &"%'"
End If

If Requery1 ="" and Requery2="" and Requery3="" and Requery4 ="" and Requery5="" and Requery6 =""then
str="<br><br><br><center>"
str+="<font size=2>您没有输入查询条件，请输入查询条件！<a href='javascript:history.go(-1)'>按此返回</a></font>"
str+="</center>"
Response.Write(str)
Response.End
End If
Dim MySqlConnection As SqlConnection
Dim Ds As DataSet
Dim myCommand As SqlDataAdapter
mySqlConnection = New SqlConnection(ConfigurationSettings.AppSettings().Item("ConnectionString"))
MySqlConnection.Open()
myCommand = new SqlDataAdapter(StrSelect,mySqlConnection)
Ds = New DataSet()
myCommand.Fill(Ds,"sc2001")
myDataGrid.DataSource = Ds.Tables("sc2001").DefaultView
MyDataGrid.DataBind()
End Sub
巨长呀。。谁来优化一下！
明小子4.3.3网站漏洞检测工具
8.更新部分在xpsp3下出错的几个小BUG(小问题小解决,这个错误仅针对部分优化过度的XPSP3系统)。 提记：很多朋友说需要修改下程序IP域名查询功能,这里说明下.由于内核找不到关键句柄导致无法更新,下个版本在仔细看看...
代码优化简单介绍！！！！
代码优化
代码优化 5 大原则，第一条就是别优化了！！！
Java技术栈www.javastack.cn打开网站看更多优质文章“让这代码跑得快一点！！”——我碰到的第一件代码优化任务就是这么开始的。那个项目是一个巨大的 SAP 云平台应用程序，...
如何控制某段代码不使用编译优化
会占用更长的编译时间 -O3提供最高级的代码优化 但是这个编译选项，一旦添加会对整个文件进行编译优化，有时候某段代码不能使用编译优化，却又不想影响整体代码的编译，就需要控制这段代码不使用编译优化。...
编译原理过程简述及中间代码优化
一、编译过程图示如下：词法分析作用：找出单词 。...二、中间代码优化所谓代码优化是指对程序代码进行等价（指不改变程序的运行结果）变换。程序代码可以是中间代码（如四元式代码），也可以是目标代码。
.NET社区

62,046

社区成员

669,048

社区内容

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见，支持健康理性的辩论和互动，反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧

+ 用AI写文章