📄 adminsave1.asp

📁 下载管理系统,重新修改,无错.放心使用. 用户名和密码都是admin:admin

💻 ASP

字号:

<%
  	if session("admin")="" then
  		response.redirect "admin.asp"
  	end if
%>
<!--#include file="conn.asp"-->
<!--#include file="../inc/char.asp"-->
<!--#include file="../inc/const.asp"-->
<%
	dim id
	dim newsname
	dim newsnote
	dim rs
	dim founderr
	founerr=false
	'if trim(request.form("newsname"))="" then
  	'	founderr=true
  	'	errmsg="<li>新闻名称不能空</li>"
	'end if
	if trim(request.form("newsnote"))="" then
  		founderr=true
  		errmsg=errmsg+"<li>新闻内容不能为空</li>"
	end if
	if founderr=false then
	'	newsname=request("newsname")		
		newsnote=trim(request("newsnote"))
		newsnote=replace(newsnote,chr(13),"<br>")
		newsnote=replace(newsnote,chr(13)&chr(10),"<br>")
		newsnote=replace(newsnote,chr(10),"<br>")
		
	set rs=server.createobject("adodb.recordset")
	if request("action")="add" then
		call newsoft()
	elseif request("action")="edit" then
		call editsoft()
	end if
sub newsoft()
	sql="select * from news where (id is null)" 
	rs.open sql,conn,1,3
	rs.addnew
	'rs("newsname")=newsname	
	rs("newsnote")=newsnote
	rs("addtime")=date()
	rs.update
end sub
sub editsoft()
	sql="select * from news where id="&request("id")
	rs.open sql,conn,1,3
	'rs("newsname")=newsname	
	rs("newsnote")=newsnote
	'rs("lasthits")=date()
	rs.update
end sub

	set rs=nothing
	conn.close
	set conn=nothing
%>
<html>

<head>
<title></title>
<link rel="stylesheet" type="text/css" href="style.css">

</head>

<body bgcolor="#468ea3">
<br><br>
  
<table width="50%" border="0" cellpadding="3" cellspacing="1" align="center">
  <tr>
    
<td width="100%" height="20" bgcolor="#145f74">
<p align="center"><font color="#FFFFFF">
 <%if request("action")=add then%>
 添加
 <%else%>
 修改
 <%end if%>
 成功</font>
</td>
  </tr>
  <tr>
    
<td width="100%" bgcolor="#a5d0dc">
<p align="left"><br>
   
    新闻内容为：<%=newsnote%></p>
    您可以进行其他操作<br><br><a href=javascript:history.go(-1)>返回</a>
    </td>
  </tr>
</table>
<%
if makejs=1 then
%>
<iframe src="out_xw_js.asp" width=0 height=0></iframe>
<%end if%>
<%
else
 response.write "由于以下的原因不能保存数据："
 response.write errmsg
end if
%>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -