<%@ Language=VBScript % <% '---开始链接数据库 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(CompanyID)...
[ 查看全文 ]