求高手解释一段asp代码

使用注释解释复杂的代码段 #生活技巧# #学习技巧# #编程学习技巧#

<%@ Language=VBScript %> <% Option Explicit %> <% ' ---------- Page Functions ---------- Function ChkString(string) ChkString = Replace(string, "'", "''") End Function ' ---------- Page Variables ---------- Dim dailyMsg ' The messgae for that day Dim dtCurrentDate ' The current date being updated Dim objConn, strConn, strSQL, objRS ' Database Variables ' ---------- Variable Definitions ---------- dailyMsg = Request("calendarText") dtCurrentDate = Request("currentDate") Set objConn = Server.CreateObject("ADODB.Connection") strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath(" b") & ";Persist Security Info=False;" objConn.Open(strConn) ' Check to see if a message exists, if there is update/add it to the db, if not, delete the message If Trim(dailyMsg) = "" then StrSql = "DELETE FROM calendar WHERE calendarDate = #" & dtCurrentDate & "#" Else strSQL = "SELECT * FROM calendar WHERE calendarDate = #" & dtCurrentDate & "#" Set objRS = objConn.Execute(strSQL) If NOT objRS.EOF Then strSQL = "UPDATE calendar SET calendarText = '" & ChkString(dailyMsg) & "' WHERE calendarDate = #" & dtCurrentDate & "#" Else strSQL ="INSERT INTO calendar (calendarDate, calendarText) VALUES (#" & dtCurrentDate & "#, '" & ChkString(dailyMsg) & "')" End If End If objConn.Execute(strSQL) Set objRS = Nothing objConn.Close Set objConn = Nothing Response.Redirect (" p?currentDate=" & dtCurrentDate) %>

全部

网址：求高手解释一段asp代码 https://www.yuejiaxmz.com/news/view/897024

相关内容

Asp编码优化技巧8则
深入解析ASP美食网站源码，构建美味生活的技术秘籍，美食网站制作代码
揭秘ASP装修网站源码，打造个性化家居设计平台的秘诀，asp装修网站源码是什么
以我与“黑客”的一段遭遇简单谈ASP的安全性
解释代码parser=argparse.ArgumentParser(description=
ASP.NET 二手交易系统的设计与实现（论文+源码）
asp
DIY艺术品的灵魂之旅：释放你的创造潜能，美化你的空间 (手工做艺术品)
ASP网上二手商品交易管理系统的设计与实现
推荐文章：提升编码效率的神器

随便看看