<%
set conn = server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("../data/zhou.mdb")
%>
连接数据库
<%
newstitle = request.form("newstitle")
newstype = request.form("newstype")
newstext = request.form("newstext")
newstext = replace(newstext,"'","''")
newspic = request.form("newspic")
newsfrom = request.form("newsfrom")
newsyear = request.form("newsyear")
exec = "insert into newscenter(newstitle,newstype,newstext,newspic,newsfrom,newsyear) values('" & newstitle & "','" & newstype &"','" & newstext & "','" & newspic & "','" & newsfrom & "','" & newsyear & "');"
'response.write exec
'response.end
conn.execute exec
%>
添加数据
<%
myID = cint(request.form("id"))
newstitle = request.form("newstitle")
newstype = request.form("newstype")
newstext = request.form("newstext")
newspic = request.form("newspic")
newsfrom = request.form("newsfrom")
exec = "update newscenter set newstitle ='" & newstitle & "', newstype = '" & newstype & "',newstext = '" & newstext & "',newspic ='" & newspic & "' ,newsfrom ='" & newsfrom & "' where ID=" & myID
'response.write exec
'response.end
conn.execute exec
%>
修改数据
<%
exec="delete * from newscenter where id="&request("ID")
conn.execute exec
%>
删除数据
<%
exec = "select * from newscenter where newstype='liu' order by newstime desc"
set rsqq = server.createobject("adodb.recordset")
rsqq.open exec,conn,1,1
for n=1 to 10
if not rsqq.eof then
%>
<br />
<%
if len(rsqq("newstitle")) > 17 then
response.Write left(rsqq("newstitle"),15)&"..."
else
response.write rsqq("newstitle")
end if
%></a><%
rsqq.movenext
end if
next
rsqq.close
set rsqq = nothing%>
查询数据