急急急……帮忙解释以下代码的含义!!!!谢谢……

setcn=server.CreateObject("ADODB.Connection")setrs=server.CreateObject("ADODB.Records... set cn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
set rs2=server.CreateObject("ADODB.Recordset")
set rs3=server.CreateObject("ADODB.Recordset")
cn.Open mycnstr

myurl="tourmate.asp"
mode=Request("mode")
sm=Request.QueryString("sm")
title=trim(Request.Form("title"))
destination=trim(Request.Form("destination"))
if trim(Request.Form("godate"))="" then
godate=""
else
godate=Cdate(trim(Request.Form("godate")))
end if
'response.Write godate
keyid=Request.QueryString("key")
if keyid="" or not isnumeric(keyid) then keyid=0
key=keyid
%>

<%
'add record
if mode="add" then
sqltext="select * from tourmate "
rs.Open sqltext,cn,1,2
rs.AddNew
rs("id")=getkeyid("tourmate","id")
rs("title")=trim(Request("title"))
rs("destination")=trim(Request("destination"))
rs("godate")=Request("godate")
rs("startplace")=trim(Request("startplace"))
rs("detail")=trim(Request("detail"))
rs("age")=trim(Request("age"))
rs("selfinfo")=trim(Request("selfinfo"))
rs("count")=Request("count")
rs("claim")=trim(Request("claim"))
rs("contact")=Request("contact")
rs("userid")=Request.Cookies("userid")
rs("hitcount")=0
rs("replycount")=0
rs("flag")=0
rs("creatdate")=now()
rs("editdate")=now()

rs.Update
rs.Close
'response.redirect "success02.asp"
'session("fkfk")=minute(now)
response.write "<script language=javascript>alert('添加结伴同游信息成功!');window.location.href='tourmate.asp';</script>"
end if
展开
 我来答
yangzhiyon
2011-11-12 · TA获得超过348个赞
知道小有建树答主
回答量:764
采纳率:0%
帮助的人:348万
展开全部
从form中取值 并添加到tourmate中
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式