首页 > 软件开发 > ASP >

使用asp批量生成所有1-6位数纯数字com国际域名

来源：互联网 2023-03-16 19:06:56 295

批量生成所有1-6位数的纯数字国际com域名。，将所有的生成的域名存入数据库。

工具/原料

asp
sql

方法/步骤

1

编程思路

1.使用editplus创立一个asp。连接好数据库

2.循环生成从0 到 999999的十万个域名

3.内循环生成数字前带有o的域名，这些情况的域名，原理是所有位数不足6位数的在前面加零补齐。

4.将每次生成的域名存入本地数据库。

1相关内容未经许可获取自百度经验

2

连接数据库代码：

%

'使用asp批量生成所有1-6位数纯数字com国际域名

response.expires=-1

sql="SELECT * FROM m_news "

set conn=Server.CreateObject("ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

'conn.Open(Server.Mappath("/baby/inc/datas.asp"))

conn.Open(Server.Mappath("/inc/datas.asp"))

set rs=Server.CreateObject("ADODB.recordset")

rs.Open sql,conn,1,3

Dim d

'查询结果的判断结果接受

response.write(rs.recordcount)

d = 2333346

rs.addnew

rs("m_keyword")= d

rs("m_title")= d

rs.update

response.write("=======ok===")

rs.close

set rs=nothing

%>

使用asp批量生成所有1-6位数纯数字com国际域名

3

循环生成0-99999域名代码：

说明：利用循环语句依次循环

'do while....loop 利用这个语句进行循环

i=0

Do while i 999999

rs.addnew

rs("m_keyword")= i & ".com"

rs("m_title")= i & ".com"

rs("m_author")= i & ".com"

rs("m_type")= 16

rs.update

response.write(i)

response.Write(i&"br>")

i=i 1

Loop

使用asp批量生成所有1-6位数纯数字com国际域名

4

设置内循环，生成，前面带0的情况的域名。

'内循环前面补充0的代码

l = Len(i)

d=i

Do while l 5

rs.addnew

rs("m_keyword")= "0" & d & ".com"

rs("m_title")= "0" & d & ".com"

rs("m_author")= "0" & d & ".com"

rs("m_type")= 16

d = "0" & d

rs.update

response.write(i)

response.Write(i&"br>")

l=l 1

loop

使用asp批量生成所有1-6位数纯数字com国际域名

5

完整的代码如下：

%

'使用asp批量生成所有1-6位数纯数字com国际域名

response.expires=-1

sql="SELECT * FROM m_news "

set conn=Server.CreateObject("ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

'conn.Open(Server.Mappath("/baby/inc/datas.asp"))

conn.Open(Server.Mappath("/inc/datas.asp"))

set rs=Server.CreateObject("ADODB.recordset")

rs.Open sql,conn,1,3

'查询结果的判断结果接受

'response.write(rs.recordcount)

response.Write(i&"br>")

'do while....loop 利用这个语句进行循环

i=0

Do while i 100000

rs.addnew

rs("m_keyword")= i & ".com"

rs("m_title")= i & ".com"

rs("m_author")= i & ".com"

rs("m_type")= 16

rs.update

response.Write(i&".combr>")

'内循环前面补充0的代码

l = Len(i)

d=i

Do while l 6

rs.addnew

rs("m_keyword")= "0" & d & ".com"

rs("m_title")= "0" & d & ".com"

rs("m_author")= "0" & d & ".com"

rs("m_type")= 16

d = "0" & d

rs.update

response.Write(d&".combr>")

l=l 1

loop

i=i 1

Loop

response.write("=======ok===")

response.write "script>alert('生成成功！')/script>"

response.end

rs.close

set rs=nothing

%>

注意事项

注意十万个域名生成需要一定时间，中间不要操作，防止卡死

以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！

标签： asp 域名

上一篇：ASP、PHP实现生成快捷方式并下载到桌面的方法下一篇：怎么在IIS中添加应用池和网站

办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号统计代码