📄 admin_replace.asp

📁 淘客网上商店网站程序淘客网上商店网站程序淘客网上商店网站程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="Inc/Const.asp"-->
<%
Dim BeginTime,EndTime
if Not Cl.TrueOtherPurview("Data") then
	Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
Header
if trim(request("type1"))="step001" then
	Call ShowChird()
else
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
	<tr class="title"> 
		<td height="22" colspan="2">数 据 库 内 容 替 换 程 序</td>
	</tr>
	<tr class="tdbg">
		<td width="70" height="30" ><strong>管理导航：</strong></td>
		<td><a href="Admin_Replace.asp">数据库内容批量替换（普通模式）</a>&nbsp;|&nbsp;<a href="Admin_Replace.asp?Action=Main2">数据库内容批量替换（高级模式）</a>&nbsp;|&nbsp;<a href="Admin_Replace.asp?Action=Main3">数据库内容批量替换（赋值模式）</a></td></tr>
</table>
<%
	dim Action
	i=0
	Action=trim(request("action"))
	Select Case Action
	Case "Replace1","Replace2","Replace3"
		call step1()
	Case "Main2"
		call Main2()
	Case "Main3"
		call Main3()
	Case Else
		call Main1()
	End Select
end if

Footer

Sub Main1()
%>
<script language="JavaScript" type="text/javascript">
function changedb(){
    tablechird.location.href="Admin_Replace.asp?type1=step001&type="+document.myform.TableName.value;
}
function CheckForm(){
  if (document.myform.TableName.value==''){
    alert('数据表名不能为空！');
    document.myform.TableName.focus();
    return false;
  }
  if (document.myform.ColumnName.value==''){
    alert('字段名不能为空！');
    //document.myform.ColumnName.focus();
    return false;
  }
  if (document.myform.strOld.value==''){
    alert('替换字符不能为空！');
    document.myform.strOld.focus();
    return false;
  }
  return true;  
}
</script>
<form method="post" name="myform" onSubmit="return CheckForm();" action="Admin_Replace.asp" target="_self">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
	<tr class="title"><td height="22" colspan="2" align="center"><strong>数 据 库 内 容 批 量 替 换（普通模式）</strong></td></tr>
	<tr class="tdbg"><td height="40" align="right" width=80>数据表名：</td><td height="40"><%Call ShowMain()%><font color=red> *</font></td></tr>
	<tr class="tdbg"><td height="40" align="right">字 段 名：</td><td height="40"><input name="ColumnName" type="hidden" value="" size="40"><iframe style="top:2px;" ID="tablechird" src="Admin_Replace.asp?type1=step001" frameborder=0 scrolling=no width="100%" height="20"></iframe></td></tr>
	<tr class="tdbg"><td height="40" align="right">其它条件：</td><td height="40"><input name="OtherSql" type="text" value="" size="72">(一般不需填写)</td></tr>
	<tr class="tdbg"><td height="40" align="right">替换数量：</td><td height="40"><input name="thnum" type="text" value="" size="72"> 替换多少条数据,0或不填写为不限</td></tr>
	<tr class="tdbg"><td height="40" align="right">将 字 符：</td><td height="40"><textarea name="strOld" cols="60" rows="4"></textarea><font color=red> *</font></td></tr>
	<tr class="tdbg"><td height="40" align="right">替 换 成：</td><td height="40"><textarea name="strNew" cols="60" rows="4"></textarea></td></tr>
	<tr class="tdbg"><td height="40" align="right">注意事项：</td><td height="40">	1、请备份您的创力数据库文件。<br />2、本操作的更新时间视您数据的多少以及服务器（或本地机器）的配置决定，如果数据很多，更新可能很慢，在这过程千万不能刷新页面或关闭浏览器，如果出现超时或者错误提示，请使用备份数据重新进行操作。</td></tr>
	<tr class="tdbg"><td height="40" colspan="2" align="center"><input type="hidden" name="Action" value="Replace1"><input type="submit" name="Submit" value="开始替换"></td></tr>
</table>
</form>
<%
End Sub

Sub Main2()
%>
<script language="JavaScript" type="text/javascript">
function changedb(){
    tablechird.location.href="Admin_Replace.asp?type1=step001&type="+document.myform.TableName.value;
}
function CheckForm1(){
  if (document.myform.TableName.value==''){
    alert('数据表名不能为空！');
    document.myform.TableName.focus();
    return false;
  }
  if (document.myform.ColumnName.value==''){
    alert('字段名不能为空！');
    //document.myform.ColumnName.focus();
    return false;
  }
  if (document.myform.strOld.value==''){
    alert('替换开始代码不能为空！');
    document.myform.strOld.focus();
    return false;
  }
   if (document.myform.strOld1.value==''){
    alert('替换结束代码不能为空！');
    document.myform.strOld1.focus();
    return false;
  }
  return true;  
}
</script>
<form method="post" name="myform" onSubmit="return CheckForm1();" action="Admin_Replace.asp" target="_self">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
	<tr class="title"><td height="22" colspan="2" align="center"><strong>数 据 库 内 容 批 量 替 换 （高级模式）</strong></td></tr>
	<tr class="tdbg"><td height="40" align="right" width=80><b>特别事项</b>：</td><td height="40"><font color=red>高级模式较易出错，且替换速度较慢、较占服务器CPU和内存资源,请谨慎使用!如无特殊需要,建议使用普通模式!</font></td></tr>
	<tr class="tdbg"><td height="40" align="right" width=80>数据表名：</td><td height="40"><%Call ShowMain()%><font color=red> *</font></td></tr>
	<tr class="tdbg"><td height="40" align="right">字 段 名：</td><td height="40"><input name="ColumnName" type="hidden" value="" size="40"><iframe style="top:2px;" ID="tablechird" src="Admin_Replace.asp?type1=step001" frameborder=0 scrolling=no width="100%" height="20"></iframe></td></tr>
	<tr class="tdbg"><td height="40" align="right">其它条件：</td><td height="40"><input name="OtherSql" type="text" value="" size="72">(一般不需填写)</td></tr>
	<tr class="tdbg"><td height="40" align="right">替换数量：</td><td height="40"><input name="thnum" type="text" value="" size="72"> 替换多少条数据,0或不填写为不限</td></tr>
	<tr class="tdbg"><td height="40" align="right">字符开始：</td><td height="40"><textarea name="strOld" cols="60" rows="3"></textarea><font color=red> *</font></td></tr>
	<tr class="tdbg"><td height="40" align="right">字符结束：</td><td height="40"><textarea name="strOld1" cols="60" rows="3"></textarea><font color=red> *</font></td></tr>
	<tr class="tdbg"><td height="40" align="right">替 换 成：</td><td height="40"><textarea name="strNew" cols="60" rows="3"></textarea></td></tr>
	<tr class="tdbg"><td height="40" align="right">注意事项：</td><td height="40">	1、请备份您的创力的数据库文件。<br />2、本操作的更新时间视您数据的多少以及服务器（或本地机器）的配置决定，如果数据很多，更新可能很慢，在这过程千万不能刷新页面或关闭浏览器，如果出现超时或者错误提示，请使用备份数据重新进行操作。</td></tr>
	<tr class="tdbg"><td height="40" colspan="2" align="center"><input type="hidden" name="Action" value="Replace2"><input type="submit" name="Submit" value="开始替换"></td></tr>
</table>
</form>
<%
End Sub

Sub Main3()
%>
<script language="JavaScript" type="text/javascript">
function changedb(){
    tablechird.location.href="Admin_Replace.asp?type1=step001&type="+document.myform.TableName.value;
}
function CheckForm1(){
  if (document.myform.TableName.value==''){
    alert('数据表名不能为空！');
    document.myform.TableName.focus();
    return false;
  }
  if (document.myform.ColumnName.value==''){
    alert('字段名不能为空！');
    //document.myform.ColumnName.focus();
    return false;
  }
  return true;  
}
</script>
<form method="post" name="myform" onSubmit="return CheckForm1();" action="Admin_Replace.asp" target="_self">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
	<tr class="title"><td height="22" colspan="2" align="center"><strong>数 据 库 内 容 批 量 替 换 （赋值模式）</strong></td></tr>
	<tr class="tdbg"><td height="40" align="right" width=80><b>特别事项</b>：</td><td height="40"><font color=red>赋值模式不理会原有数据,而是把选定字段的值直接修改为新的值,这会导致原数据丢失并变为新数据!请谨慎使用!</font></td></tr>
	<tr class="tdbg"><td height="40" align="right" width=80>数据表名：</td><td height="40"><%Call ShowMain()%><font color=red> *</font></td></tr>
	<tr class="tdbg"><td height="40" align="right">字 段 名：</td><td height="40"><input name="ColumnName" type="hidden" value="" size="40"><iframe style="top:2px;" ID="tablechird" src="Admin_Replace.asp?type1=step001" frameborder=0 scrolling=no width="100%" height="20"></iframe></td></tr>
	<tr class="tdbg"><td height="40" align="right">其它条件：</td><td height="40"><input name="OtherSql" type="text" value="" size="72">(一般不需填写)</td></tr>
	<tr class="tdbg"><td height="40" align="right">修改数量：</td><td height="40"><input name="thnum" type="text" value="" size="72"> 替换多少条数据,0或不填写为不限</td></tr>
	<tr class="tdbg"><td height="40" align="right">修 改 成：</td><td height="40"><textarea name="strNew" cols="60" rows="3"></textarea></td></tr>
	<tr class="tdbg"><td height="40" align="right">注意事项：</td><td height="40">	1、请备份您的创力的数据库文件。<br />2、本操作的更新时间视您数据的多少以及服务器（或本地机器）的配置决定，如果数据很多，更新可能很慢，在这过程千万不能刷新页面或关闭浏览器，如果出现超时或者错误提示，请使用备份数据重新进行操作。</td></tr>
	<tr class="tdbg"><td height="40" colspan="2" align="center"><input type="hidden" name="Action" value="Replace3"><input type="submit" name="Submit" value="开始替换"></td></tr>
</table>
</form>
<%
End Sub


'**************************************************
'过程名：Step1
'作  用：数据替换主调用程序
'参  数：无
'**************************************************
Sub Step1()
	dim rs,sql
	BeginTime=timer
	dim TableName,ColumnName,OtherSql,strOld,strOld1,strNew,thnum
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -