📄 updateaddfourstep.asp

📁 XXX档案美女图片站适合给图片广告的站长下载使用
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<% Option Explicit %>
<!--#include file="inc/Cls_DB.asp" -->
<!--#include file="Inc/Const.asp" -->
<!--#include file="inc/PublicFun.asp" -->
<%

Dim DBC,UpdateConn,Conn
Set DBC = New DataBaseClass
DBC.ConnStr = "DBQ=" + server.mappath("SunData/Update.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set UpdateConn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + Server.MapPath(DataBaseConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
'判断权限
%>


<%
'判断权限结束
Dim Submit,MainID,TableCorrInfo,i
Submit = Request("Submit")
MainID = Request("MainID")
TableCorrInfo = Request("TableCorrInfo")
if MainID = "" then
	Set UpdateConn = Nothing
	Response.Write("<script>alert('参数传递出错');window.location.href='UpDateManage.asp'</script>")  
	Response.End
end if

Dim SourceDBType,SServer,SourceDB,SUser,SPassWord,ObjectDBType,OServer,ObjectDB,OUser,OPassWord
	
if Submit = "Add" then
	Dim TableSOSql,RSTableSOObj,TableCorrInfoArray,TableCorrArray,TableSOLoopVar,AlreadyExistIDStr
	TableCorrInfoArray = Split(TableCorrInfo,"$$$")
	TableSOSql = "Select * from TableSO where DBSOID='" & MainID & "'"
	Set RSTableSOObj = Server.CreateObject("ADODB.RecordSet")
	RSTableSOObj.Open TableSOSql,UpdateConn,3,3
	do while Not RSTableSOObj.Eof
		AlreadyExistIDStr = AlreadyExistIDStr & "$$$" & RSTableSOObj("ID") & "---" & RSTableSOObj("STable") & "---" & RSTableSOObj("OTable")
		RSTableSOObj.MoveNext
	Loop
	RSTableSOObj.Close
	for TableSOLoopVar = LBound(TableCorrInfoArray) to UBound(TableCorrInfoArray)
		TableCorrArray = Split(TableCorrInfoArray(TableSOLoopVar),"---")
		if TableCorrArray(0) = "" then '添加
			RSTableSOObj.Open "Select * from TableSO where 1=0"
			RSTableSOObj.AddNew
			RSTableSOObj("DBSOID") = MainID
			RSTableSOObj("STable") = TableCorrArray(1)
			RSTableSOObj("OTable") = TableCorrArray(2)
			RSTableSOObj.UpDate
			RSTableSOObj.Close
		else 
			if InStr(AlreadyExistIDStr,TableCorrInfoArray(TableSOLoopVar)) <> 0 then '修改
				RSTableSOObj.Open "Select * from TableSO where ID=" & TableCorrArray(0) & ""
				RSTableSOObj("DBSOID") = MainID
				RSTableSOObj("STable") = TableCorrArray(1)
				RSTableSOObj("OTable") = TableCorrArray(2)
				RSTableSOObj.UpDate
				RSTableSOObj.Close
				AlreadyExistIDStr = Replace(AlreadyExistIDStr,"$$$" & TableCorrInfoArray(TableSOLoopVar),"")
			else '添加
				RSTableSOObj.Open "Select * from TableSO where 1=0"
				RSTableSOObj.AddNew
				RSTableSOObj("DBSOID") = MainID
				RSTableSOObj("STable") = TableCorrArray(1)
				RSTableSOObj("OTable") = TableCorrArray(2)
				RSTableSOObj.UpDate
				RSTableSOObj.Close
			end if
		end if
	Next
	if AlreadyExistIDStr <> "" then '删除
		Dim DeleteSql,TempExistIDArray,TempArray,TempLoopVar,TempExistIDStr
		TempExistIDStr = ""
		if Left(AlreadyExistIDStr,3) = "$$$" then '取掉头部
			AlreadyExistIDStr = Right(AlreadyExistIDStr,Len(AlreadyExistIDStr)-3)
		end if
		TempExistIDArray = Split(AlreadyExistIDStr,"$$$")
		for TempLoopVar = LBound(TempExistIDArray) to UBound(TempExistIDArray)
			TempArray = Split(TempExistIDArray(TempLoopVar),"---")
			if TempExistIDStr = "" then
				TempExistIDStr = TempArray(0)
			else
				TempExistIDStr = TempExistIDStr & "," & TempArray(0)
			end if
		Next
		DeleteSql = "Delete from FieldSO where TableSOID in (" & TempExistIDStr & ")"
		UpdateConn.Execute(DeleteSql) '删除FieldSO表中的垃圾
		DeleteSql = "Delete from TableSO where ID in (" & TempExistIDStr & ")"
		UpdateConn.Execute(DeleteSql) '删除TableSO表中的垃圾
	end if
	if Err.Number <> 0 then
		Response.Write("<script>alert('数据出错');window.location.href='UpdateAddThreeStep.asp?MainID=" & MainID & "';</script>")  
		Response.End
	end if
end if

Dim RSTableCorrObj,TableCorrTextStr,TableCorrValueStr,TableCorrTextArray,TableCorrValueArray
Dim RSFieldCorrObj,FieldCorrStr,TempFieldCorrStr,FieldCorrTextArray,FieldCorrValueArray
TableCorrTextStr = ""
TableCorrValueStr = ""
Set RSTableCorrObj = UpdateConn.Execute("Select * from TableSO where DBSOID='" & MainID & "'")
do while Not RSTableCorrObj.Eof
	if TableCorrTextStr = "" then
		TableCorrTextStr = RSTableCorrObj("STable") & "---" & RSTableCorrObj("OTable")
	else
		TableCorrTextStr = TableCorrTextStr & "$$$" & RSTableCorrObj("STable") & "---" & RSTableCorrObj("OTable")
	end if
	if TableCorrValueStr = "" then
		TableCorrValueStr = RSTableCorrObj("ID")
	else
		TableCorrValueStr = TableCorrValueStr & "$$$" & RSTableCorrObj("ID")
	end if
	TempFieldCorrStr = ""
	Set RSFieldCorrObj = UpdateConn.Execute("Select * from FieldSO where TableSOID=" & RSTableCorrObj("ID") & "")
	do while Not RSFieldCorrObj.Eof
		if TempFieldCorrStr = "" then
			TempFieldCorrStr = RSFieldCorrObj("ID") & "---" & RSFieldCorrObj("SField") & "---" & RSFieldCorrObj("OField")
		else
			TempFieldCorrStr = TempFieldCorrStr & "$$$" & RSFieldCorrObj("ID") & "---" & RSFieldCorrObj("SField") & "---" & RSFieldCorrObj("OField")
		end if
		RSFieldCorrObj.MoveNext
	Loop
	Set RSFieldCorrObj = Nothing
	if FieldCorrStr = "" then
		FieldCorrStr = RSTableCorrObj("ID") & "###" & TempFieldCorrStr
	else
		FieldCorrStr = FieldCorrStr & "***" & RSTableCorrObj("ID") & "###" & TempFieldCorrStr
	end if
	RSTableCorrObj.MoveNext
Loop
Set RSTableCorrObj = Nothing
if (TableCorrTextStr = "") OR (TableCorrValueStr = "") then
	TableCorrTextArray = Array()
	TableCorrValueArray = Array()
else
	TableCorrTextArray = Split(TableCorrTextStr,"$$$")
	TableCorrValueArray = Split(TableCorrValueStr,"$$$")
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加数据库转换规则</title>
</head>
<link href="inc/Collect.css" rel="stylesheet">
<body topmargin="0" leftmargin="0">
<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#cccccc">
  <form name="UpdateForm" method="get" action="UpdateAddFiveStep.asp">
    <tr bgcolor="#E4E4E4"> 
      <td height="30" background="images/Collect_bg.gif"><font color="#FF0000"><strong>数据转移规则---第五步---数据库表字段的对应</strong></font></td>
    </tr>
    <tr>
      <td bgcolor="#F3F3F3"><div align="center">数据库表对应关系</div></td>
    </tr>
    <tr> 
      <td bgcolor="#F3F3F3"><select onChange="GetTableFieldStr(this);" name="select" size="4" multiple style="width:100%;">
          <%
		  for i = LBound(TableCorrTextArray) to UBound(TableCorrTextArray)
		  %>
          <option value="<% = TableCorrValueArray(i) %>">
          <% = TableCorrTextArray(i) %>
          </option>
          <%
		  Next
		  %>
        </select></td>
    </tr>
    <tr> 
      <td bgcolor="#F3F3F3"><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#cccccc">
          <tr bgcolor="#FFFFFF"> 
            <td> <div align="center">源数据库表字段</div></td>
            <td> <div align="center">目标数据库表字段</div></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="30"><div align="center">自定义数据
				<select name="UserDataType" onChange="SetUserData(this);">
                  <option selected>选择数据类型</option>
                  <option value="varChar">字符</option>
                  <option value="Number">数字</option>
                  <option value="GetRandomID18">18位随机数</option>
                </select>
                <input name="UserData" type="text" size="20">
              </div></td>
            <td rowspan="2" valign="bottom"> 
              <div align="left"> 
                <select name="ObjectTableFieldList" style="width:100%;" size="8">
                </select>
              </div></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="50%" valign="bottom"> 
              <div align="left"> 
                <select style="width:100%;" name="SourceTableFieldList" size="6">
                </select>
              </div></td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td bgcolor="#F3F3F3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td><div align="center"> 
                <input type="button" name="BtnAdd" onClick="AddTableFieldCorr();" value=" 添 加 ">
              </div></td>
            <td><div align="center"> 
                <input type="button" onClick="DelTableFieldCorr();" name="BtnDel" value=" 删 除 ">
              </div></td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td bgcolor="#F3F3F3"><div align="center"> 
          <select name="TableFieldCorrList" size="10" multiple style="width:100%;">
          </select>
        </div></td>
    </tr>
    <tr> 
      <td bgcolor="#F3F3F3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td><div align="center"> 
                <input name="BtnUp" onClick="window.location.href='UpDateAddThreeStep.asp?MainID=<% = MainID %>';" type="button" id="Submitttt" value="上 一 步">
                <input type="hidden" name="MainID" value="<% = MainID %>">
                <input type="hidden" name="Submit" value="Add">
                <input type="hidden" name="TableFieldCorrInfo">
              </div></td>
            <td><div align="center"> 
                <input name="BtnNext" onClick="SubmitData();" type="button" id="Submit2dfsd" value="下 一 步">
              </div></td>
          </tr>
        </table></td>
    </tr>
  </form>
</table>
<iframe id="ListTableFieldFrame" src="ListTableAllField.asp" width="0" height="0"></iframe>
</body>
</html>
12 下一页
⌨️ 快捷键说明

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