UC知道关于ASP的代码 每一句的代码解释下
来源：百度知道 编辑：UC知道 时间：2024/06/11 03:22:35
title = Request("title")
title = Replace(title,"'","‘")
attpic = Request("attpic")
rqtContent = ChangeChr(request("txtcontent"))
rqtContent = Replace(rqtContent,"'","‘")
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="SELECT * FROM News"
rs.Open sql, Conn, 1, 3
rs.AddNew
rs("CateId") = CInt(Request("Cate"))
rs("Title") = title
rs("Content") = rqtContent
rs("Posttime") = now()
rs("Poster") = Session("UserName")
rs("ReadCount") = 0
If attpic <> "" Then
rs("attpic") = attpic
End If
rs.Update
set rs = nothing
Response.Write "<h2>添加成功！</h2>"
%>
title = Replace(title,"'","‘")
attpic = Request("attpic")
rqtContent = ChangeChr(request("txtcontent"))
rqtContent = Replace(rqtContent,"'","‘")
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="SELECT * FROM News"
rs.Open sql, Conn, 1, 3
rs.AddNew
rs("CateId") = CInt(Request("Cate"))
rs("Title") = title
rs("Content") = rqtContent
rs("Posttime") = now()
rs("Poster") = Session("UserName")
rs("ReadCount") = 0
If attpic <> "" Then
rs("attpic") = attpic
End If
rs.Update
set rs = nothing
Response.Write "<h2>添加成功！</h2>"
%>
title = Request("title") '获取表单传递过来的title值,并赋给变量title
title = Replace(title,"'","‘") '用Replace函数将title中的"'"替换成"‘"
attpic = Request("attpic") '获取表单传递过来的attpic值,并赋给变量attpic
rqtContent = ChangeChr(request("txtcontent")) '获取表单传递过来的rqtContent值,并赋给变量
rqtContent
rqtContent = Replace(rqtContent,"'","‘") '用Replace函数将rqtContent中的"'"替换成"‘"
Set rs = Server.CreateObject("ADODB.RecordSet") '创建一个记录集rs
sql="SELECT * FROM News" '从数据库中读取News表中的数据
rs.Open sql, Conn, 1, 3 '将读取的记录存放在记录集rs中，并将rs打开
rs.AddNew '向数据库中添加数据
'*****下面的语名是将从表单中取得的数据存放到对应在数据库中的字段里******
rs("CateId") = CInt(Request("Cate"))
rs("Title") = title
rs("Content") = rqtContent
rs("Posttime")