📄 user.asp
字号:
<!--experience.end-->
</div>
<div class="line5"></div>
<!---->
</div>
</li>
</ul>
</div>
<!--user.end-->
</div>
<%
rs.close
set rs=nothing
end sub
sub business()
dim rs,business,logo
set rs=conn.execute("select * from as_user where userID="&anysale.userID)
if not(rs.bof and rs.eof) then
business=split(rs("business"),"|||")
logo=split(rs("logo"),"|||")
%>
<div id="userBusiness">
<!--userBusiness-->
<%userNav%>
<div class="detailBig" id="userBusinessDetail">
<ul>
<li class="detailT">
<h2>修改业务信息</h2>
</li>
</ul>
<ul>
<li>
<div class="detailBigC" id="userBusinessContent">
<!---->
<form name="userBusinessForm" id="userBusinessForm" method="post">
<div class="list line30">
<ul style="padding:5px 0;">
<li class="name txtRig"></li>
<li class="value txtCen">
<%if logo(0)="images/nologo.gif" then%>
<img src="images/nologo.gif" id="mylogo" style="padding:10px 20px;" class="border whitebg" alt="<%=rs("title")%>" />
<%else%>
<img src="<%=logo(0)%>" id="mylogo" alt="<%=rs("title")%>" width="<%=logo(1)%>" height="<%=logo(2)%>" />
<%end if%>
</li>
</ul>
<ul>
<li class="name txtRig"><span class="red">*</span> 标志地址：</li>
<li class="value">
<%if cint(anysale.asGroups(42))=1 and cint(anysale.asUp(1))<>999 then%>
<iframe name="upfile" src="upfile.asp?upValue=userlogo&upImage=mylogo&group=3" frameBorder="0" marginHeight="0" marginWidth="0" scrolling="no" style="width:100%;height:24px;"></iframe> <br />
<%end if%>
<input type="text" name="userlogo" id="userlogo" value="<%=logo(0)%>" class="inpWidth" <%if cint(anysale.asUser(15))=0 then response.write"disabled=""disabled""" end if%> onblur="check('标志地址',this.value,'userBusinessLogoNote',0,0,5,250)" />
<br /> 宽：<input type="text" name="logoWidth" id="logoWidth" style="width:80px;height:17px;" value="<%=logo(1)%>" onblur="check('标志宽度',this.value,'userBusinessLogoNote',0,1,1,3,0,<%=cint(anysale.asUser(12))%>)" /> px
高：<input type="text" name="logoHeight" id="logoHeight" style="width:80px;height:17px;" value="<%=logo(2)%>" onblur="check('标志高度',this.value,'userBusinessLogoNote',0,1,1,3,0,<%=cint(anysale.asUser(12))%>)" /> px
</li>
<li class="note"><span class="note">默认尺寸:<%=cint(anysale.asUser(13))%> x <%=cint(anysale.asUser(14))%></span><span id="userBusinessLogoNote"></span></li>
</ul>
<ul>
<li class="name txtRig"><span class="red">*</span> 公司名称：</li>
<li class="value"><input type="text" name="title" id="userBusinessTitle" value="<%=rs("title")%>" class="inpWidth" maxlength="100" onblur="check('公司名称',this.value,'userBusinessTitleNote',0,0,5,100)" /></li>
<li><span class="note" id="userBusinessTitleNote">请完整填写注册的公司全称，个体经营请填写真实姓名</span></li>
</ul>
<ul>
<li class="name txtRig"><span class="red">*</span> 公司类型：</li>
<li class="value">
<input name="kind" type="radio" value="企业单位" <%if business(0)="企业单位" then response.write"checked=""checked""" end if%> /> 企业单位
<input name="kind" type="radio" value="个体经营" <%if business(0)="个体经营" then response.write"checked=""checked""" end if%> /> 个体经营 <br />
<input name="kind" type="radio" value="事业单位或社会团体" <%if business(0)="事业单位或社会团体" then response.write"checked=""checked""" end if%> /> 事业单位或社会团体<br />
<input name="kind" type="radio" value="未经工商注册，个人" <%if business(0)="未经工商注册，个人" then response.write"checked=""checked""" end if%> /> 未经工商注册，个人
</li>
<li><span class="note" id="userBusinessKindNote"></span></li>
</ul>
<ul>
<li class="name txtRig"><span class="red">*</span> 您的职位：</li>
<li class="value"><input type="text" name="position" id="userBusinessPosition" value="<%=business(1)%>" class="inpWidth" onblur="check('职位',this.value,'userBusinessPositionNote',0,0,2,20)" maxlength="20" /></li>
<li><span class="note" id="userBusinessPositionNote"></span></li>
</ul>
<ul>
<li class="name txtRig"><span class="red">*</span> 经营模式：</li>
<li class="value">
<input type="checkbox" name="direction" value="生产" <%if instr(business(2),"生产")>0 then response.write"checked=""checked""" end if%> /> 生产
<input type="checkbox" name="direction" value="贸易" <%if instr(business(2),"贸易")>0 then response.write"checked=""checked""" end if%> /> 贸易
<input type="checkbox" name="direction" value="服务" <%if instr(business(2),"服务")>0 then response.write"checked=""checked""" end if%> /> 服务
<input type="checkbox" name="direction" value="政府或其它机构" <%if instr(business(2),"政府或其它机构")>0 then response.write"checked=""checked""" end if%> /> 政府或其它机构
</li>
<li><span class="note" id="userBusinessKindNote"></span></li>
</ul>
<ul>
<li class="name txtRig"><span class="red">*</span> 注册资本：</li>
<li class="value"><input type="text" name="capital" id="userBusinessCapital" value="<%=rs("capital")%>" class="inpWidth" maxlength="9" onblur="check('注册资本',this.value,'userBusinessCapitalNote',0,1,1,9,1)" /></li>
<li class="note"><span>万元</span><span id="userBusinessCapitalNote"></span></li>
</ul>
<ul>
<li class="name txtRig"><span class="red">*</span> 法人代表：</li>
<li class="value"><input type="text" name="corporation" id="userBusinessCorporation" value="<%=business(3)%>" class="inpWidth" maxlength="20" onblur="check('法人代表',this.value,'userBusinessCorporationNote',0,0,2,20)" /></li>
<li><span class="note" id="userBusinessCorporationNote"></span></li>
</ul>
<ul>
<li class="name txtRig"><span class="red">*</span> 注册时间：</li>
<li class="value"><input type="text" name="regdate" id="userBusinessRegdate" value="<%=rs("regdate")%>" class="inpWidth" maxlength="4" onblur="check('注册时间',this.value,'userBusinessRegdateNote',0,1,4,4)" /></li>
<li class="note"><span>年份，如:2008</span><span id="userBusinessRegdateNote"></span></li>
</ul>
<ul>
<li class="name txtRig"><span class="red">*</span> 公司注册地：</li>
<li class="value">
<input type="hidden" name="oldAreaID" value="<%=rs("areaID")%>" />
<select name="areaID" id="userBusinessAreaID">
<%=anysale.IDSelect("area",0,0,0,rs("areaID"))%>
</select>
<span class="iArr" style="cursor:pointer;" title="点击选择区域" onclick="getPage('windows.asp?action=clickID&upValue=userBusinessArea&table=area&parentID=0&groups=0&isuser=0&isselect=0');"> </span>
</li>
</ul>
<ul>
<li class="name txtRig"><span class="red">*</span> 经营地址：</li>
<li class="value"><input type="text" name="address" id="userBusinessAddress" value="<%=business(4)%>" class="inpWidth" maxlength="200" onblur="check('经营地址',this.value,'userBusinessAddressNote',0,0,1,200)" /></li>
<li><span class="note" id="userBusinessAddressNote"></span></li>
</ul>
<ul>
<li class="name txtRig"><span class="red">*</span> 邮政编码：</li>
<li class="value"><input type="text" name="postcode" id="userBusinessPostcode" value="<%=business(5)%>" class="inpWidth" onblur="check('邮政编码',this.value,'userBusinessPostcodeNote',0,1,6,6)" maxlength="6" /></li>
<li><span class="note" id="userBusinessPostcodeNote"></span></li>
</ul>
<ul>
<li class="name txtRig"><span class="red">*</span> 主营行业：</li>
<li class="value">
<select name="classID" id="userBusinessClassID">
<%=anysale.IDSelect("class",0,0,0,rs("classID"))%>
</select>
<span class="iArr" style="cursor:pointer;" title="点击选择主营行业" onclick="getPage('windows.asp?action=clickID&upValue=userBusinessClass&table=class&parentID=0&groups=0&isuser=0&isselect=1');"> </span>
</li>
</ul>
<ul>
<li class="name txtRig"><span class="red">*</span> 主营产品或服务：</li>
<li class="value"><input type="text" name="service" id="userBusinessService" value="<%=business(6)%>" class="inpWidth" onblur="check('产品或服务',this.value,'userBusinessServiceNote',0,0,1)" /></li>
<li><span class="note" id="userBusinessServiceNote"></span></li>
</ul>
<ul>
<li class="name txtRig">公司网站：</li>
<li class="value"><input type="text" name="website" id="userBusinessWebsite" value="<%=business(7)%>" class="inpWidth" onblur="check('公司网站',this.value,'userBusinessWebsiteNote',1,0,7,250)" /></li>
<li><span class="note" id="userBusinessWebsiteNote"></span></li>
</ul>
<ul>
<li class="name txtRig"><span class="red">*</span> 公司简介：</li>
<li>
<textarea name="userBusinessDetails" id="userBusinessDetails" style="display:none"><%=rs("detail")%></textarea>
<iframe name="editor" src="editor/anysale.htm?groups=@@@3@@@1@@@0@@@id=userBusinessDetails" frameBorder="0" marginHeight="0" marginWidth="0" scrolling="no" style="width:602px;height:318px;"></iframe>
</li>
<li><span class="note" id="userBusinessDetailsNote"></span></li>
</ul>
<ul>
<li class="name txtRig"><span class="red">*</span> 验证码：</li>
<li class="value"><input type="text" name="passcode" id="userBusinessPasscode" onfocus="setCode('userBusinessCode','userBusinessPasscodeNote');" onblur="checkCode('验证码',this.value,'userBusinessPasscodeNote')" size="8" maxlength="4" /><span id="userBusinessCode"></span></li>
<li><span class="note" id="userBusinessPasscodeNote"><strong>提示</strong>：点击文本框显示验证码</span></li>
</ul>
<ul>
<li class="name"> </li>
<li>
<input type="button" name="button" value="确 定"
onclick="if(
check('标志地址',$('userlogo').value,'userBusinessLogoNote',0,0,5,250) &&
check('标志宽度',$('logoWidth').value,'userBusinessLogoNote',0,1,1,3,0,<%=cint(anysale.asUser(12))%>) &&
check('标志高度',$('logoHeight').value,'userBusinessLogoNote',0,1,1,3,0,<%=cint(anysale.asUser(12))%>) &&
check('公司名称',$('userBusinessTitle').value,'userBusinessTitleNote',0,0,5,100) &&
check('职位',$('userBusinessPosition').value,'userBusinessPositionNote',0,0,2,20) &&
check('注册资本',$('userBusinessCapital').value,'userBusinessCapitalNote',0,1,1,9,1) &&
check('法人代表',$('userBusinessCorporation').value,'userBusinessCorporationNote',0,0,2,20) &&
check('注册时间',$('userBusinessRegdate').value,'userBusinessRegdateNote',0,1,4,4) &&
check('经营地址',$('userBusinessAddress').value,'userBusinessAddressNote',0,0,1,200) &&
check('邮政编码',$('userBusinessPostcode').value,'userBusinessPostcodeNote',0,1,6,6) &&
check('产品或服务',$('userBusinessService').value,'userBusinessServiceNote',0,0,1) &&
check('公司网站',$('userBusinessWebsite').value,'userBusinessWebsiteNote',1,0,7,250) &&
check('内容',$('userBusinessDetails').value,'userBusinessDetailsNote',0,0) &&
checkCode('验证码',$('userBusinessPasscode').value,'userBusinessPasscodeNote')
){getPage('user/user.asp?action=saveBusiness','userBusiness',1,'userBusinessForm');};"
class="button" onmouseover="this.className='buttonH'" onmouseout="this.className='button'" />
<input type="hidden" name="index" value="<%=cint(request("index"))%>" />
</li>
</ul>
</div>
</form>
<!---->
</div>
</li>
</ul>
</div>
<!--userBusiness.end-->
</div>
<%
end if
rs.close
set rs=nothing
end sub
sub saveBusiness()
' business="公司类型|职位|经营模式|法人代表|经营地址|邮编|销售的产品+求购的商品|公司网站"
' 标志logo公司名称title注册资本capital注册时间regdate所在区域areaID主营行业classID公司简介detail
dim business
if not anysale.checkPost then
errNote=errNote+"<li>请不要从外部提交。</li>"
iserr=true
end if
if request.form("userlogo")="" or request.form("logoWidth")="" or request.form("logoHeight")="" or request.form("title")="" or request.form("position")="" or request.form("direction")="" or request.form("capital")="" or request.form("corporation")="" or request.form("regdate")="" or request.form("areaID")="" or request.form("address")="" or request.form("postcode")="" or request.form("classID")="" or request.form("userBusinessDetails")="" then
errNote=errNote+"<li>请填好完整的商务信息。</li>"
iserr=true
end if
if cstr(session("getcode"))<>lcase(cstr(trim(request("passcode")))) then
errNote=errNote+"<li>您输入的确认码和系统产生的不一致，请重新输入。</li>"
iserr=true
end if
session("getcode")=""
if iserr then
anysale.errWin(errNote)
exit sub
end if
business=request.form("kind")&"|||"&request.form("position")&"|||"&request.form("direction")&"|||"&request.form("corporation")&"|||"&request.form("address")&"|||"&request.form("postcode")&"|||"&request.form("service")&"|||"&request.form("website")
dim rs,sql
set rs= server.createobject ("adodb.recordset")
sql = "select * from as_user where userID="&anysale.userID
rs.open sql,conn,1,3
rs("business")=business
rs("logo")=trim(request.form ("userlogo"))&"|||"&request.form ("logoWidth")&"|||"&request.form ("logoHeight")
rs("title")=request.form("title")
rs("capital")=request.form("capital")
rs("regdate")=trim(request.form ("regdate"))
rs("areaID")=request.form("areaID")
rs("classID")=request.form("classID")
rs("detail")=trim(request.form ("userBusinessDetails"))
rs.update
rs.close
set rs=nothing
'更改区域
if clng(request("areaID"))<>clng(request("oldAreaID")) then
conn.Execute("update as_business set areaID="&clng(request("areaID"))&" where userID="&anysale.userID)
conn.Execute("update as_products set areaID="&clng(request("areaID"))&" where userID="&anysale.userID)
conn.Execute("update as_job set areaID="&clng(request("areaID"))&" where userID="&anysale.userID)
end if
conn.execute("update as_upfile set ID="&anysale.userID&" where userID="&anysale.userID&" and [group]=3 and ID=0")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -