📄 savesetting.asp
字号:
<%@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"), "©", "©")
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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -