数据库链接测试asp

2015-01-15 13:33:40  访问(1757) 赞(0) 踩(0)

 <a href='conntest.asp'>刷新</a>
<br />
<br />
<%
'response.write "canoe"
'response.end
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = E:\DataBase\Access\Witch\tools.mdb" 
Set cnn = Server.CreateObject("ADODB.Connection")
'ConnStr = "dsn=ysdzw;uid=ysdzw;pwd=123"
'ConnStr = "Provider=OraOLEDB.Oracle;Password=ysdzw;User ID=ysdzw;Data Source=orcl;"
'ConnStr = "server=192.168.0.1;database=youyuanOADB;user id=youyuanoa;pwd=youyuanoa;"
cnn.open ConnStr 
If Err Then
err.Clear
Set cnn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
Response.End
End If 
set rs = server.CreateObject("adodb.recordset")
    dim sql_rec
    dim thedatevalue
    sql_rec = "select now() as thedatevalue "
    rs.open sql_rec,cnn
    
    if rs.eof then
        Response.Write "数据库连接出错，没有获得记录。"'注释，需要把这几个字翻译成英文。
 
     rs.close
     cnn.close
      response.end
    end if
    
    thedatevalue = rs("thedatevalue")
    
    Response.Write thedatevalue
Response.End    
%>

上一条：

下一条：

相关评论

发表评论

类型：	留言 建议 疑问
内容：
	(Alt+Enter)