ex1.asp

项目开发对初学者来说非常重要

 <!--#INCLUDE VIRTUAL="ADOVBS.inc"-->
 <%
 Set Conn=Server.CreateObject("ADODB.Connection")
 Set MyCmd=Server.CreateObject("ADODB.Command")
 Conn.Open "FILEDSN=d:\Program Files\Common Files\ODBC\Data Sources\MyDb.dsn "
 Set MyCmd.ActiveConnection=Conn
 MyCmd.CommandType=adCMdStoredProc
 MyCmd.CommandText="sp_HighandLow"
 Set MyFirstParam=MyCmd.CreateParameter("HighUser",adVarChar,adParamOutput,30)
 MyCmd.Parameters.Append MyFirstParam
 Set MySecondParam=MyCmd.CreateParameter("LowUser",adVarChar,adParamOutput,30)
 MyCmd.ParaMeters.Append MySecondParam
 MyCmd.Execute
 %>
 <p>按字母顺序排名最后的人是
 <%=MyCmd("HighUser")%>
 <p>按字母顺序排名最前的人是
 <%=MyCmd("LowUser")%>
 <%
 Conn.Close 
 %>