请高手帮小弟我看看下面的一段代码是不是ASP的关于使用VB对数据库（SQL SERVER）存取的，如不是请帮忙改成ASP的。十分感谢！
请高手帮我看看下面的一段代码是不是ASP的关于使用VB对数据库（SQL SERVER）存取的，如不是请帮忙改成ASP的。十分感谢！！！
通过CAPICOM 的Certificate 对象来访问库，因为CAPICOM 的Certificate 对象支持HTTP 协议访问证书库。Certificate 对象主要包含一个独立的数字证书。其属性主要是证书版本、系列号、被颁发者名称、颁发者名称、有效日期等证书参数。主要用它的import 方法来导入一个证书。
1.将GetCertificate 获取的证书，用CAPICOM.Certificate 来读入
Dim Cert
Set Cert = Server.Createobject (“CAPICOM . Certificate”)
Cert.lmport ( sCertificate )
2.将CAPICOM.certificate 读入的内容，和获取的证书全文，使用ADO 存入设计的SQL server 数据库．
主要代码如下：
if Err.Number=0 then
Set conn = Server.Createobject ( “ADODB.Connection“ )
Conn.open “drive”=｛SQLServer｝; server = TRACY ; uid = sa ; pwd = ; database = certificate ; "
IF Err.Number = 0 then
dim sql
sql = " insert into issued ( Version , SerialNumber , SubjectName , IssuerName , ValidFromDate , ValidToDate , Certificate )
values ( " sql = sql & Cert.Version "
sql = sql & ", " " & left ( Cert . SerialNumber , 20 ) & " " "
sql = sql& ", " " &Cert . SubjectName & " " "
sql = sql & ", " " &Cert . lssuerName & " " "
sql = sql & ", " " &Cert . ValidFromDate & " " "
sql = sql& ", " "&Cert . ValidToDate & " " "
sql = sql & ", " " &Cert.Certificate & " " ) "
conn .Execute sql
Conn. Close
END IF
Set conn=nothing
End If
Set Cert = Nothing
3.查询数据库
当连结数据库Certificate成功后从页面中获取商家证书的系列号到参数SerialNumber 中
IF Err.Number < > 0 THEN
Response.Write " 没有符合的证书 "
ELSE
dim sql , SerialNumber , rs
Seria1Number=Request ( " SerialNumber " )
使用ADO 技术根据SerialNumber 从数据库中查找该商家证书
IF SerialNumbe= " " THEN
Response . Write "NO VALID CERTIFICATE FOUND "
ELSE
sql = " select Certificate , ValidFromDate , ValidToDate from issued where SerialNumbe = " " & SerialNumber & " "
set rs = conn.Execute ( sql )
4.若查找成功，从数据库中读取字段：证书、有效起始时间、结束时间到参数中，可以通过查看证书的起/止时间来判断证书是否过期。
IF rs.BOF or rs.EOF THEN
通过CAPICOM 的Certificate 对象来访问库，因为CAPICOM 的Certificate 对象支持HTTP 协议访问证书库。Certificate 对象主要包含一个独立的数字证书。其属性主要是证书版本、系列号、被颁发者名称、颁发者名称、有效日期等证书参数。主要用它的import 方法来导入一个证书。
1.将GetCertificate 获取的证书，用CAPICOM.Certificate 来读入
Dim Cert
Set Cert = Server.Createobject (“CAPICOM . Certificate”)
Cert.lmport ( sCertificate )
2.将CAPICOM.certificate 读入的内容，和获取的证书全文，使用ADO 存入设计的SQL server 数据库．
主要代码如下：
if Err.Number=0 then
Set conn = Server.Createobject ( “ADODB.Connection“ )
Conn.open “drive”=｛SQLServer｝; server = TRACY ; uid = sa ; pwd = ; database = certificate ; "
IF Err.Number = 0 then
dim sql
sql = " insert into issued ( Version , SerialNumber , SubjectName , IssuerName , ValidFromDate , ValidToDate , Certificate )
values ( " sql = sql & Cert.Version "
sql = sql & ", " " & left ( Cert . SerialNumber , 20 ) & " " "
sql = sql& ", " " &Cert . SubjectName & " " "
sql = sql & ", " " &Cert . lssuerName & " " "
sql = sql & ", " " &Cert . ValidFromDate & " " "
sql = sql& ", " "&Cert . ValidToDate & " " "
sql = sql & ", " " &Cert.Certificate & " " ) "
conn .Execute sql
Conn. Close
END IF
Set conn=nothing
End If
Set Cert = Nothing
3.查询数据库
当连结数据库Certificate成功后从页面中获取商家证书的系列号到参数SerialNumber 中
IF Err.Number < > 0 THEN
Response.Write " 没有符合的证书 "
ELSE
dim sql , SerialNumber , rs
Seria1Number=Request ( " SerialNumber " )
使用ADO 技术根据SerialNumber 从数据库中查找该商家证书
IF SerialNumbe= " " THEN
Response . Write "NO VALID CERTIFICATE FOUND "
ELSE
sql = " select Certificate , ValidFromDate , ValidToDate from issued where SerialNumbe = " " & SerialNumber & " "
set rs = conn.Execute ( sql )
4.若查找成功，从数据库中读取字段：证书、有效起始时间、结束时间到参数中，可以通过查看证书的起/止时间来判断证书是否过期。
IF rs.BOF or rs.EOF THEN