lcdlx_save.asp

来自「一个诚信信息港门户网 功能: 系统设置 企业会员 个人」· ASP 代码 · 共 58 行

<!--#include file="top.asp"-->
<%colxr=request("colxr")
colxrsex=request("colxrsex")
cotelq=request("cotelq")
cotel=request("cotel")
cofaxq=request("cofaxq")
cofax=request("cofax")
mail=request("mail")
coyb=request("coyb")
coaddress=request("coaddress")
colxother=request("colxother")
Oicq=request("Oicq")

if cofax<>"" or cofaxq<>"" then
if cofaxq="" or cofax="" or len(cofaxq)<3 or len(cofax)<7 then
errstyle="·请输入正确的企业传真及区号！"
scripterr
end if
end if
if coyb<>"" then
if len(coyb)<>6 or IsNumeric(coyb)=0 then
errstyle="·请输入正确的企业所在地区邮编！"
scripterr
end if
end if

if cofaxq="" then cofaxq=null
if cofax="" then cofax=null
if coyb="" then coyb=null
if colxother="" then colxother=null
if Oicq="" then Oicq=null

set rs=Server.CreateObject("Adodb.Recordset")
sql="select *  from SMT_yp where SMT_id="&session("id")
rs.open sql,conn,1,3
rs("SMT_colxr")=colxr
rs("SMT_colxrsex")=colxrsex
rs("SMT_cotelq")=cotelq
rs("SMT_cotel")=cotel
rs("SMT_cofaxq")=cofaxq
rs("SMT_cofax")=cofax
rs("SMT_mail")=mail
rs("SMT_coyb")=coyb
rs("SMT_coaddress")=coaddress
rs("SMT_colxother")=colxother
rs("SMT_key")=cityypkey
rs("SMT_Oicq")=Oicq
rs.update
rs.close
set rs=nothing

session("coname")=""

if cityypkey=1 then
response.redirect"ok.asp?url=lcdlx.asp"
elseif cityypkey=0 then
response.redirect"ok.asp?url=lcdlx.asp&key=yes"
end if%>