日期:2014-05-17 浏览次数:21176 次
<!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>