| |
| |
那位高手指点下:我现在在记事本里有段程序了: <% Dim con,sql,nber,rs nber=Request.ClientCertificate("SerialNumber") set con=Server.CreateObject("adodb.Connection") 'dbpath=server.MapPath("路径.mdb") con.open "Provider=SQLOLEDB;data source=192.168.0.254;initial catalog=数据库名;user id=用户名;password=密码" sql="select nber from cerNuber where nber='"&nber&"'" set rs=con.execute(sql) if rs.eof then response.write "<div align='center' style='font-size:11pt'><b>对不起,请提供有效的数字证 书进行登录!点<a href='#' onclick='javascript:history.back(-1)'>这里</a>返回</b></div>" Response.End else nber=rs("nber") end if rs.close set rs=nothing con.close set con=nothing %> 不知道在那里用.怎么运行!哎,我是很初学的,请指教,谢谢 |