mana_save.asp

嘉缘人才6.0精简 ,很好用的人才系统

<!--#include file="config.asp" -->
<%
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

if request("action")="addone" then

pricename=changechr(trim(request.form("price")))
If pricename="" Then
response.write "<script>alert('请填写广告种类！');history.go(-1);</script>"
Response.End 
end if

set adsrs=server.createobject("adodb.recordset")
adssql="select * from JOB_price where JOB_price='"& pricename &"'"
adsrs.open adssql,conn,1,3
if not adsrs.eof then
response.write "<script>alert('已经存在这个广告分类名称！');history.go(-1);</script>"
Response.End 
else

set adsrs1=server.createobject("adodb.recordset")
adssql1="select * from JOB_price"
adsrs1.open adssql1,conn,1,1
htc=adsrs1.recordcount
adsrs1.close
set adsrs1=nothing

adsrs.addnew
adsrs("JOB_price")=pricename
adsrs("JOB_priceID")=htc+1
adsrs.update
end if
adsrs.close
set adsrs=nothing
response.redirect "mana.asp"
'================================================================
elseif request("action")="oedit" then

ID=request("ID")
pricename=changechr(trim(request.form("pricename")))
If pricename="" Then
response.write "<script>alert('请填写广告种类！');history.go(-1);</script>"
Response.End 
end if
'修改广告种类

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

'修改广告位置

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

'修改广告条数据

set adsrs=server.createobject("adodb.recordset")
adssql="select * from JOB_ads where JOB_price='"&pricen&"'"
adsrs.open adssql,conn,1,3
do while not adsrs.eof
adsrs("JOB_price")=pricename
adsrs.update
adsrs.movenext
loop
adsrs.close
set adsrs=nothing
response.redirect "mana.asp"
'================================================================
elseif request("action")="odel" then
price=request("price")
button_value=trim(Request.Form("alert_button"))
if button_value="是" then
conn.Execute("DELETE FROM [JOB_price] WHERE JOB_price='"&price &"'")
conn.Execute("DELETE FROM [JOB_place] WHERE JOB_price='"&price&"'")
conn.Execute("DELETE FROM [JOB_ads] WHERE JOB_price='"&price&"'")
Response.Redirect "mana.asp"
end if
'================================================================
elseif request("action")="tadd" then

price=changechr(trim(request.form("price")))
place=changechr(trim(request.form("place")))
if IsNumeric(place)=false then
response.write "<script>alert('广告编号必须为数字！');history.go(-1);</script>"
response.end
end if

placename=changechr(trim(request.form("placename")))
jg=changechr(trim(request.form("jg")))
jgg=changechr(trim(request.form("jgg")))
aa=changechr(trim(request.form("aa")))
cc=changechr(trim(request.form("cc")))

If price="" or place="" or placename="" or jg="" or jgg="" or cc="" or aa="" Then
response.write "<script>alert('请填写广告位置资料！');history.go(-1);</script>"
Response.End 
end if

if instr(cc,"*")=0 then
response.write "<script>alert('广告尺寸格式为：宽*高\n\n宽和高中间请用 * 隔开');history.go(-1);</script>"
Response.End 
end if

if instr(aa,"*")=0 then
response.write "<script>alert('广告行列格式为：行*列\n\n行和列中间请用 * 隔开');history.go(-1);</script>"
Response.End 
end if

set adsrs=server.createobject("adodb.recordset")
adssql="select * from JOB_place where JOB_price='"& price &"' and JOB_place="& place
adsrs.open adssql,conn,1,1
if not adsrs.eof then
response.write "<script>alert('此广告编号已存在！');history.go(-1);</script>"
Response.End 
end if
adsrs.close

set adsrs=server.createobject("adodb.recordset")
adssql="select * from JOB_price where JOB_price='" & price & "'"
adsrs.open adssql,conn,1,1
id=adsrs("JOB_priceid")
adsrs.close

set adsrs=server.createobject("adodb.recordset")
adssql="select * from JOB_place"
adsrs.open adssql,conn,1,3
adsrs.addnew
adsrs("JOB_place")=place
adsrs("JOB_price")=price
adsrs("JOB_priceid")=id
adsrs("JOB_placename")=placename
adsrs("JOB_jg")=jg
adsrs("JOB_jgg")=jgg
adsrs("JOB_cc")=cc
adsrs("JOB_aa")=aa
adsrs.update
adsrs.close
set adsrs=nothing
conn.close
set conn=nothing
response.redirect "Mana.asp?priceid="&request("priceid")
'================================================================
elseif request("action")="tedit" then
ID=request("ID")
place=changechr(trim(request("place")))
if IsNumeric(place)=false then
response.write "<script>alert('广告编号必须为数字！');history.go(-1);</script>"
response.end
end if
placename=changechr(trim(request("placename")))
jg=changechr(trim(request("jg")))
jgg=changechr(trim(request("jgg")))
cc=changechr(trim(request.form("cc")))
aa=changechr(trim(request.form("aa")))

If place="" or placename="" or jg="" or jgg="" or id="" or cc="" or aa="" Then
response.write "<script>alert('请填写广告位置资料！');history.go(-1);</script>"
Response.End 
end if
'修改广告位

set adsrs=server.createobject("adodb.recordset")
adssql="select * from JOB_place where JOB_placeID="&ID
adsrs.open adssql,conn,1,3
placen=adsrs("JOB_place")
adsrs("JOB_place")=place
adsrs("JOB_placename")=placename
adsrs("JOB_jg")=jg
adsrs("JOB_jgg")=jgg
adsrs("JOB_cc")=cc
adsrs("JOB_aa")=aa
adsrs.update
adsrs.close

'修改广告数据库
set adsrs=server.createobject("adodb.recordset")
adssql="select * from JOB_ads where JOB_place="& placen &""
adsrs.open adssql,conn,1,3
do while not adsrs.eof
adsrs("JOB_place")=place
adsrs.update
adsrs.movenext
loop
adsrs.close
set adsrs=nothing
conn.close
set conn=nothing

response.redirect "Mana.asp?priceid="&request("priceid")
'================================================================
elseif request("action")="tdel" then
ID = Request("ID")
place=request("place")
priceid=request("priceid")

conn.Execute="DELETE FROM [JOB_place] WHERE JOB_placeid=" & id
conn.Execute="DELETE FROM [JOB_ads] WHERE JOB_place=" & place &" and JOB_priceid="& priceid

response.redirect "Mana.asp?priceid="&request("priceidone")

'================================================================
end if
%>