一个简单ASP+ACCESS博客程序Simple Blog v1.2 。ASP虽然有些老了

				
				
				
				
				
				Save Setting
				
				
				
				
								Dim configRS, configSQL, saved
				saved = "false"
				
				If Request.QueryString("saveSetting") = "save" Then
					'Err.clear
					'On Error Resume Next
					configSQL = "SELECT * FROM config ORDER BY blog_id DESC"
					Set configRS = Server.CreateObject("ADODB.Recordset")
					configRS.open configSQL, conn, 1,3
					configRS("blog_name") = Request.Form("blogTitle")
					configRS("blog_url") = Request.Form("blogURL")
					configRS("blog_bottom") = Replace(Request.Form("copyright"), "©", "©")
					configRS("blog_desc") = Request.Form("tagline")
					configRS("blog_shows") = Request.Form("shows")
					Application("blogName") = configRS("blog_name")
					Application("blogURL") =  configRS("blog_url")
					Application("blogBottom") = configRS("blog_bottom")
					Application("blogDesc") = configRS("blog_desc")
					Application("blogShows") = configRS("blog_shows")
					configRS.update
					configRS.close
					saved = "true"
					'If Err  "" Then
					'	saved = false
					'	Response.Write("Error: " + Err.number + " - " + Err.Description)
					'	Err.clear
					'End if
				End if 
				
				Response.Redirect("admin.asp?act=setting&saved=" + cStr(saved))
				%>