saveedit.asp

网上流行的MOVE站点

<!--#include file="inc/articlechar.inc"-->
<!--#include file="articleconn.asp"-->
<!--#include file="security.asp"-->
<%if session("flag")>1 then
    response.write "<script>alert('您的操作权限不够！');history.back();</script>"
    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("title2")=request.form("titley2")
rs("hits")=request.form("hits2")
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")=request("dateandtime")
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")
%>
</body>
</html>