register.asp

数据库应用技术的实验代码及相关文档,供有需要的人使用

                <td width="100%" height="28" valign="bottom"> &nbsp;所在区域:<B>
                  <SELECT size=1 name=area>
                    <OPTION>请在以下列表中选择</OPTION>
                    <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"%>>吉林省 
                    <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"%>>西藏自治区 
                    <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"> 
                  &nbsp;成立日期:
                  <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"> &nbsp;注册资金;
                  <input type="text" name="fund" size="6" maxLength=6 value="<%=kfund%>">
                  万人民币</td>
              </tr>
              <tr> 
                <td width="100%" height="28" valign="bottom" bgcolor="#F3F3F3"> 
                  &nbsp;通讯地址:
                  <input type="text" name="address" size="30" maxLength=40 value="<%=rs("address")%>">
                </td>
              </tr>
              <tr> 
                <td width="100%" height="28" valign="bottom"> &nbsp;邮政编码;<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">&nbsp;联系人:&nbsp; 
                    <input type="text" name="pname" size="20" maxLength=20 value="<%=rs("pname")%>">
                  </p>
                </td>
              </tr>
              <tr> 
                <td width="100%" height="28" valign="bottom"> &nbsp;联系电话:
                  <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">&nbsp;传真号码:
                    <input type="text" name="fax" size="20" maxLength=40 value="<%=rs("fax")%>">
                  </p>
                </td>
              </tr>
              <tr> 
                <td width="100%" height="28" valign="bottom"> &nbsp;电子信箱:
                  <input type="text" name="email" size="20" maxLength=40 value="<%=rs("email")%>">
                </td>
              </tr>
              <tr> 
                <td width="100%" height="28" valign="bottom" bgcolor="#F3F3F3"> 
                  &nbsp;公司网站:<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,"&nbsp;"," ")
			  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>
        <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>
      <tr> 
        <td width="778" height="7" valign="top" colspan="5">&nbsp;</td>
      </tr>
      <tr> 
        <td width="778" height="3" valign="top" colspan="5"> </td>
      </tr>
    </table>
  </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 "main.asp" %>