⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 save_edit.asp

📁 全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 系统概述: 软件名称:全球商务网站系统 当前版本:V1.0 最新版本:V1.1 运行环境:WINNT+(IIS)
💻 ASP
字号:
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
  Response.Buffer = true
  Response.ExpiresAbsolute=now()-1
  Response.Expires=0
  Response.CacheControl="no-cache"
%>
<%
if Not ChkPost then 
response.redirect ("../../login/chklogin.asp?login=4")
response.end
end if

if session("id")="" then
response.Redirect("../../login/login1.asp")
response.end
end if

if request("p_z_Z_Details")="" then
response.write"<SCRIPT language=JavaScript>alert('详细说明必须填写!');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if

InfoType=Replace_Text(request("InfoType"))
p_z_Z_Type=Replace_Text(request("p_z_Z_Type"))
jinji=Replace_Text(request("jinj"))
info_id=Replace_Text(request("info_id"))
p_z_Z_Subject=Replace_Text(request("p_z_Z_Subject"))
sortid=Replace_Text(request("p_z_Z_RootCategory"))
CategoryId=split(Replace_Text(request("p_z_Z_CategoryId1")),",")
typeid=CategoryId(0)
typeid_2=CategoryId(1)
p_z_Z_Keywords=Replace_Text(request("p_z_Z_Keywords"))
content=request("p_z_Z_Details")
period=Replace_Text(request("p_z_Z_OfferExpire"))
more_info=Replace_Text(request("more_info"))
Specifications=Replace_Text(request("Specifications"))
Quantity=Replace_Text(request("Quantity"))
picture=Replace_Text(request("p_z_Z_TmpPictureName"))
picture_summ=Replace_Text(request("picture_summ"))
Packaging=Replace_Text(request("Packaging"))
PriceTerms=Replace_Text(request("PriceTerms"))
picsample_0=Replace_Text(request("picsample_0"))
picsample_1=Replace_Text(request("picsample_1"))
picsample_2=Replace_Text(request("picsample_2"))
draw=Replace_Text(request("draw"))
draw1=Replace_Text(request("draw1"))
draw2=Replace_Text(request("draw2"))
FeedbackFlag=Replace_Text(request("FeedbackFlag"))
if FeedbackFlag="" then
FeedbackFlag=0
else
FeedbackFlag=1
end if
gsid=session("id")

sql="select info_id from info where type='"&p_z_Z_Type&"' and showname='"&p_z_Z_Subject&"' and gsid="&gsid&" and info_id<>"&info_id&"" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if not rs.eof 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 info where info_id="&info_id&""
'response.write sql 
rs.open sql,conn,1,3
rs("type")=p_z_Z_Type
rs("showname")=p_z_Z_Subject
if InfoType="mm" then
rs("sortid")=sortid
else
rs("sortid")=InfoType
end if
rs("typeid")=typeid
rs("typeid_2")=typeid_2
rs("keywords")=p_z_Z_Keywords
rs("content")=content
if jinji="1" then
rs("period")="3"
else
rs("period")=period
end if

if picture="" then
picture="nopicture.gif"
else
picture_new=split(picture,"/")
picture_new=picture_new(2)
end if
rs("picture")=picture_new
if picture_summ="" then 
picture_summ="nopicture.gif"
else
picture_summ_new=split(picture_summ,"/")
picture_summ_new=picture_summ_new(2)
end if
rs("picture_summ")=picture_summ_new
rs("Specifications")=Specifications
rs("jinji")=jinji
rs("Quantity")=Quantity
rs("Packaging")=Packaging
rs("PriceTerms")=PriceTerms
rs("TrustpassFlag")=TrustpassFlag
rs("FeedbackFlag")=FeedbackFlag
if picsample_0="1" then
rs("picsample_0")=picsample_0
rs("draw")=draw
elseif picsample_1="1" then
rs("picsample_1")=picsample_1
rs("draw1")=draw1
elseif picsample_2="1" then
rs("picsample_2")=picsample_2
rs("draw2")=draw2
rs("html_pass")=0
end if
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
'response.redirect ("eidt.asp")

'end if
'end if
'set file=nothing
'end if
'next
%>
<%
'if TrustpassFlag="true" then
'response.write"发邮件"
'end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>操作成功</title>
<link href="../../images/css.css" rel="stylesheet" type="text/css">
<meta HTTP-EQUIV=refresh Content='1;url=edit.asp'>
</head>

<table border="0" cellspacing="0" width="100%" cellpadding="0" height="418" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="100%" height="418" valign="middle" align="center">
<b>恭喜您,您的信息已经修改成功!<a href="edit.asp">返回</a></b></td>
</tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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