saveedit.asp

asp+access的电影免费网站源码是个很好的学习例子大家可以下来学习

<!--#include file="../checkpost.asp"-->
<!--#include file="inc/articlechar.inc"-->
<!--#include file="articleconn.asp"-->
<!--#include file="security.asp"-->
<%if session("flag")>2 then
    response.write "<br><p align=center>您的操作权限不够！</p>"
    response.end
end if
%>
<%

set rs=server.createobject("adodb.recordset")
sql="select * from learning where articleid="&clng(request("id"))
rs.open sql,conn,3,3
rs("typeid")=Request.Form("typeid")
rs("softlevel")=Request.Form("softlevel")
rs("serverip")=request.form("serverip")
rs("title")=request.form("titley")
rs("name")=request.form("namef")
rs("where")=request.form("where")
rs("typeid")=request.form("typeid")
rs("best")=request.form("best")
rs("firstbest")=request.form("firstbest")
rs("onlinelook")=request.form("onlinelook")
rs("down")=request.form("down")
rs("howlong")=request.form("howlong")
rs("domurl")=request.form("domurl3")
rs("movietype")=request.form("movietype")
rs("canlook")=request("canlook")
rs("count")=request("count")
rs("dateandtime")=Date()
rs("content")=replace(request.form("contentl"),vbcrlf,"<br>")
rs.update
rs.close

dim t
t=0
set rs=server.createobject("adodb.recordset")
sql1="select * from movieurl where nameid='"&clng(request("id"))&"'"
rs.open sql1,conn,1,3
do while not rs.eof
t=t+1
rs("url")=request.form("url"&t&"")
rs.update
rs.movenext
loop

rs.close
set rs=nothing
conn.close
set conn=nothing

response.redirect Request.ServerVariables("HTTP_REFERER")
%>