<% 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 %>
<%=Rs("zh")%>
<%=Rs("dc")%>
<% End If Rs.Close Set Conn = Nothing %>

<% End Sub %>