获得周年庆开户配售的账户查询

<% Set Conn = Server.CreateObject("ADODB.Connection") StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("jjgl_k.asp") Conn.Open StrConn %> 获得周年庆开户配售的账户查询 <% Select Case Request("work") Case "Search" Call Search() Case Else Call SearchForm() End Select %>

<% Sub SearchForm() %>

获得周年庆开户配售的账户查询
账　　号：

<% End Sub %> <% Sub Search() %>

获得周年庆开户配售的账户查询结果

<% If Trim(Request("zh"))="" Then Sql = "Select * From bm044001 where zh='"& Request("zh") &"'" Else Sql = "Select * From bm044001 where zh='"& Request("zh") &"'" End If ' response.write sql ' response.End() Set Rs = Conn.Execute(Sql) If Rs.Eof Then Response.write "" Else %> <% End If Rs.Close Set Conn = Nothing %>

账号	状态
<%=Rs("zh")%>	<%=Rs("dc")%>

<% End Sub %>