copymessage.asp

一个不错的asp程序

<!--#include file="my_conn.asp"-->
<!--#include file="my_cookie.asp"-->
<%
dim rs,rs2
dim query,query2
dim temp

set rs2=server.createobject("adodb.recordset")
query2="select * from message where rcdid=" & clng(request("rcdid"))
rs2.open query2,conn,1,1
temp=rs2("uclass")

set rs=server.createobject("adodb.recordset")
'query="insert into message([rtime],[rup],[rlet],[rdown],[rresult],[rcommend],[rexp],[rshow],[addtime],[uclass]) values('" & rs2("rtime") & "','" & rs2("rup") & "','" & rs2("rlet") & "','" & rs2("rdown") & "','" & rs2("rresult") & "','" & rs2("rcommand") & "','" & rs2("rexp") & "'," & rs2("rshow") & ",'" & rs2("addtime") & "','" & request.form("sb") & "')"
query="select * from message"
rs.open query,conn,1,3
rs.addnew
rs("rtime")=rs2("rtime")
rs("rup")=rs2("rup")
rs("rlet")=rs2("rlet")
rs("rdown")=rs2("rdown")
rs("rresult")=rs2("rresult")
rs("rcommend")=rs2("rcommend")
rs("rexp")=rs2("rexp")
rs("rshow")=rs2("rshow")
rs("addtime")=rs2("addtime")
rs("uclass")=request.form("sb")
rs.update

rs.close
set rs=nothing
rs2.close
set rs2=nothing

%>
<script>
alert("记录已成功复制");
'self.close();
</script>

<%
response.redirect "showmessage.asp?uclass=" & temp
%>