editm.asp

一个不错的asp程序

<!--#include file="my_conn.asp"-->
<!--#include file="my_cookie.asp"-->

<%
dim query

TheMonth=request.form("TheMonth")
TheDay=request.form("TheDay")
RUp=request.form("RUp")
RLet=request.form("RLet")
RDown=request.form("RDown")
RResult=request.form("Result")
RCommend=request.form("RCommend")
RExp=request.form("RExp")

if TheMonth="" or TheDay="" or RUp="" or RLet="" or RDown="" or RResult="" or RCommend="" or RExp="" then
%>
<script>
alert("所填信息不完整，请重新修改！");
</script>
<%
else
RTime=TheMonth+"月"+TheDay+"日"
AddTime=now()
set rs2=server.createobject("adodb.recordset")
query="select * from message where RcdId="&cstr(request("RcdId"))
rs2.open query,conn,1,3
uclass=rs2("uclass")
rs2("RTime")=RTime
rs2("RUp")=RUp
rs2("RLet")=RLet
rs2("RDown")=RDown
rs2("RResult")=RResult
rs2("RCommend")=RCommend
rs2("RExp")=RExp
rs2("AddTime")=now()
rs2.update
rs2.close
set rs2=nothing

%>
<script>
alert("记录修改成功！");
self.close();
</script>
<%
'response.redirect "showmessage.asp?uclass=" & uclass
end if%>