把以下代码存成*.aspx的文件(排查重复ID和人物)
<%@ import namespace="system.data"%>
<%@ import namespace="system.data.SqlClient"%>
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<script language="vb" runat="server">
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub id_on_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles id_on.Click
Dim con As SqlConnection = New SqlConnection("server=" & sql_ip1.text & ";uid=" & sql_name1.text & ";pwd=" & sql_pass1.text & ";database=rxjhaccount")
Dim con2 As SqlConnection = New SqlConnection("server=" & sql_ip2.text & ";uid=" & sql_name2.text & ";pwd=" & sql_pass2.text & ";database=rxjhaccount")
Dim cmd As SqlCommand
Dim dtr As SqlDataReader
Dim cmd2 As SqlCommand
Dim id_cm,smg
msg="重名的帐号有："
cmd = new SqlCommand("select fld_id from tbl_account",con)
con.open()
dtr=cmd.ExecuteReader()
while dtr.read()
msg.text += dtr("fld_name")
id_cm = dtr("fld_name") & user_name.text
cmd2 = new SqlCommand("update tbl_account set fld_id=" id_cm " where fld_id=" & dtr("fld_id") & "",con2)
con2.open()
cmd2.ExecuteNonQuery()
con2.close()
end while
con.close()
msg.text=msg & msg.text
end sub
Private Sub name_on_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles name_on.Click
Dim con As SqlConnection = New SqlConnection("server=" & sql_ip1.text & ";uid=" & sql_name1.text & ";pwd=" & sql_pass1.text & ";database=rxjhgame")
Dim con2 As SqlConnection = New SqlConnection("server=" & sql_ip2.text & ";uid=" & sql_name2.text & ";pwd=" & sql_pass2.text & ";database=rxjhgame")
Dim cmd As SqlCommand
Dim dtr As SqlDataReader
Dim cmd2 As SqlCommand
Dim name_cm,msg
msg="重名的人物有："
cmd = new SqlCommand("select fld_name from tbl_char",con)
con.open()
dtr=cmd.ExecuteReader()
while dtr.read()
name_cm = dtr("fld_name") & user_name.text
cmd2 = new SqlCommand("update tbl_char set fld_name=" name_cm " where fld_name=" & dtr("fld_anme") & "",con2)
con2.open()
cmd2.ExecuteNonQuery()
con2.close()
end while
con.close()
msg.text=msg & msg.text
end sub
</script>
<body>
<table border="1">www.002uc.com
<tr>
<td width="80">主区IP:</td>
<td width="168"><asp:TextBox ID=sql_ip1 runat="server" Width="100" ></asp:TextBox> </td>
<td width="80">分区IP:</td>
<td width="168"><asp:TextBox ID=sql_ip2 runat="server" Width="100" ></asp:TextBox></td>
</tr>
<tr>
<td>帐 号:</td>
<td><asp:TextBox ID=sql_name1 runat="server" Width="100" ></asp:TextBox></td>
<td>帐 号:</td>
<td><asp:TextBox ID=sql_name2 runat="server" Width="100" ></asp:TextBox></td>
</tr>
<tr>
<td>密 码:</td>
<td><asp:TextBox ID=sql_pass1 runat="server" Width="100" ></asp:TextBox></td>
<td>密 码:</td>
<td><asp:TextBox ID=sql_pass2 runat="server" Width="100" ></asp:TextBox></td>
</tr>
<tr>
<td>帐号重名加:</td>
<td><asp:TextBox ID=user_id runat="server" Width="100" ></asp:TextBox></td>
<td>人物重名加:</td>
<td><asp:TextBox ID=user_name runat="server" Width="100" ></asp:TextBox></td>
</tr>
<tr>
<td colspan="2"> <asp:Button runat=server id="name_on" Width="200" Text="排查人物"/></td>
<td colspan="2"><asp:Button ID="id_on" runat=server Width="200" Text="排查帐号" /></td>
</tr>
<tr>
<td colspan="4"><asp:Label ID="msg" runat="server"></asp:Label></td>
</tr>
</table>
</body>
</html>
