在下这个代码生成的编码完全重复怎么改啊！！高手帮忙啊
我想要的结果是生成的表的编码前4位一样后面要！随机生成的有数字有大小写字母
代码如下：<% set conn=server.createobject("adodb.connection")
DB_ConnStr = "PROVIDER=SQLOLEDB.1;Data Source=(local);Initial Catalog=iqiaqia;Persist Security Info=True;User ID=sa;Connect Timeout=30"
conn.open DB_ConnStr
function sss()
bhid="huhu***********" ' 定义编号
for i = 1 to 100 ' 循环100次
exec="insert into bh (bhid) values ('" & bhid & "')" '向表 bh 的 bhid字段插入数据
conn.execute(exec)
Bhid1=left(bhid,4)+CStr(rnd(9000000)+1000000)'CStr(rnd(9000000)+1000000)是1000000-9999999之间的数
set rs=server.createobject("adodb.recordset")
rs.open "select * from bh",conn,1,1
dim j
for j=1 to rs.recordcount
if rs("bhid")=Bhid1 then
Bhid1=left(bhid,4)+CStr(rnd(9000000)+1000000)
end if
if rs.eof then exit for
rs.movenext
next
rs.close
next
end function
%>
參考答案:发了好多次了阿 ...
帮我买 QQ show 我帮你写~~~~
