longcar.asp

鲁门网站系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>"
response.Write "<tr>"
response.Write "<td align='center'>" 
response.Write "<form name='form1' method='post' action=''>"
response.Write "请输入终点站：<br><input type='text' name='search'>&nbsp;&nbsp;<input type='submit' name='Submit' value='提交'>"
response.Write "</form>"
response.Write "</td>"
response.Write "</tr>"
response.Write "</table>"
If request.Form("search")<>"" Then
   Set connlongcar=Server.CreateObject("ADODB.Connection")
   connlongcar.open "Provider=SQLOLEDB;Data Source=10.0.0.68;Initial Catalog=xinyztour;User ID=sa; Password=123456;"
   strsql="Select * From tbllongcar Where endstop like '%"&request.Form("search")&"%'"
   Set rs=Server.CreateObject("ADODB.RecordSet")
   rs.open strsql,connlongcar,1,1
   If (rs.Bof and rs.Eof) Then
      response.Write("<center>不好意思，没有找到符合您查询要求的长途汽车时刻表</center>")
   Else
      response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='2'>"
      response.Write "<tr>"
      response.Write "<td align='left' valign='top' width='20%'>编号：</td>"
	  response.Write "<td align='left' valign='top'>"&rs("id")&"</td>"
      response.Write "</tr>"
	  response.Write "<tr>"
      response.Write "<td align='left' valign='top'>路线：</td>"
	  response.Write "<td align='left' valign='top'>"&rs("startstop")&"——"&rs("endstop")&"</td>"
      response.Write "</tr>"
	  response.Write "<tr>"
      response.Write "<td align='left' valign='top'>车型：</td>"
	  response.Write "<td align='left' valign='top'>"&rs("cartype")&"</td>"
      response.Write "</tr>"
	  response.Write "<tr>"
      response.Write "<td align='left' valign='top'>票价：</td>"
	  response.Write "<td align='left' valign='top'>"&rs("price")&"</td>"
      response.Write "</tr>"
	  response.Write "<tr>"
      response.Write "<td align='left' valign='top'>时间：</td>"
	  response.Write "<td align='left' valign='top'>"&rs("hairtime")&"</td>"
      response.Write "</tr>"
      response.Write "</table>"
   End If
   rs.close
   set rs=nothing
   connlongcar.close
   set connlongcar=nothing
End If
%>