<% Set Conn = Server.CreateObject("ADODB.Connection") StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("jjgl_k.asp") Conn.Open StrConn %> 蜜臀人妻一区二区三区,久久狼人综合,一级尤物精品视频在线播放

91探花长靴美女在线_激烈肉体啪啪撞击很大_亚洲精品欧美二区中文字幕_亚洲一区日韩fc2ppv_成人av影片在线爽_最新中文字幕av无码专区_人成午夜电影免费观在线观看_清冷师尊受露着屁股夹玉势

<% 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 %>