好久没弄asp了,找了找以前写的,如下:
<%
'这个是连接数据库的部分,用的是sql2000
dim conn
'------------------------------------------
'这一句是连接语句,连2000的,access的个这个差不多, 只是数据驱动换了
'上网自己搜搜,有很多
sconn="Provider=sqloledb;Data Source=.;Initial Catalog=Portalsite;User Id=sa;Password=sap"
'------------------------------------------
'创建adodb对象
set conn = server.CreateObject("ADODB.Connection")
'-------------------------------------------
'打开连接
conn.open sconn
’----------------------------------------
'下边是关闭连接
sub CloseConn()
conn.Close()
Set conn = Nothing
end sub
function RealString(strSrc)
RealString = Replace(Trim(strSrc), "'", "’")
end function
function Convert(strSrc)
Convert = Server.HTMLEncode(Replace(Trim(strSrc), "'", "’"))
Convert = Replace(Convert, chr(13), "
")
end function
if err Then
err.clear
end if
Session.Timeout = 120
%>
<%
’--------------------------
'这个是读取数据部分
dim strSQL,TitleId,rsObj
TitleId=request("id")
'---------------------------
'sql语句
strSQL="SELECT * from news where id='"&TitleId&"'"
set rsObj=Server.CreateObject("ADODB.Recordset")
rsObj.Open strSQL,conn,1,1
%>
通过上面的部分如果不出错的话,就已经能开始从access获取数据了,下面只要在页面中调用数据用于显示就行。当然了,access的连接语句还得你自己找,另外基本的数据库操作你得会,不然谁也帮不了你,多百度吧。
下面是页面部分:
获取数据的代码是"<%" + "=" + "自己创建的连接对象名称" + "数据库中的字段名" + "%>"
例如:
<%=rsObj("title")%> 其中rsObj就是连接对象名,title就是表中的字段名。
然后在你需要显示该数据的地方加上它就行,例如: