<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY><INPUT type="text" id=text1 name=text1><br>
<INPUT type="text" id=text2 name=text2><br>
<INPUT type="button" value="Button" id=button1 name=button1 onclick='add()'>
</BODY>
</HTML>
<script language="javascript">
function add() {
text2.value = text2.value + text1.value ;
text1.value = "";
}
</script>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY><INPUT type="text" id=text1 name=text1><br>
<INPUT type="text" id=text2 name=text2><br>
<INPUT type="button" value="Button" id=button1 name=button1 onclick='add()'>
</BODY>
</HTML>
<script language="javascript">
function add() {
text2.value = text2.value + text1.value ;
text1.value = "";
}
</script>
表单有名字即可提交得到
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY><INPUT id=text1 name=text1 ><br>
<TEXTAREA id=text2 name=text2 rows=1></TEXTAREA>
<INPUT type="button" value="Button" id=button1 name=button1 onclick='add()'>
</BODY>
</HTML>
<script language="javascript">
function add() {
if (text2.value =="") {
text2.value = text1.value;
} else {
text2.value = text2.value +"\n" + text1.value ;
}
text1.value = "";
text2.rows = text2.rows + 1;
}
</script>
如果用
先建一个表单,
在里面加一个文本框,name为"username"
然后再加一个列表框,name="userlist"
建一个记录集
比如
set conn=?
conn.Open ?
set rs=server.createobject("ADODB.Recordset")
rs.Open "SELECT * From member",conn,1,3
然后
对列表框如下
<select name="userlist" size="10" id="pid">
<%
While (NOT rs.EOF)
%>
<option value="<%=(rs.Fields.Item("id").Value)%>" ><%=(rs.Item("username").Value)%></option>
<%
rs.MoveNext()
Wend
If (rs.CursorType > 0) Then
rs.MoveFirst
Else
rs.Requery
End If
%>
</select>
最后对表单的文本框写一个增加记录操作就行了。
也谢谢红孩儿,不过你那种方法好象太麻烦了……