ypsave.asp

站完全依据SEO技术建立

<%dbdns="../../"%>
<!--#include file="../../inc/conn.asp"-->

<%if session("admin")="" then
  		response.redirect "../index.asp"
end if%>

<%page=request("page")
if page="" then page=1

ypxxone_id=request("ypxxone_id")
ypxxtwo_id=request("ypxxtwo_id")
addone_id=request("addone_id")
addtwo_id=request("addtwo_id")
user=request("user")
pass=request("pass")
colxr=request("colxr")
colxrsex=request("colxrsex")
coname=request("coname")
coaddress=request("coaddress")
cotelq=request("cotelq")
cotel=request("cotel")
mail=request("mail")

if request("action")="del" then
conn.execute("delete from bookcp where yp_id=" & request("id"))
conn.execute("delete from bookyp where yp_id=" & request("id"))
conn.execute("delete from cp where yp_id=" & request("id"))
conn.execute("delete from cp_sort where yp_id=" & request("id"))
conn.execute("delete from Job_zp where yp_id=" & request("id"))
conn.execute("delete from news where yp_id=" & request("id"))
conn.execute("delete from sca where yp_id=" & request("id"))
conn.execute("delete from yp where id=" & request("id"))

Response.Redirect request("yp")&".asp?page="&page

elseif request("action")="add" then

if user="" or len(user)<2 or len(user)>16 then
response.write"<script>alert('请输入您的 2-16 位登录用户名！');history.go(-1)</script>"
response.end
end if
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select * from yp where user='"&user&"' or mail='"&mail&"' or coaddress='"&coaddress&"'",conn
if not rs.EOF then
Response.Write "<script>alert('对不起，该用户名已经存在，请重新选择！');history.go(-1);</Script>"
Response.End   
end if
if pass="" or len(pass)<4 or len(pass)>16 then
response.write"<script>alert('请输入您的 4-16 位登录密码！');history.go(-1)</script>"
response.end
end if
if ypxxone_id="" or ypxxtwo_id="" then
response.write"<script>alert('请选择企业所属行业！');history.go(-1)</script>"
response.end
end if
if coname="" then
response.write"<script>alert('请输入您的企业名称！');history.go(-1)</script>"
response.end
end if
if colxr="" or colxrsex="" then
response.write"<script>alert('请输入企业联系人！');history.go(-1)</script>"
response.end
end if
if addone_id="" or addtwo_id="" then
response.write"<script>alert('请选择企业所在地区！');history.go(-1)</script>"
response.end
end if
if coaddress="" then
response.write"<script>alert('请输入企业所在的详细地址！');history.go(-1)</script>"
response.end
end if
if cotelq="" or cotel="" or len(cotelq)<3 or len(cotel)<7 then
response.write"<script>alert('请输入正确的企业联系电话及区号！');history.go(-1)</script>"
response.end
end if
if mail="" or len(mail)<8  or instr(mail,"@")=0 or instr(mail,".")=0 then
response.write"<script>alert('请输入正确的企业客户联系邮箱！');history.go(-1)</script>"
response.end
end if

Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from yp"
rs.open sql,conn,1,3
rs.addnew
rs("user")=user
rs("pass")=pass
rs("colxr")=colxr
rs("colxrsex")=colxrsex
rs("coname")=coname
rs("coaddress")=coaddress
rs("cotelq")=cotelq
rs("cotel")=cotel
rs("ypxxone_id")=ypxxone_id
rs("ypxxtwo_id")=ypxxtwo_id
rs("addone_id")=addone_id
rs("addtwo_id")=addtwo_id
rs("mail")=mail

rs("key")=true
rs("enrol")=2
rs.update
rs.close
set rs=nothing
response.redirect "ypadd.asp"

elseif request("action")="edit" then

ypxxone_id_=request("ypxxone_id_")
ypxxtwo_id_=request("ypxxtwo_id_")
addone_id_=request("addone_id_")
addtwo_id_=request("addtwo_id_")

if ypxxone_id="" then
ypxxone_id=ypxxone_id_
ypxxtwo_id=ypxxtwo_id_
end if
if addone_id="" then
addone_id=addone_id_
addtwo_id=addtwo_id_
end if

if pass="" or len(pass)<2 or len(pass)>16 then
response.write"<script>alert('请输入您的 2-16 位登录密码！');history.go(-1)</script>"
response.end
end if
if ypxxone_id="" or ypxxtwo_id="" then
response.write"<script>alert('请选择企业所属行业！');history.go(-1)</script>"
response.end
end if
if coname="" then
response.write"<script>alert('请输入您的企业名称！');history.go(-1)</script>"
response.end
end if
if colxr="" or colxrsex="" then
response.write"<script>alert('请输入企业联系人！');history.go(-1)</script>"
response.end
end if
if addone_id="" or addtwo_id="" then
response.write"<script>alert('请选择企业所在地区！');history.go(-1)</script>"
response.end
end if
if coaddress="" then
response.write"<script>alert('请输入企业所在的详细地址！');history.go(-1)</script>"
response.end
end if
if cotelq="" or cotel="" or len(cotelq)<3 or len(cotel)<7 then
response.write"<script>alert('请输入正确的企业联系电话及区号！');history.go(-1)</script>"
response.end
end if
if mail="" or len(mail)<8  or instr(mail,"@")=0 or instr(mail,".")=0 then
response.write"<script>alert('请输入正确的企业客户联系邮箱！');history.go(-1)</script>"
response.end
end if

Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from yp where id="&request("id")
rs.open sql,conn,1,3
rs("pass")=pass
rs("colxr")=colxr
rs("colxrsex")=colxrsex
rs("coname")=coname
rs("coaddress")=coaddress
rs("cotelq")=cotelq
rs("cotel")=cotel
rs("ypxxone_id")=ypxxone_id
rs("ypxxtwo_id")=ypxxtwo_id
rs("addone_id")=addone_id
rs("addtwo_id")=addtwo_id
rs("mail")=mail

rs("key")=true
rs.update
rs.close
set rs=nothing
Response.Redirect request("yp")&".asp?page="&page


elseif request("action")="key" then
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from yp where id="&request("id")
rs.open sql,conn,1,3
rs("key1")=request("key")
rs.update
rs.close
set rs=nothing
response.redirect "yp.asp?page="&page
elseif request("action")="key1" then
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from yp where id="&request("id")
rs.open sql,conn,1,3
rs("key")=request("key1")
rs.update
rs.close
set rs=nothing
response.redirect "yp_1.asp?page="&page
end if%>