<% ‘—开始链接数据库 Dim strConnString strConnString = “driver={SQL Server};server=songhp;uid=sa;pwd=;database=XVZDemo” set Conn = Server.CreateObject(“ADODB.Connection”) Conn.Open strConnstring ‘—结束链接数据库 ‘—开始为输入参数赋值 Dim SelectSql , SelectRs Dim SelectID , SelectName , SelectReturn SelectSql = “Select Max(