insertm.asp

一个不错的asp程序

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

<%

TheMonth=request("TheMonth")
TheDay=request("TheDay")
RUp=request("RUp")
RLet=request("RLet")
RDown=request("RDown")
RResult=request("Result")
RCommend=request("RCommend")
RExp=Request("RExp")
'uclass=request("uclass")
if TheMonth="" or TheDay="" or RUp="" or RLet="" or RDown="" or RResult="" or RCommend="" or RExp="" then
%>
<script>
alert("所填信息不完整，请重新填写！");
</script>
<%
else
RTime=TheMonth+"月"+TheDay+"日"
RShow=1
AddTime=now()
set rs=server.createobject("adodb.recordset")
query="select * from message"

rs.open query,conn,1,3
rs.addnew
rs("RTime")=RTime
rs("RUp")=RUp
rs("RLet")=RLet
rs("RDown")=RDown
rs("RResult")=RResult
rs("RCommend")=RCommend
rs("RExp")=RExp
rs("RShow")=1
rs("AddTime")=now()
rs("uclass")=request("uclass")
rs.update
end if
set rs=nothing
response.redirect "showmessage.asp?uclass=" & request("uclass")
%>