savesetting.asp

来自「一个简单ASP+ACCESS博客程序Simple Blog v1.2 。ASP虽」· ASP 代码 · 共 47 行

ASP
47 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Save Setting</title>
</head>

<body>
<!--#include file="conn.asp"-->
<%
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"), "©", "&copy;")
	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))
%>


</body>
</html>

savesetting.asp - 源码说明

本页面展示了「一个简单ASP+ACCESS博客程序Simple Blog v1.2 。ASP虽然有些老了」中的 savesetting.asp 源码文件，采用 ASP 编程语言编写，共 47 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?