actwldc.asp

来自「较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.」· ASP 代码 · 共 97 行

<!--#include file="conn.asp"-->
<%
on error resume next
dctype=request.Form("dctype")
dcnum=cint(request.Form("dcnum"))
if request("cmd")="add" then
dim dclist,dcrst
dcrst=""   
dclist=""
dctitle=request.form("dctitle")
dctitle=replace(replace(dctitle,chr(13),"<br>"),chr(32),"&nbsp;")
for itm=1 to dcnum
   dclist=dclist&request.form("dci"&itm)&",,,"
   dcrst=dcrst&"0,,,"
next
isql="insert into wldc(dctitle,dctype,dcnum,dcitem,dcrst) values ('"&dctitle&"','"&dctype&"',"&cint(dcnum)&",'"&dclist&"','"&dcrst&"')"   
conn.execute(isql)
'response.write dctype&"<br>"&dcnum&"<br>"&dclist&"<br>"&dctitle
if err.number<>0 then
   response.write err.description
   err.clear
else
   response.write "<br><br><br><br><div align=center>调查页面生成成功<br><meta http-equiv=refresh content=2;url=default.asp>将返回</div>"
end if
else
if dctype="单选" then
   dclst="<img src='images/stc.gif' border='0' height='15' width='15' title='单选' alt='单选'>"
else
   dclst="<img src='images/mtc.gif' border='0' height='15' width='15' title='多选' alt='多选'>"
end if
%>
<script>
<!--
function ckvalue()
{
if (dcform.dctitle.value.length<3)
   {
   alert("调查内容不能少于3个字符");
   dcform.dctitle.focus();
   return false;
   } 

var cInput=document.all.tags('input');
for(var i in cInput)
{
 if(cInput[i].type=='text')
   {
    if(cInput[i].value=="") 
      {
       alert("选项不能为空");
       cInput[i].focus();
       return false;
       }
   }
}



return true;
}
//-->
</script>
<form action="actwldc.asp?cmd=add" name="dcform" method="post" onsubmit="return ckvalue()">
<table width="643" border="0" cellpadding="0" cellspacing="1" align="center" bgcolor="#000000">
  <!--DWLayoutTable-->
  <tr align="center" valign="middle" bgcolor="#FFFFFF">
    <td height="18" colspan="2"><strong>添加网络调查</strong></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td width="100" height="98" align="left" valign="top">调查内容
	<input type="hidden" name="dctype" value="<%=dctype%>">
	<input type="hidden" name="dcnum" value="<%=dcnum%>">	
	</td>
    <td width="543" valign="top" nowrap><textarea name="dctitle" rows="6" cols="65"></textarea></td>
  </tr>
<%
for i=1 to dcnum
%>  
  <tr align="center" valign="middle" bgcolor="#FFFFFF">
    <td width="100" height="20" valign="top">调查项目<%=i%></td>
    <td width="543" valign="top" nowrap><%=dclst%><input type="text" name="dci<%=i%>" size="72" maxlength="70"></td>
  </tr>
<%
next
%>  
  <tr align="center" valign="middle" bgcolor="#FFFFFF">
    <td height="37" colspan="2"><input type="submit" name="Submit" value="确定生成">
    <input type="reset" name="Submit2" value="取消重写"></td>
  </tr>
</table>
</form>
<%
end if
%>
<%
set conn=nothing
%>