www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\adminadmin\asked\admin_replace.asp

    <!--#include file="const.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：801w软件代理系统
' 当前版本：801wAsp 801w cn 801w com
' 文件名称：admin_main.asp
' 更新日期：2010-2-16
' 官方网站：801w代理系统(www.801w.cn www.801w.com) QQ：274667447
'=====================================================================
' Copyright 2003-2010 801w.cn - All Rights Reserved.
' 801wasp is a trademark of 801w.cn
'=====================================================================
%>
<table class="table1" cellspacing="1" cellpadding="3" align="center" border="0">
	<tr>
		<td class="tableline linetitle" width="200" align="left">数据批量替换</td>
		<td class="tableline" width="*" align="right"><a href="admin_replace.asp">批量替换首页</a>
			 - <a href="admin_data.asp?action=CompressData">压缩数据库</a>
			 - <a href="admin_data.asp?action=BackupData">备份数据库</a>
			 - <a href="admin_data.asp?action=RestoreData">恢复数据库</a>
			 - <a href="admin_data.asp?action=detect">服务器信息</a>
			 - <a href="admin_data.asp?action=Readme">SQL操作说明</a>
		</td>
	</tr>
</table>
<%
Dim Action
If Not ChkAdmin("999") Then
	Call Transfer_error()
End If
Action = LCase(Request("action"))
Select Case Trim(Action)
	Case "replace"
		Call ReplaceString()
	Case "search"
		Call TableColumn()
	Case "table"
		Call Tabletop()
	Case Else
		Call showmain()
End Select
If FoundErr = True Then
	ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
NewAsp.PageEnd

Sub showmain()
%>
<form name="myform" action="?action=table" method="post">
<table border="0" align="center" cellpadding="3" cellspacing="1" class="tableborder">
<tr>
	<th>数据库批量替换管理——选择数据表名</th>
</tr>
<tr>
	<td align="center" class="tablerow2"><b>请选择要替换的数据表名：</b>
		<select name="TableName">
	<%
	Dim Rs
	Set Rs = Ask_Conn.openSchema(28)
	While Not Rs.EOF
		Response.Write ("<option value=""" & Rs(2) & """>" & Rs(2) & "</option>")
		Rs.movenext
	Wend
	%>
		</select>
		<input type="submit" name="submit_button" value="下一步" class="button">
	</td>
</tr>
<tr>
	<td align="center" class="tablerow1">请选择要替换的数据表</td>
</tr>
</table>
</form>
<%
End Sub

Sub Tabletop()
	Dim Rs,SQL,haveid,i,j
	Session("TableName") = NewAsp.checkStr(Trim(Request.Form("TableName")))
%>
<form name="myform" action="?action=search" method="post">
<table border="0" align="center" cellpadding="3" cellspacing="1" class="tableborder">
<tr>
	<th>数据库批量替换管理——选择字段名输入查找内容</th>
</tr>
<tr>
	<td align="center" class="tablerow1"><b>要替换的数据表名：</b>
		<select name="TableName">
			<option value="<%=Session("TableName")%>"><%=Session("TableName")%></option>
		</select>
	</td>
</tr>
<tr>
	<td align="center" class="tablerow2"><b>要替换的字段名：</b>
		<select name="ColumnName">
	<%
	haveid = 0
	Set Rs=NewAsp.CreateAXObject("ADODB.Recordset")
	SQL = "SELECT * FROM [" & Session("TableName") & "] WHERE 1<>1"
	Rs.Open SQL, Ask_Conn, 1, 1
	j = Rs.Fields.Count
	Session("NC_PRIMARY") = Rs.Fields(0).Name
	For i = 0 To (j - 1)
		Response.Write ("<option value='" & Rs.Fields(i).Name & "'>" & Rs.Fields(i).Name & "</option>")
	Next
	Rs.Close
	Set Rs = Nothing
	%>
		</select>
	</td>
</tr>
<tr>
	<td align="center" class="tablerow1"><b>字段名中包含的字符：</b>
	<input name="oldString" type="text" size="45"></td>
</tr>
<tr>
	<td align="center" class="tablerow2">
		<input type="button" name="go_button" onclick="javascript:history.go(-1)" value="返回上一页" class="button">
		<input type="submit" name="submit_button" value="开始查找" class="button">
	</td>
</tr>
<tr>
	<td align="center" class="tablerow1">请选择要替换的数据表</td>
</tr>
</table>
</form>
<%
End Sub

Sub TableColumn()
	On Error Resume Next
	If NewAsp.checkStr(Trim(Request.Form("oldString")))="" Then Response.Redirect ("admin_replace.asp")
	Dim Rs,SQL
	Session("ColumnName") = NewAsp.checkStr(Trim(Request.Form("ColumnName")))
%>
<form name="myform" action="?action=replace" method="post">
<table border="0" align="center" cellpadding="3" cellspacing="1" class="tableborder">
<tr>
	<th>数据库批量替换管理——替换</th>
</tr>
<tr>
	<td align="center" class="tablerow1">
	<%
	Set Rs=NewAsp.CreateAXObject("ADODB.Recordset")
	SQL = "SELECT COUNT(" & Session("NC_PRIMARY") & ") FROM " & Session("TableName") & " WHERE " & Session("ColumnName") & " like '%" & NewAsp.checkStr(Trim(Request.Form("oldString"))) & "%'"
	Rs.Open SQL, Ask_Conn, 1, 1
	If Not (Rs.EOF And Rs.bof) Then
		Session("oldString") = NewAsp.checkStr(Trim(Request.Form("oldString")))
		Response.Write ("本次搜索找到了 <b>" & Rs(0) & "</b> 个相关字符串。")
		Response.Write ("<a href=""javascript:history.go(-1)"">返回重新查找</a>")
	Else
		Response.Write ("没有找到相关字符串，<a href=""javascript:history.go(-1)"">返回重新查找</a>")
	End If
	Rs.Close
	Set Rs = Nothing
	%>
	</td>
</tr>
<tr>
	<td align="center" class="tablerow2"><b>将字符：</b>
		<input disabled name="oldString" type="text" size="45" value="<%=Trim(Request.Form("oldString"))%>">
	</td>
</tr>
<tr>
	<td align="center" class="tablerow1"><b>替换成：</b>
	<input name="newString" type="text" size="45" value=""></td>
</tr>
<tr>
	<td align="center" class="tablerow2">
		<input type="button" name="go_button" onclick="javascript:history.go(-1)" value="返回上一页" class="button">
		<input type="submit" name="submit_button" value="开始替换" class="button">
	</td>
</tr>
</table>
</form>
<%
End Sub

Sub ReplaceString()
	Dim Rs,SQL,i
	Dim oldString,newString
	Dim TableName,ColumnName
	Dim RepString,uprs,id

	oldString = NewAsp.checkStr(Trim(Session("oldString")))
	newString = NewAsp.checkStr(Trim(Request.Form("newString")))
	TableName = NewAsp.checkStr(Trim(Session("TableName")))
	ColumnName = NewAsp.checkStr(Trim(Session("ColumnName")))
	id = Trim(Session("NC_PRIMARY"))
	Set Rs=NewAsp.CreateAXObject("ADODB.Recordset")
	Set uprs=NewAsp.CreateAXObject("ADODB.Recordset")
	i = 0
	SQL = "SELECT " & id & "," & Session("ColumnName") & " FROM " & Session("TableName") & " WHERE " & Session("ColumnName") & " like '%" & Trim(Session("oldString")) & "%'"
	Rs.Open SQL, Ask_Conn, 1, 1
	If Not (Rs.EOF And Rs.BOF) Then
		'i = Rs.recordcount
		Do While Not Rs.EOF
			RepString = Replace(Rs(1), "" & oldString & "", "" & newString & "")
			SQL = "SELECT * FROM " & TableName & " WHERE " & id & "=" & Rs(0)
			uprs.Open SQL, Ask_Conn, 1, 3
			uprs(ColumnName) = RepString
			uprs.Update
			uprs.Close
			Rs.movenext
			i = i + 1
		Loop
	End If
	Rs.Close
	Set uprs = Nothing
	Set Rs = Nothing
	Succeed("<li>批量替换操作成功，共更新了 " & i & " 条信息！</li>")
End Sub

%>