📄 0.asp
字号:
<%@language=vbscript%>
<%option explicit%>
<%
Sub suiji'产生随机数的子程序
Dim x
Randomize
x=Int(Rnd()*1000+1)
response.Write(x)
End sub
%>
<html>
<head>
<title>所实现数据结构中的排序算法</title>
</head>
<body background="back.gif">
<H1 align="center">排序算法课程设计</H1>
<form method="post" action="0.asp">
<font size="4" color="#0000FF" face="华文新魏">请输入12个待排序的数，以用于程序演示，每个文本框中输入一个数,或点击下面按扭，随机产生数据</font><br><br>
<input type="submit" value="生成随机数" style="cursor:hand">
</form>
<form method="post" action="2.asp">
<input name="data1" type="text" size="5" value="<%suiji%>">
<input type="text" name="data2" size="5" value="<%suiji%>">
<input type="text" name="data3" size="5" value="<%suiji%>">
<input type="text" name="data4" size="5" value="<%suiji%>">
<input type="text" name="data5" size="5" value="<%suiji%>">
<input type="text" name="data6" size="5" value="<%suiji%>">
<input type="text" name="data7" size="5" value="<%suiji%>">
<input type="text" name="data8" size="5" value="<%suiji%>">
<input type="text" name="data9" size="5" value="<%suiji%>">
<input type="text" name="data10" size="5" value="<%suiji%>">
<input type="text" name="data11" size="5" value="<%suiji%>">
<input type="text" name="data12" size="5" value="<%suiji%>"><br><br>
<font size="4" color="#0000FF" face="华文新魏">请选择您要用到的排序算法：</font><br>
<font size="4" color="#0000FF" face="隶书">插入排序：</font><br>
<input type="radio" name="paixu" value="InsertSort">直接插入排序<br>
<input type="radio" name="paixu" value="ShellSort">希尔排序<br>
<font size="4" color="#0000FF" face="隶书">选择排序：</font><br>
<input type="radio" name="paixu" value="SelectSort">直接选择排序<br>
<input type="radio" name="paixu" value="HeapSort">堆排序<br>
<font size="4" color="#0000FF" face="隶书">交换排序：</font><br>
<input type="radio" name="paixu" value="BubbleSort">冒泡排序<br>
<input type="radio" name="paixu" value="QuickSort">快速排序<br><br>
<input type="submit" value="开始排序" style="cursor:hand">
<input type="BUTTON" value="查看源代码" style="cursor:hand" onClick= 'window.location = "view-source:" + window.location.href' name="BUTTON">
</form>
<DIV class=white9pt align=center>版权所有 © 2002-2004
西北农林科技大学信息工程学院<BR>2001级3班 窦小雨 学号:09101063<BR>指导老师：韩宏
</DIV><DIV align=center></DIV></center></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -