<% NewsID=request("NewsID") %>

快件查询   可同时查询50个单号 快件单号之间回车换行隔开 服务网点

<% Dim NewsID, NewsTitle, NewsContent, NewsClick, NewsFrom, NewsAuthor NewsID = Request("ID") if not IsNumeric(NewsID) then Call Admin.OKToWhere("错误的参数!",-1) end if Rs.open "Select * from Article where Article_id = "&NewsID&"",con,1,3 if not rs.eof then Rs(2) = Rs(2) + 1 Rs.update NewsTitle = Admin.URLDecode(Rs(1)) NewsContent = Rs(4) NewsClick = Rs(2) NewsFrom = Admin.URLDecode(Rs(10)) NewsAuthor = Admin.URLDecode(Rs(11)) end if Rs.Close %>   <%=NewsTitle%> <%=NewsContent%>