ASP字段数据替换 - 编程论坛

文件：c1.asp  c1a.asp
表：users2  字段：nos1  数据：“1”

c1.asp 提交给 c1a.asp  可以替换段内任何一个关键字，可全句或个别替换，但不能提交空数据。我想保留现在这替换功能又想可以用空数据替换旧数据，好象是一种字段清空功能吧。请高手帮忙修改一下。谢谢！

c1.asp  :

<html>
<head>
<link href="font.css" rel="stylesheet">
<meta http-equiv="Content-Language" content="zh-cn">
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body  text="#000000">

<div align="center"><center>

<form method="POST" action="c1a.asp">

<table border="1" cellpadding="4" cellspacing="0" style="border-collapse: collapse"
width="100%" bordercolordark="#C0C0C0" bordercolorlight="#C0C0C0" height="104">
  <tr class="main2">
    <td width="25%" height="21" align="center" bgcolor="#FFFFFF">
    旧<font style="font-size: 9pt">数据：</a></font></td>
    <td width="47%" height="21" align="left" bgcolor="#FFFFFF"><span style="font-size: 9pt">
    <input
    type="text" name="oldurl" size="30" value="1"></span></td>
    <td width="27%" height="84" align="center" bgcolor="#FFFFFF" rowspan="2"><span
    style="font-size: 9pt">
    <input type="submit" value="提交"
    style="font-family: 新细明体, 宋体, Arial; height:20px;background-color:#D4D0C8"
    onMouseOver="this.style.backgroundColor='#FFC864'"
    onMouseOut="this.style.backgroundColor='#D4D0C8'" name="adaction"></span></td>
  </tr>
  <tr>
    <td width="25%" height="21" align="center" bgcolor="#FFFFFF">新数据</font></td>
    <td width="47%" height="21" align="left" bgcolor="#FFFFFF"><span style="font-size: 9pt">
    <input
    type="text" name="newurl" size="30"> </sp an></td>
  </tr>
</table>
</center></div>  </form>
</body></html></body></html>

c1a.asp:

<link href="font.css" rel="stylesheet">
<body  text="#000000">

<%
newurl=trim(request("newurl"))
oldurl=trim(request("oldurl"))
set rs=server.createobject("adodb.recordset")
sqltext="select * from users2 where id=1 "
rs.open sqltext,conn,3,3
rs("oldurl")=trim(request("newurl"))
rs.update
rs.close
response.write "<p align=center>"
response.write "数据"
response.write oldurl
response.write "清空，默认为1从新开始："
response.write newurl
response.write "<br><br>"

set rs=server.createobject("adodb.recordset")
sqltext="select * from users2 order by id "
rs.open sqltext,conn,3,3

do while not rs.eof
rs("nos1")=Replace(rs("nos1"),oldurl,newurl)
rs.update
Rs.moveNext
loop
rs.close
set rs=server.createobject("adodb.recordset")
sqltext="select * from users2 order by id "
rs.open sqltext,conn,1,1
%>
</p>
<div align="center">
  <center>
  <table border="1" cellspacing="1" style="border-collapse: collapse" width="50%" id="AutoNumber1">

<%do while not rs.eof%><tr>
  <td width="20%"><%=rs("id")%></td>
  <td width="80%"><%=rs("nos1")%></td>
    </tr>
    <%Rs.moveNext
loop
rs.close%>
  </table>
  </center></div>