日期:2014-05-17 浏览次数:21012 次
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>无标题文档</title> <!--#include file="conn.asp"--> </head> <body> <% set link=server.CreateObject("adodb.recordset") link.open "select * from numkey ",conn,1,1 if link.eof and link.bof then response.Write(" 暂无记录 !") end if while not link.eof p = link("useradmin") m = link("userpassword") d = 1 Set rs=conn.execute("select top 1 id from [user] where useradmin='"&p&"'") if rs.eof then conn.execute("insert into [user](useradmin,userpassword,dailiid) values('"&p&"','"&m&"','"&d&"')") end if link.movenext wend link.close set link=nothing%> </body> </html>