saveedit.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 135 行
ASP
135 行
<%@ codepage ="936" %>
<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>"
response.end
end if
if instr(session("masterflag"),"71")=0 then
response.redirect "../err.asp"
response.end
end if
%>
<%
if request.form("newsid")="" then
Response.write("<script >alert('对不起！参数传递错误！');history.back(-1);</script>")
response.End()
end if
newsid=Replace_Text(request.form("newsid"))
%>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/filesystem.asp"-->
<!--#include file="../../inc/safe.asp"-->
<link rel="stylesheet" type="text/css" href="../css/style.css">
<%
if Not ChkPost then
response.redirect ("/login/chklogin.asp?login=4")
response.end
end if
IncludePic=Replace_Text(request.form("IncludePic"))
title=Replace_Text(request.form("title"))
TitleFontColor=request.form("TitleFontColor")
if IncludePic>"" then
title=IncludePic&title
end if
if TitleFontColor>"" then
title="<font color="&TitleFontColor&">"&title&"</font>"
end if
typeid=Replace_Text(request.form("typeid"))
tjnews=Replace_Text(request.form("tjnews"))
if tjnews="" then
tjnews=0
else
tjnews=1
end if
tjhome=Replace_Text(request.form("tjhome"))
if tjhome="" then
tjhome=0
else
tjhome=1
end if
homepic=Replace_Text(request.form("homepic"))
if homepic="" then
homepic=0
else
homepic=1
end if
homehot=Replace_Text(request.form("homehot"))
if homehot="" then
homehot=0
else
homehot=1
end if
nfrom=Replace_Text(request.form("nfrom"))
picture=Replace_Text(request.form("picture"))
oldpic=Replace_Text(request.form("oldpic"))
content=request.form("content")
pictext=request.form("pictext")
if content="" then
response.write"<SCRIPT language=JavaScript>alert('您没有填写详细内容，请返回重新填写！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
set rs=server.CreateObject ("adodb.recordset")
sql="select * from Yixiang_news where newsid="&newsid&""
rs.open sql,conn,1,3
rs("pictext")=pictext
rs("title")=title
rs("typeid")=typeid
rs("tjnews")=tjnews
rs("tjhome")=tjhome
rs("homepic")=homepic
rs("homehot")=homehot
rs("nfrom")=nfrom
if Replace_Text(Request("cimg"))=1 then
'删除新上传的而又不使用的图片^^^^^^^^^^^^^^^^^^
if picture<>oldpic then
call FileDel(HOPE_InstallDir&"UploadFile/"&picture)
end if
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
end if
if Replace_Text(Request("cimg"))=2 then
rs("picture")=picture
'删除原有图片^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
if picture<>oldpic then
if olpic<>"nopicture.gif" then
call FileDel(HOPE_InstallDir&"UploadFile/"&oldpic)
end if
end if
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
end if
rs("content")=content
rs("dateandtime")=now()
rs.update
id1=rs("NewsID")
id2=rs("NewsID")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>操作成功</title>
</head>
<iframe src="../../manage/makehtml/info/makedetail.asp?all=update&id1=<%=id1%>&id2=<%=id2%>&schtml=开始生成>>" frameborder="0" scrolling="yes" height="0" widht="0"></iframe>
<iframe src="../../manage/makehtml/index/index.asp?act=info" frameborder="0" scrolling="yes" height="0" widht="0"></iframe>
<table cellpadding=2 cellspacing=1 border=0 width=400 class=tableBorder align=center><TR>
<TH class=tableHeaderText colSpan=2 height=25>修改咨讯信息</TH>
<TR><tr><td height=85 valign=top class=forumRow><div align=center><br><br>
修改咨讯信息成功！</div></td></tr><tr align=center><td height=30 class=forumRowHighlight><a href='index.asp'><< 返回上一页</a></td></tr></table>
</body>
</html>
<br>
<!--#include file="../copy.asp" -->⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?