[原创]十分钟学会asp

下面是我初学asp做的一个简单的新闻发布系统事例，大家如果看懂了，就和我一样了。

<%set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("xinwentj.mdb")
modd=request.QueryString("mod")
%>
<%
'新闻添加
if request.QueryString("step")=1 then
title=request.form("title")
ly=request.form("ly")
jj=request.form("jj")
exec="select * from xinwentj"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
do while not rs.eof
rs.movenext
loop
rs.close
set rs=nothing
exec1="insert into xinwentj(title,ly,jj)values('"+title+"','"+ly+"','"+jj+"')"
conn.execute exec1
conn.close
set conn=nothing
response.redirect"xinwentj2.asp"
end if
'新闻修改
if request.QueryString("step")=2 then
id=request.form("id")
title1=request.form("title")
ly1=request.form("ly")
jj1=request.form("jj")
exec="select* from xinwentj where id="&id
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("title")=title1
rs("ly")=ly1
rs("jj")=jj1
rs.update
rs.close
set rs=nothing
response.write""
end if
'新闻删除
if request.QueryString("del")<> "" then
del=request.QueryString("del")
Set dd = Conn.Execute("Delete From [xinwentj] Where id = "&del)
Response.write ""
end if
%>














<%
exec="select*from xinwentj" '定义数据库查询命令
set rs=server.createobject("adodb.recordset") '定义数据库记录
rs.open exec,conn '打开数据库查询记录并循环开始
do while not rs.eof
%>






<%rs.movenext
loop
rs.close
set rs=nothing
%>

ID	新闻标题	新闻来源	内容简介	新闻编辑
<%=rs("id")%>	<%=rs("title")%>	<%=rs("ly")%>	<%=rs("jj")%>	修改 删除

<%if modd<>"" then%>
<%set rs=server.CreateObject("adodb.recordset")
exec="select * from xinwentj where id="&modd
rs.open exec,conn,1,3
%>

新闻编辑
新闻标题：
新闻来源：
内容简介：

<%conn.close
set conn=nothing%>
<%else%>

新闻添加
新闻标题：
新闻来源：
内容简介：

<%end if%>

不行了不行了，我一定要加你好友……以后慢慢看

suming 厉害啊！

你才知道啊

真无敌啊，什么都懂

........在深夜看有催眠效果．．对我来说．．