⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 datatran.asp

📁 1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复! 自己写吧~~~:) 4 又 是一点缺陷
💻 ASP
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
if request.Form("owner")<>"" and request("user")<>"" then
set conn=server.CreateObject("adodb.connection")
conn.Open connstring
conn.execute("update account set owner='"&request.Form("user")&"' where owner='"&request("owner")&"'")
conn.execute("update contact set owner='"&request.Form("user")&"' where owner='"&request("owner")&"'")
conn.execute("update deal set owner='"&request.Form("user")&"' where owner='"&request("owner")&"'")
conn.execute("update delivery set owner='"&request.Form("user")&"' where owner='"&request("owner")&"'")
conn.execute("update event set username='"&request.Form("user")&"' where username='"&request("owner")&"'")
conn.execute("update expense set owner='"&request.Form("user")&"' where owner='"&request("owner")&"'")
conn.execute("update [order] set owner='"&request.Form("user")&"' where owner='"&request("owner")&"'")
conn.execute("update po set owner='"&request.Form("user")&"' where owner='"&request("owner")&"'")
conn.execute("update quote set owner='"&request.Form("user")&"' where owner='"&request("owner")&"'")
conn.execute("update collection set creator='"&request.Form("user")&"' where creator='"&request("owner")&"'")
conn.execute("update POreceive set creator='"&request.Form("user")&"' where creator='"&request("owner")&"'")
conn.execute("update invoice set creator='"&request.Form("user")&"' where creator='"&request("owner")&"'")
conn.execute("update orderpayment set creator='"&request.Form("user")&"' where creator='"&request("owner")&"'")
conn.execute("update POPayment set creator='"&request.Form("user")&"' where creator='"&request("owner")&"'")
str=("转移成功")
conn.Close 
set conn=nothing
end if
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>数据转移</title>
</head>
<script language=javascript>
	 window.top.frames (1).document.location='../admin/left.asp?type=system';
</script>
<body vlink="#48576C" link="#48576C" alink="#000000" bgcolor="#FFFFFF" topmargin="3">
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
    <tr> 
    <td height="25"><strong><font class=title>数据转移</font></strong></td>
    </tr>
    <tr > 
      <td height="16" colspan="2" background="../images/title.gif">&nbsp;</td>
    </tr>
    <tr>
      <td height=4></td>
    </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DECFAD">
  <tr bgcolor="#FFFFFF"> 
    <td width="20%" height="20"> <div align="left"> <br>
        <form name="form1" method="post" action="">
          &nbsp;&nbsp;&nbsp;&nbsp;从用户: 
          <input name="owner" type="hidden" size="8" value="<%=strowner%>">
          <input name="ownername" type="text" size="12" value="<%=strownername%>" readonly>
          <input type="button" name="bnowner" onClick="JavaScript:opensubwin2('form1','owner')"    value=... class=black>
          &nbsp;到用户: 
          <input name="user" type="hidden" size="8" value="<%=struser%>">
          <input name="username" type="text" size="12" value="<%=strusername%>" readonly>
          <input type="button" name="bnuser" onClick="JavaScript:opensubwin2('form1','user')"    value=...  class=black>
          &nbsp;&nbsp; 
          <input type="submit" name="Submit" value="确定">
        </form>
      </div>
	  <%
if str<>"" then
response.Write("<font color=red>&nbsp;&nbsp;&nbsp;&nbsp;"&str&"</font>")
end if
%>
	  </td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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