savemodi.asp

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

ASP

118 行

<%@ 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=../Fsmanage/css/css.css rel=STYLESHEET type=text/css>
<title> 修改广告播放设置</title>
</script>
<base target=_top>
</head><body marginwidth=0 marginheight=0>
<%
adsconn.open adsdata
dim getid,getname,geturl,getgif,getplace,getwin,adsrs,adssql,getclass,getclicks,getshows,gettime,gettype,getwidth,getheight,getnote,getdiftime,getusername,getcontact,getprice,getpriceid

getid=cint(request.querystring("id"))

getname = Trim(Request("name"))
geturl = Trim(Request("url"))
getgif = Trim(Request("gif_url"))
getplace =trim(Request("placeid"))
getwin =trim(Request("window"))
getclass=trim(Request("class"))
gettype=trim(Request("itype"))
getwidth=trim(Request("width"))
getheight=trim(Request("height"))
getnote=trim(Request("note"))
getusername=trim(Request("username"))
getcontact=trim(Request("contact"))

if getclass=0 then
getclicks=0
getshows=0
gettime=date()

elseif getclass=1 then
getclicks=trim(request("clicks1"))
getshows=0
gettime=date()

elseif getclass=2 then
getclicks=0
getshows=trim(request("shows2"))
gettime=date()

elseif getclass=3 then
getclicks=0
getshows=0
gettime=trim(request("time3"))

elseif getclass=4 then
getclicks=trim(request("clicks4"))
getshows=trim(request("shows4"))
gettime=date()

elseif getclass=5 then
getclicks=trim(request("clicks5"))
getshows=0
gettime=trim(request("time5"))

elseif getclass=6 then
getclicks=0
getshows=trim(request("shows6"))
gettime=trim(request("time6"))

elseif getclass=7 then
getclicks=trim(request("clicks7"))
getshows=trim(request("shows7"))
gettime=trim(request("time7"))
end if


set adsrs=server.createobject("adodb.recordset")
adssql="select * from price where price='"&request("price")&"'"
adsrs.open adssql,adsconn,1,1
getpriceid=adsrs("priceid")
adsrs.close

set adsrs=server.createobject("adodb.recordset")
adssql="select * from ads where id="&getid
adsrs.open adssql,adsconn,1,3
adsrs("sitename")=getname
adsrs("showtype")=gettype
adsrs("url")=geturl
adsrs("gif_url") = getgif
adsrs("price") = request("price")
adsrs("place") = request("placeid")
adsrs("priceid")=getpriceid
adsrs("window") = getwin
adsrs("class") = getclass
adsrs("clicks") = getclicks
adsrs("shows") = getshows
adsrs("lasttime") = gettime
adsrs("width") = getwidth
adsrs("height") = getheight
adsrs("note") = getnote
adsrs("username") = getusername
adsrs("contact") = getcontact
adsrs("time") = date()
adsrs.update
adsrs.close
set adsrs=nothing
adsconn.close
set adsconn=nothing

%>


<div align=center><center><p>　</p><p>　</p>
<li>资料修改成功！<br><br>
如果修改的是暂停或者失效广告，请激活。<br><br>
  </center></div>


</body>
</html>

savemodi.asp - 源码说明

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

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?