推荐模板：起名打分取名字主题源码模板（含整站源码）V2.12

演示地址：https://qiming.wengbi.com

CMS版本：最低V 5.21

主题价格：999.00元

发布日期：2023-09-22 21:34:15

下载安装：进入下载

下载次数：2805 次

授权方式：顶级域名授权，无限开二级域名

说明： 1、可以更换域名, 一年不超过两次。

　　　 2、模板包含整站源码，使用者不得建立非法网站。

　　　 3、客服在线解答问题，永久免费更新升级。

　　　 4、系统源码永久开源，模板永久开源，方便自定义修改。

最佳答案

以下是一个简单的ASP取名软件的源代码示例：

```asp

<%

' 获取随机名字函数

Function GetRandomName()

Dim names

names = Array("张三", "李四", "王五", "赵六", "刘七")

Randomize

GetRandomName = names(Int(Rnd * 5))

End Function

' 主程序

Dim numOfNames

numOfNames = 10 ' 想要生成的名字数量

' 输出表格头部

Response.Write("<table border='1'>")

Response.Write("<tr><th>序号</th><th>姓名</th></tr>")

' 生成指定数量的随机名字

For i = 1 to numOfNames

name = GetRandomName()

Response.Write("<tr><td>" & i & "</td><td>" & name & "</td></tr>")

Next

' 输出表格尾部

Response.Write("</table>")

%>

请注意，这只是一个简单的示例，仅仅生成了一个固定的名字列表。在实际使用中，你可以根据需要扩展功能，例如从数据库中获取名字数据，或者添加更多的名字生成规则。

其他答案

下面是一个用ASP编写的简单的取名软件的源代码：

```asp

<%

'获取用户输入的参数

Dim gender, length, num, prefix, suffix

gender = Request.Form("gender")

length = Request.Form("length")

num = Request.Form("num")

prefix = Request.Form("prefix")

suffix = Request.Form("suffix")

'定义保存所有生成的名字的数组

Dim names()

ReDim names(num)

'根据性别和长度生成名字

Dim i

For i = 0 To num - 1

If gender = "male" Then

names(i) = GenerateMaleName(length)

ElseIf gender = "female" Then

names(i) = GenerateFemaleName(length)

End If

Next

'输出生成的名字

Response.Write("<h3>生成的名字如下：</h3>")

For i = 0 To num - 1

Response.Write("<p>" & prefix & names(i) & suffix & "

Next

'生成男性名字的函数

Function GenerateMaleName(length)

Dim consonants, vowels

consonants = Array("b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "p", "q", "r", "s", "t", "v", "w", "x", "y", "z")

vowels = Array("a", "e", "i", "o", "u")

Dim name, i

name = ""

For i = 1 To length

If i Mod 2 = 1 Then '生成辅音

name = name & consonants(Int(Rnd * 21))

Else '生成元音

name = name & vowels(Int(Rnd * 5))

End If

Next

GenerateMaleName = name

End Function

'生成女性名字的函数

Function GenerateFemaleName(length)

Dim consonants, vowels

consonants = Array("b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "p", "q", "r", "s", "t", "v", "w", "x", "y", "z")

vowels = Array("a", "e", "i", "o", "u")

Dim name, i

name = ""

For i = 1 To length

If i Mod 2 = 1 Then '生成元音

name = name & vowels(Int(Rnd * 5))

Else '生成辅音

name = name & consonants(Int(Rnd * 21))

End If

Next

GenerateFemaleName = name

End Function

%>

这段代码使用了ASP的脚本语言，根据用户的输入参数，在生成的名字中按照一定的规则组合辅音和元音来生成男性或女性名字。用户可以选择性别、名字长度和生成的数量，并可以添加前缀和后缀。最后，页面会显示生成的名字列表。