📄 comregister.asp
字号:
<OPTION value=山东省 <%if rs("area") ="山东省" then Response.Write "selected"%>>山东省
<OPTION value=山西省 <%if rs("area") ="山西省" then Response.Write "selected"%>>山西省
<OPTION value=陕西省 <%if rs("area") ="陕西省" then Response.Write "selected"%>>陕西省
<OPTION value=云南省 <%if rs("area") ="云南省" then Response.Write "selected"%>>云南省
<OPTION value=浙江省 <%if rs("area") ="浙江省" then Response.Write "selected"%>>浙江省
<OPTION value=黑龙江省 <%if rs("area") ="黑龙江省" then Response.Write "selected"%>>黑龙江省
<OPTION value=宁夏自治区 <%if rs("area") ="宁夏自治区" then Response.Write "selected"%>>宁夏自治区
<OPTION value=新疆自治区 <%if rs("area") ="新疆自治区" then Response.Write "selected"%>>新疆自治区
<OPTION value=西藏自治区 <%if rs("area") ="西藏自治区" then Response.Write "selected"%>>西藏自治区
<OPTION value=内蒙古自治区 <%if rs("area") ="内蒙古自治区" then Response.Write "selected"%>>内蒙古自治区
<OPTION value=香港特别行政区 <%if rs("area") ="香港特别行政区" then Response.Write "selected"%>>香港特别行政区
<OPTION value=澳门特别行政区 <%if rs("area") ="澳门特别行政区" then Response.Write "selected"%>>澳门特别行政区
<OPTION value=台湾省 <%if rs("area") ="台湾省" then Response.Write "selected"%>>台湾省</SELECT></B>
</td>
</tr>
<tr>
<td width="100%" height="28" valign="bottom" bgcolor="#F3F3F3">
成立日期:<input type="text" name="fdate" size="10" maxLength=10 value="<%=rs("fdate")%>">
</td>
</tr>
<tr>
<% kfund=rs("fund")
if kfund="未知" then kfund="" end if %>
<td width="100%" height="28" valign="bottom">
注册资金;<input type="text" name="fund" size="6" maxLength=6 value="<%=kfund%>">万人民币</td>
</tr>
<tr>
<td width="100%" height="28" valign="bottom" bgcolor="#F3F3F3">
通讯地址:<input type="text" name="address" size="30" maxLength=40 value="<%=rs("address")%>">
</td>
</tr>
<tr>
<td width="100%" height="28" valign="bottom">
邮政编码;<input type="text" name="zip" size="6" size="6" maxLength=6 value="<%=rs("zip")%>">
</td>
</tr>
<tr>
<td width="100%" height="28" valign="bottom" bgcolor="#F3F3F3">
<p align="left"> 联系人: <input type="text" name="pname" size="20" maxLength=20 value="<%=rs("pname")%>">
</p></td>
</tr>
<tr>
<td width="100%" height="28" valign="bottom">
联系电话:<input type="text" name="phone" size="20" maxLength=40 value="<%=rs("phone")%>">
</td>
</tr>
<tr>
<td width="100%" height="28" valign="bottom" bgcolor="#F3F3F3">
<p align="left"> 传真号码:<input type="text" name="fax" size="20" maxLength=40 value="<%=rs("fax")%>">
</p></td>
</tr>
<tr>
<td width="100%" height="28" valign="bottom">
电子信箱:<input type="text" name="email" size="20" maxLength=40 value="<%=rs("email")%>">
</td>
</tr>
<tr>
<td width="100%" height="28" valign="bottom" bgcolor="#F3F3F3">
公司网站:<input type="text" name="http" size="20" maxLength=40
<% if rs("http") <>"" then%> value="<%=rs("http")%>" <%else%> value="http://"<%end if%>>
</td>
</tr>
<tr>
<td width="100%" valign="top">
<p align="center"><br>
公司简介:<br>
<br>
<%if rs("cname")<>"" then
kjianj=replace(rs("jianj"),"<br>",chr(13))
kjianj=replace(kjianj," "," ")
else
kjianj="" %>
<%end if%>
<textarea rows="9" name="jianj" cols="62" style="background-color: #F3F3F3; color: #000060"><%=kjianj%></textarea>
</p>
<p align="center"><input type="button" value="确 定" <%if rs("cname")<>"" then%>onClick="checkmod()"<%else%>onClick="check()"<%end if%>>
<br>
<br>
</p></td>
</tr>
</table>
</div>
</td>
<center>
<td width="1" height="325" valign="top" bgcolor="#00006A"></td>
<td width="122" height="325" valign="top" bgcolor="#F3F3F3"> </td>
</tr>
<tr>
<td width="778" height="1" valign="top" colspan="5" bgcolor="#396BA5">
<p align="center">
</td>
</tr>
<tr>
<td width="778" height="3" valign="top" colspan="5">
<p align="center">
</td>
</tr>
</table>
</center>
</div>
</form>
</body>
</html>
<% pname=request("pname")
if pname="" then Response.End
trade=request("trade")
cxz=request("cxz")
area=request("area")
fdate=request("fdate")
fund=request("fund")
cname=request("cname")
address=request("address")
zip=request("zip")
phone=request("phone")
fax=request("fax")
email=request("email")
http=request("http")
jianj=htmlencode2(request("jianj"))
if fund="" then fund="未知" end if
if cname="" then cname=rs("cname") end if
if fax="" then fax="未知" end if
if http="" then http="http://" end if
rs.close
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from company where uname='"&uname&"'"
rs.open sql,conn,3,3
rs("trade")=trade
rs("cxz")=cxz
rs("area")=area
rs("fdate")=fdate
rs("cname")=cname
rs("fund")=fund
rs("pname")=pname
rs("address")=address
rs("zip")=zip
rs("phone")=phone
rs("fax")=fax
rs("email")=email
rs("http")=http
rs("jianj")=jianj
rs.update
rs.close
Response.Redirect "commain.asp" %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -