杨洋图片大全集:电子商务网站的产品更新

第一步连接数据库,

<%
connstr = "DBQ=" + server.mappath("Access数据库相对页面路径(含.mdb文件)") + ";DRIVER={Microsoft Access Driver (*.mdb)}"
Set conn=Server.createobject("ADODB.CONNECTION")
conn.Open connstr%>
第二步在前台页面读数据库
sql="SELECT * FROM T_News WHERE ORDER BY F_ID DESC"
rs.open sql,conn,1,1 %>
<%
if rs.eof then
response.Write("目前没有新闻,谢谢支持!")
end if
do while not rs.eof %>
<tr>
<td height="20" class="new"><font color="#FF6600">·</font><a href="../News/ShowNews.asp?ID=<%=rs("F_ID")%>" target="_blank"> <%=rs("F_Title")%>    <%=rs("F_AddTime")%> </a></td>
</tr>
<% n=n+1
rs.movenext
if n>=11 then exit do
loop
rs.close
set rs=nothing %>
第三步制作后台写数据库

set conn=server.CreateObject("ADODB.Connection")
conn.open Connstr
sql="Insert Into Music_List_Photo_System"&_
"(IswNumsDate,IswNumsUser,IswNumsClass,IswNumsList,IswNumsPhoto,IswNumsSize,IswNumsTime,IswNumsSpeed,IswNumsIp) "&_
"values"&_
"('"&now()&"','"&IswNumsUser&"','"&IswNumsClass&"','"&IswNumsList&"','"&IswNumsPhoto&"','"&lngSize&"','"&dblTime&"','"&dblSpeed&"','"&IswNumsIp&"')"
conn.Execute(sql)
conn.close()
set conn=nothing

因为不爱整理,所以上面用了不同的表,呵,样式是差不多的,自己搞定啦,你最好去下载个同类系统看一下源就知道了

加我QQ:438063644