|
#2
aspic2009-10-23 09:43
|
程序代码：<%
if request("haoma")&""="" then
Response.Write("<script language=""JavaScript"">alert(""错误：请输入港口！！"");history.go(-1);</script>")
response.end
end if
dim objRs,strSql
Set objRs=Server.CreateObject("ADODB.RecordSet")
strSql="select * from tel where tname like '%"&sqlchk(request("haoma"),0)&"%' and tel<>0"
objRs.Open strSql,strConn,1,3
if objRs.Eof then
response.write "<center>没有此数据</center>"
else
while not objRs.eof
response.Write " <img src=images/pp.gif width=12 height=13>"& objrs("tname") &" <font
color=#FF0000>"&objrs("SHIP")&" "&objrs("tel")&"  "&objrs("40GP")
&" "&objrs("40HQ")&"  "&objrs("FJF")&"  "&objrs("cls")&""& objrs
("valid") &" </font><br>"
objRs.Movenext
wend
end if
objRs.close
set objRs=Nothing
%>
if request("haoma")&""="" then
Response.Write("<script language=""JavaScript"">alert(""错误：请输入港口！！"");history.go(-1);</script>")
response.end
end if
dim objRs,strSql
Set objRs=Server.CreateObject("ADODB.RecordSet")
strSql="select * from tel where tname like '%"&sqlchk(request("haoma"),0)&"%' and tel<>0"
objRs.Open strSql,strConn,1,3
if objRs.Eof then
response.write "<center>没有此数据</center>"
else
while not objRs.eof
response.Write " <img src=images/pp.gif width=12 height=13>"& objrs("tname") &" <font
color=#FF0000>"&objrs("SHIP")&" "&objrs("tel")&"  "&objrs("40GP")
&" "&objrs("40HQ")&"  "&objrs("FJF")&"  "&objrs("cls")&""& objrs
("valid") &" </font><br>"
objRs.Movenext
wend
end if
objRs.close
set objRs=Nothing
%>
输入的结果:
搜索结果 港口 船东 20GP 40GP 40HQ 附加费 截关期 有效期
JEBEL ALI APL 750 1050 1050 THC DOC TLX 2009-10-31
JEBEL ALI MSK 680 1000 1000 T+D+I+TLX 2009-10-31
JEBEL ALI OOCL 600 940 940 T+D+TLX+封条 2009-10-28
JEBEL ALI HANJIN 575 890 890 T+D+TLX+封条 2009-10-31
JEBEL ALI PIL 525 840 840 T+D+I+TLX 2009-10-30
JEBEL ALI EMIRATES 550 875 875 T+D+I+TLX 2009-9-17
JEBEL ALI NORASIA 575 875 875 T+D+I+TLX 2009-10-31
JEBEL ALI MSC 725 1100 1100 T+D+I+TLX 2009-8-8
JEBEL ALI TSL 575 900 900 T+D+I+TLX+封条 2009-10-25
JEBEL ALI HMM 600 950 950 T+D+I+TLX 2009-10-15
JEBEL ALI CSCL 625 875 875 T+D+TLX 2009-10-12
ship的值和后面的tel的值之间只能用; 来隔开,但因为SHIP的值长度不一,导致后面的显示就不整齐了,我想过用个循环自动补充空格来对齐,失败了.
有没有好办法能对齐呀,最好能帮我把每行之间都加条横线或背景色隔行不同,好分辨一点.
我刚学,很多东西不懂,希望高手帮一下忙.万分感谢.
