<form name="reg_form">
主修专业:<input type="text" name="p_spec1_v" size=40 readonly  class="inputtext" >
<input type="hidden" name="p_spec1">
<input name="button" type="button" onClick="dosel()" value="选择"></form>
<script>
function dosel(){
var ret = showModalDialog('select_spec.asp?quyu=p_spec1&fname=reg_form',window,'dialogHeight:424px;dialogWidth:268px;edge:raised;center:yes;help:no;resizable:no;status:no;scroll:no;unadorned:no;');
}<%if request.Form("flag")="yes" then
dim spec1,fname,quyu
temp1=""
temp2=""
if trim(request.Form("spec1"))<>"" then
spec1=split(trim(request.Form("spec1")),",")
temp1=""
temp2=""
for i=0 to ubound(spec1)
 if i mod 2=0 then
  temp1=temp1&","&spec1(i)
 else
  temp2=temp2&","&spec1(i)
 end if
next
temp1=right(temp1,len(temp1)-1)
temp2=right(temp2,len(temp2)-1) 
end if
fname=trim(request.Form("fname"))
quyu=trim(request.Form("quyu"))
%>     
<script>
var win = dialogArguments;
win.document.<%=fname%>.<%=quyu1%>.value="<%=temp1%>";
win.document.<%=fname%>.<%=quyu2%>.value="<%=temp2%>";
</script>
<script language="javascript">
//window.alert("选择成功");       
window.close();       
</script><%end if%><!--#include file="function.inc"-->
<html>
<head>
<title>选择专业</title>
<link href="css.css" rel="stylesheet" type="text/css"> 
</head>
<body> 
<%quyu=CHECKSTR(trim(request("quyu")))
fname=CHECKSTR(trim(request("fname")))%>
<form method="post" name="spec1_form"> 
<input type="hidden" name="flag" value="yes">
<input type="hidden" name="quyu" value="<%=quyu%>">
<input type="hidden" name="fname" value="<%=fname%>">
...
<input type="submit" value="选择完成">
</form> </body> 
</html>