'//工单查询
    Sub BWS_chaxun()
    response.write "<div align=center>"
    response.write "<table width=60% height=50 border=0 align=center cellpadding=0 cellspacing=0>"
    response.write "<form name=form1 method=post action=index.asp?T=gdshow>"
    response.write "<tr><td width='30%' height='30'></td><td></td><td width='10%'></td></tr>"   
    response.write "<tr><td width='30%'>请输入维修部门:</td><td><input name=gdid type=text id=gdid like'*BX*' size=30></td><td width='10%'><input type=submit name=Submit value=查询></td></tr>"
    response.write "<tr><td width='30%' height='10'></td><td></td><td> width='10%'></td></tr>"
    response.write "</form>"
    response.write "</table>"
    response.write "</div>"
    end Sub
比如查询BX20120202093748

'//工单查询
    Sub BWS_chaxun()
    response.write "<div align=center>"
    response.write "<table width=60% height=50 border=0 align=center cellpadding=0  
cellspacing=0>"
    response.write "<form name=form1 method=post action=index.asp?T=gdshow>"
    response.write "<tr><td width='30%' height='30'></td><td></td><td  
width='10%'></td></tr>"   
    response.write "<tr><td width='30%'>请输入维修部门:</td><td><input name=gdid type=text  
id=gdid like '%BX%' size=30></td><td width='10%'><input type=submit name=Submit value=查询
></td></tr>"
    response.write "<tr><td width='30%' height='10'></td><td></td><td>  
width='10%'></td></tr>"
    response.write "</form>"
    response.write "</table>"
    response.write "</div>"
    end Sub
还是查不到BX20120202093748

    '//工单详情
    Sub BWS_gdshow(g)
    If Not post_chk() Then
     Response.write "不许外部提交数据!"
     else
    response.write "<div align=center>"
    Set rs = Server.CreateObject("ADODB.Recordset")
    sql="select * from baoxiu where bxid='"&g&"'"
    set rs=conn.execute(sql)
    if rs.eof and rs.bof then
    Response.Write("没有此工单，请检查！")