price_edit_ok.asp

来自「新闻发布系统」· ASP 代码 · 共 80 行

ASP
80 行
字号 
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file=config.asp -->
<!--#include file="check.asp"-->
<html><head>
<meta http-equiv=Content-Language content=zh-cn>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<meta http-equiv=Pragma content=no-cache>
<link href=../css/css.css rel=STYLESHEET type=text/css>
<title>广告发布管理系统</title>

<base target=_top>
</head><body marginwidth=0 marginheight=0>
<%
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," "," ")
changechr=replace(changechr,"'","&acute;")
changechr=replace(changechr,mid(" "" ",2,1),"&quot;")
end function

dim pricename
dim ID
ID=request("ID")
pricename=changechr(trim(request("pricename")))
if pricename="" then
response.write "不能为空！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
response.end
end if

adsconn.open adsdata
set adsrs=server.createobject("adodb.recordset")
adssql ="SELECT * From price"
adsrs.open adssql,adsConn,1,3
do while not adsrs.eof
if adsrs("price")=pricename then
response.write "<br><br><br><center>已经存在这个广告分类名称或没有做任何改动！请<a href=javascript:history.go(-1)>返回重新填写</a>！</center>"
response.end
end if
adsrs.movenext
loop
adsrs.close

'修改价格种类

set adsrs=server.createobject("adodb.recordset")
adssql="select * from price where priceID="&ID
adsrs.open adssql,adsconn,1,3
pricen=adsrs("price")
adsrs("price")=pricename
adsrs.update
adsrs.close

'修改广告位置

set adsrs=server.createobject("adodb.recordset")
adssql="select * from place where price='"&pricen&"'"
adsrs.open adssql,adsconn,1,3
do while not adsrs.eof
adsrs("price")=pricename
adsrs.update
adsrs.movenext
loop
adsrs.close

'修改广告条数据

set adsrs=server.createobject("adodb.recordset")
adssql="select * from ads where price='"&pricen&"'"
adsrs.open adssql,adsconn,1,3
do while not adsrs.eof
adsrs("price")=pricename
adsrs.update
adsrs.movenext
loop
adsrs.close
set adsrs=nothing
adsconn.close
set adsconn=nothing

response.redirect "mana.asp"
%>

price_edit_ok.asp - 源码说明

本页面展示了「新闻发布系统」中的 price_edit_ok.asp 源码文件，采用 ASP 编程语言编写，共 80 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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