⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 add.asp

📁 主要功能： 1、自选随机字母段
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
scripttimeout=99999
if request("Submit")<>"" then
	if trim(request("danci"))<>"" then
		conn.execute("insert into danci (danci,cn,com,comcn) values ('"&trim(request("danci"))&"',0,0,0)")
		response.Write("<script language='javascript'>window.location.href='add.asp?msg=保存成功';</script>")
		response.End()
	end if
end if

if request("do")="gen" then
	dim arrLT(9)
	arrLT(0)=trim(request("w1"))
	arrLT(1)=trim(request("w2"))
	arrLT(2)=trim(request("w3"))
	arrLT(3)=trim(request("w4"))
	arrLT(4)=trim(request("w5"))
	arrLT(5)=trim(request("w6"))
	arrLT(6)=trim(request("w7"))
	arrLT(7)=trim(request("w8"))
	arrLT(8)=trim(request("w9"))
	arrLT(9)=trim(request("w10"))
'	arrLT(0)="w1"
'	arrLT(1)="w2"
'	arrLT(2)="w3"
'	arrLT(3)="w4"
'	arrLT(4)="w5"
'	arrLT(5)="w6"
'	arrLT(6)="w7"
'	arrLT(7)="w8"
'	arrLT(8)="w9"
'	arrLT(9)="w10"
	if arrLT(0)<>"" then
		LT1=replace(replace(arrLT(0),",","")," ","")
		for i1=1 to len(LT1)
	if arrLT(1)<>"" then
		LT2=replace(replace(arrLT(1),",","")," ","")
		for i2=1 to len(LT2)
	if arrLT(2)<>"" then
		LT3=replace(replace(arrLT(2),",","")," ","")
		for i3=1 to len(LT3)
	if arrLT(3)<>"" then
		LT4=replace(replace(arrLT(3),",","")," ","")
		for i4=1 to len(LT4)
	if arrLT(4)<>"" then
		LT5=replace(replace(arrLT(4),",","")," ","")
		for i5=1 to len(LT5)
	if arrLT(5)<>"" then
		LT6=replace(replace(arrLT(5),",","")," ","")
		for i6=1 to len(LT6)
	if arrLT(6)<>"" then
		LT7=replace(replace(arrLT(6),",","")," ","")
		for i7=1 to len(LT7)
	if arrLT(7)<>"" then
		LT8=replace(replace(arrLT(7),",","")," ","")
		for i8=1 to len(LT8)
	if arrLT(8)<>"" then
		LT9=replace(replace(arrLT(8),",","")," ","")
		for i9=1 to len(LT9)
	if arrLT(9)<>"" then
		LT10=replace(replace(arrLT(9),",","")," ","")
		for i10=1 to len(LT10)
			'response.Write(mid(LT1,i1,1)&mid(LT2,i2,1)&mid(LT3,i3,1)&mid(LT4,i4,1)&mid(LT5,i5,1)&mid(LT6,i6,1)&mid(LT7,i7,1)&mid(LT8,i8,1)&mid(LT9,i9,1)&mid(LT10,i10,1)&"<br />")
			conn.execute("insert into danci (danci,cn,com,comcn) values ('"&mid(LT1,i1,1)&mid(LT2,i2,1)&mid(LT3,i3,1)&mid(LT4,i4,1)&mid(LT5,i5,1)&mid(LT6,i6,1)&mid(LT7,i7,1)&mid(LT8,i8,1)&mid(LT9,i9,1)&mid(LT10,i10,1)&"',0,0,0)")
		next
	else
			'response.Write(mid(LT1,i1,1)&mid(LT2,i2,1)&mid(LT3,i3,1)&mid(LT4,i4,1)&mid(LT5,i5,1)&mid(LT6,i6,1)&mid(LT7,i7,1)&mid(LT8,i8,1)&mid(LT9,i9,1)&"<br />")
			conn.execute("insert into danci (danci,cn,com,comcn) values ('"&mid(LT1,i1,1)&mid(LT2,i2,1)&mid(LT3,i3,1)&mid(LT4,i4,1)&mid(LT5,i5,1)&mid(LT6,i6,1)&mid(LT7,i7,1)&mid(LT8,i8,1)&mid(LT9,i9,1)&"',0,0,0)")
	end if
		next
	else
			'response.Write(mid(LT1,i1,1)&mid(LT2,i2,1)&mid(LT3,i3,1)&mid(LT4,i4,1)&mid(LT5,i5,1)&mid(LT6,i6,1)&mid(LT7,i7,1)&mid(LT8,i8,1)&"<br />")
			conn.execute("insert into danci (danci,cn,com,comcn) values ('"&mid(LT1,i1,1)&mid(LT2,i2,1)&mid(LT3,i3,1)&mid(LT4,i4,1)&mid(LT5,i5,1)&mid(LT6,i6,1)&mid(LT7,i7,1)&mid(LT8,i8,1)&"',0,0,0)")
	end if
		next
	else
			'response.Write(mid(LT1,i1,1)&mid(LT2,i2,1)&mid(LT3,i3,1)&mid(LT4,i4,1)&mid(LT5,i5,1)&mid(LT6,i6,1)&mid(LT7,i7,1)&"<br />")
			conn.execute("insert into danci (danci,cn,com,comcn) values ('"&mid(LT1,i1,1)&mid(LT2,i2,1)&mid(LT3,i3,1)&mid(LT4,i4,1)&mid(LT5,i5,1)&mid(LT6,i6,1)&mid(LT7,i7,1)&"',0,0,0)")
	end if
		next
	else
			'response.Write(mid(LT1,i1,1)&mid(LT2,i2,1)&mid(LT3,i3,1)&mid(LT4,i4,1)&mid(LT5,i5,1)&mid(LT6,i6,1)&"<br />")
			conn.execute("insert into danci (danci,cn,com,comcn) values ('"&mid(LT1,i1,1)&mid(LT2,i2,1)&mid(LT3,i3,1)&mid(LT4,i4,1)&mid(LT5,i5,1)&mid(LT6,i6,1)&"',0,0,0)")
	end if
		next
	else
			'response.Write(mid(LT1,i1,1)&mid(LT2,i2,1)&mid(LT3,i3,1)&mid(LT4,i4,1)&mid(LT5,i5,1)&"<br />")
			conn.execute("insert into danci (danci,cn,com,comcn) values ('"&mid(LT1,i1,1)&mid(LT2,i2,1)&mid(LT3,i3,1)&mid(LT4,i4,1)&mid(LT5,i5,1)&"',0,0,0)")
	end if
		next
	else
			'response.Write(mid(LT1,i1,1)&mid(LT2,i2,1)&mid(LT3,i3,1)&mid(LT4,i4,1)&"<br />")
			conn.execute("insert into danci (danci,cn,com,comcn) values ('"&mid(LT1,i1,1)&mid(LT2,i2,1)&mid(LT3,i3,1)&mid(LT4,i4,1)&"',0,0,0)")
	end if
		next
	else
			'response.Write(mid(LT1,i1,1)&mid(LT2,i2,1)&mid(LT3,i3,1)&"<br />")
			conn.execute("insert into danci (danci,cn,com,comcn) values ('"&mid(LT1,i1,1)&mid(LT2,i2,1)&mid(LT3,i3,1)&"',0,0,0)")
	end if
		next
	else
			'response.Write(mid(LT1,i1,1)&mid(LT2,i2,1)&"<br />")
			conn.execute("insert into danci (danci,cn,com,comcn) values ('"&mid(LT1,i1,1)&mid(LT2,i2,1)&"',0,0,0)")
	end if
		next
	else
			'response.Write(mid(LT1,i1,1)&"<br />")
			conn.execute("insert into danci (danci,cn,com,comcn) values ('"&mid(LT1,i1,1)&"',0,0,0)")
	end if
		next
		response.Write("<script language='javascript'>window.location.href='add.asp?msg=已经成功生成并保存';</script>")
	end if
end if

%>
<!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>
<style>
.input{
font-size:12px;
}
.td{
font-size:12px;
}
body{
	font-size:12px;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}

</style>
</head>

<body>
<!--
'==================================================
'名称：炒米者之铲
'作者：老彭 Laopeng.Net
'发布：云起工作室
'网址：http://www.commonsite.cn
'日期：2008-5-22
'==================================================
-->
<%
response.Write(request("msg"))
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
<form id="form1" name="form1" method="post" action="add.asp?do=add">
    <td width="260" align="center" valign="middle">添加单个单词，不要写后缀 <br />
      <input name="danci" type="text" id="danci" size="20" /> <input type="submit" name="Submit" value="提交" /></td>
</form>
    <td width="20" align="center" valign="middle" bgcolor="#99CCFF">批<br />
      <br />
      量<br />
      <br />
      生<br />
      <br />
      成<br />
      <br />
      &gt;&gt;</td>
<form id="form2" name="form2" method="post" action="add.asp?do=gen">
    <td align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="10%" height="25" align="center">第1位</td>
        <td width="10%" align="center">第2位</td>
        <td width="10%" align="center">第3位</td>
        <td width="10%" align="center">第4位</td>
        <td width="10%" align="center">第5位</td>
        <td width="10%" align="center">第6位</td>
        <td width="10%" align="center">第7位</td>
        <td width="10%" align="center">第8位</td>
        <td width="10%" align="center">第9位</td>
        <td width="10%" align="center">第10位</td>
      </tr>
      <tr>
        <td height="25" align="center"><label>
          <select name="w1" size="5" multiple="multiple" id="w1">
            <option value="" selected="selected">空</option>
            <option value="0">0</option>
            <option value="1">1</option>
            <option value="2">2</option>
            <option value="3">3</option>
            <option value="4">4</option>
            <option value="5">5</option>
            <option value="6">6</option>
            <option value="7">7</option>
            <option value="8">8</option>
            <option value="9">9</option>
            <option value="a">a</option>
            <option value="b">b</option>
            <option value="c">c</option>
            <option value="d">d</option>
            <option value="e">e</option>
            <option value="f">f</option>
            <option value="g">g</option>
            <option value="h">h</option>
            <option value="i">i</option>
            <option value="j">j</option>
            <option value="k">k</option>
            <option value="l">l</option>
            <option value="m">m</option>
            <option value="n">n</option>
            <option value="o">o</option>
            <option value="p">p</option>
            <option value="q">q</option>
            <option value="r">r</option>
            <option value="s">s</option>
            <option value="t">t</option>
            <option value="u">u</option>
            <option value="v">v</option>
            <option value="w">w</option>
            <option value="x">x</option>
            <option value="y">y</option>
            <option value="z">z</option>
            <option value="-">-</option>
                                                                                          </select>
        </label></td>
        <td align="center"><select name="w2" size="5" multiple="multiple" id="w2">
            <option value="" selected="selected">空</option>
            <option value="0">0</option>
          <option value="1">1</option>
          <option value="2">2</option>
          <option value="3">3</option>
          <option value="4">4</option>
          <option value="5">5</option>
          <option value="6">6</option>
          <option value="7">7</option>
          <option value="8">8</option>
          <option value="9">9</option>
          <option value="a">a</option>
          <option value="b">b</option>
          <option value="c">c</option>
          <option value="d">d</option>
          <option value="e">e</option>
          <option value="f">f</option>
          <option value="g">g</option>
          <option value="h">h</option>
          <option value="i">i</option>
          <option value="j">j</option>
          <option value="k">k</option>
          <option value="l">l</option>
          <option value="m">m</option>
          <option value="n">n</option>
          <option value="o">o</option>
          <option value="p">p</option>
          <option value="q">q</option>
          <option value="r">r</option>
          <option value="s">s</option>
          <option value="t">t</option>
          <option value="u">u</option>
          <option value="v">v</option>
          <option value="w">w</option>
          <option value="x">x</option>
          <option value="y">y</option>
          <option value="z">z</option>
          <option value="-">-</option>
        </select></td>
        <td align="center"><select name="w3" size="5" multiple="multiple" id="w3">
            <option value="" selected="selected">空</option>
            <option value="0">0</option>
          <option value="1">1</option>
          <option value="2">2</option>
          <option value="3">3</option>
          <option value="4">4</option>
          <option value="5">5</option>
          <option value="6">6</option>
          <option value="7">7</option>
          <option value="8">8</option>
          <option value="9">9</option>
          <option value="a">a</option>
          <option value="b">b</option>
          <option value="c">c</option>
          <option value="d">d</option>
          <option value="e">e</option>
          <option value="f">f</option>
          <option value="g">g</option>
          <option value="h">h</option>
          <option value="i">i</option>
          <option value="j">j</option>
          <option value="k">k</option>
          <option value="l">l</option>
          <option value="m">m</option>
          <option value="n">n</option>
          <option value="o">o</option>
          <option value="p">p</option>
          <option value="q">q</option>
          <option value="r">r</option>
          <option value="s">s</option>
          <option value="t">t</option>
          <option value="u">u</option>
          <option value="v">v</option>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -