% ' no = request ("id") Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("../wind.mdb") ' objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _ ' "DBQ=" & Server.MapPath("../eurasian-member.mdb") objConn.Open Dim rs SET rs=Server.CreateObject("ADODB.Recordset") strSQL ="Select * From member where emailaddr='" & emailaddr & "'" strSQL ="Select * From news" rs.Open strSQL, objconn, adOpenKeyset, adLockOptimistic, adCmdText %>
|
你是不是也有感覺: 前50名留言者,將於新書上市後抽出10名幸運兒,致贈《The Secret 祕密》一本! ◎恭喜以下分享者獲得新書《The
Secret 祕密》, .....................................................................................................................................................................
如果你真想幫助那個人,就把話題轉向美好的事物。 |