price_add.asp

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

ASP

69 行

<%@ 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,"'","‘")
changechr=replace(changechr,mid(" "" ",2,1),"&quot;")
end function


dim howmany
howmany=request.form("howmany")


dim pricename
pricename=changechr(trim(request.form("price")))
If pricename="" Then
%>
<script language=javascript>
history.back()
alert("不能为空！")
</script>
<%
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
%>
<script language=javascript>
history.back()
alert("已经存在这个广告分类名称！")
</script>
<%
response.write ""
response.end
end if
adsrs.movenext
loop
adsrs.close
set adsrs=nothing
set adsrs=server.createobject("adodb.recordset")
adssql="select * from price"
adsrs.open adssql,adsconn,1,3
adsrs.addnew
adsrs("price")=pricename
adsrs("priceID")=howmany+1
adsrs.update
adsrs.close
set adsrs=nothing
adsconn.close
set adsconn=nothing
response.redirect "mana.asp"
%>

price_add.asp - 源码说明

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

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?