admin_note.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 86 行

ASP
86 行
字号 
<!--#include file="inc/inc_sys.asp"-->
<%
'----------------------------------------------
'合并原来的'admin_regtext.asp/admin_userplacard.asp/admin_placard.asp/admin_friendsite.asp
'四个只操作oblog_setup表中单一字段的文件'do-1:regtext;2:userolacard;3:placard;4:friendsite
'save-1/2/3/4
'URL中不允许直接传递字段名称等敏感数据'----------------------------------------------
Dim Action,ActionId,ActionText,ActionField
Dim rs,strNote,strField
Action=LCase(Request.QueryString("Action"))
ActionId=Right(Action,1)
Action=Left(Action,Len(Action)-1)
Select Case ActionId
		Case "1"
			ActionText="修改友情连接(htm代码)"
			ActionField="site_friends"
		Case "2"
			ActionText="修改网站公告(htm代码)"
			ActionField="site_placard"
		Case "3"
			ActionText="修改注册条款(htm代码)"
			ActionField="reg_text"
		Case "4"
			ActionText="修改用户管理后台通知(htm代码)"
			ActionField="user_placard"
		Case Else
			Response.Write "错误的操作方式！"
			Response.End
End Select

if Action="saveconfig" then
	strNote=request("note")
	if not IsObject(conn) then link_database
	set rs=server.CreateObject("adodb.recordset")
	rs.open "select "& ActionField &" from oblog_setup",conn,1,3
	rs(0)=strNote
	rs.update
	rs.close
	oblog.reloadsetup
	Set oBlog=Nothing
	response.Redirect("admin_note.asp?action=do" & ActionId)
else
	set rs=oblog.execute("select "& ActionField &" from oblog_setup")
%>
<!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=gb2312" />
<title>站点配置</title>
<link rel="stylesheet" href="images/style.css" type="text/css" />
<script src="images/menu.js" type="text/javascript"></script>
</head>
<body>
<div id="main_body">
	<ul class="main_top">
		<li class="main_top_left left"><%=ActionText%></li>
		<li class="main_top_right right"> </li>
	</ul>
	<div class="main_content_rightbg">
		<div class="main_content_leftbg">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr>
    <td><form name="form1" method="post" action="admin_note.asp?Action=saveconfig<%=ActionId%>">
                <textarea name="note" cols="100" rows="25" id="edit"><%=rs(0)%></textarea>
				<br>
                <br>
                <input type="submit" name="Submit" value="提交修改">
      </form></td>
  </tr>
</table>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>
</body>
</html>
<%
set rs=nothing
end if
%>

admin_note.asp - 源码说明

本页面展示了「是个不错的文件代码,希望大家好好用,」中的 admin_note.asp 源码文件，采用 ASP 编程语言编写，共 86 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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