wldc.asp

较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.

<!--#include file="conn.asp"-->
<a href="wldc.asp?dtype=add">添加调查信息</a><br><a href="wldc.asp?dtype=del">管理调查信息</a><br><A href="wldc.asp">查看调查结果</A>
<%
on error resume next
if request("dtype")="add" then
   addwldc  '添加调查
elseif request("dtype")="del" then   
   delwldc   '删除调查
else  
   showResult  '查看结果
end if 

'===Star 添加调查================================================================
function addwldc()
%>
<br><br><br><br>
<form action="actwldc.asp" name="addpro" method="post">
<table width="497" border="0" cellpadding="0" cellspacing="1" bgcolor="#6666CC" align="center">
  <!--DWLayoutTable-->
  <tr bgcolor="#FFFFFF">
    <td width="497" height="15" align="center" valign="middle"><strong>添加网络调查</strong></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="16" align="left" valign="middle">调查形式:
      <input name="dctype" type="radio" value="单选" checked>
    单选
    <input type="radio" name="dctype" value="多选">
    多选</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22" align="left" valign="middle">选项数量:    
    <select name="dcnum">
      <option value="1">1项</option>
      <option value="2">2项</option>
      <option value="3" selected>3项</option>
      <option value="4">4项</option>
      <option value="5">5项</option>
      <option value="6">6项</option>
    </select>
    <font color="#999999">(最多可有6项)</font></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="30" align="center" valign="middle"><input type="submit" name="Submit" value="生成调查">
    <input type="reset" name="Submit2" value="重新选择"></td>
  </tr>
</table>
</form>
<%
end function
'===End 添加调查================================================================
'===Star 删除调查================================================================
function delwldc()
reurl="wldc.asp?dtype=del&"
maxDel=8
dsql="select * from wldc order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open dsql,conn,1,1
rs.pagesize=maxDel
pageno=request("pageno")
if isnumeric(pageno) then
   if pageno=empty or pageno<1 then
      pageno=1
   end if
else
   pageno=1   
end if
rs.absolutepage=pageno
%>
<script language="javascript">
<!--
function delok()
{
if (confirm("你确定要删除投票记录吗?")==false)
return false
}
//-->
</script>
<form name="form1" method="post" action="mwldc.asp?cmd=del">
                            <table width="722" border="1" align="left" cellpadding="1" cellspacing="1">
                              <tr bgcolor="#FFFFFF"> 
                                <td colspan="4" width="714" nowarp><font size="2">第<%= pageno %>页|共<%= rs.pagecount %>页|共有<%= rs.recordcount %>条调查信息</font>
								</td>
                              </tr>
                              <tr bgcolor="#CCCCCC"> 
                                <td width="128"><div align="center"><font size="2"><strong>调查编号</strong></font></div></td>
                                <td width="264"><div align="center"><font size="2"><strong>是否启用</strong></font></div></td>
                                <td width="210"><div align="center"><font size="2"><strong>发布时间</strong></font></div></td>
                                <td width="94"><div align="center"><font size="2"><strong>删除否</strong></font></div></td>
                              </tr>
                              <% i=1 
							  if not rs.eof then 
							  do while not rs.eof and i<=maxDel %>
                              <tr> 
                                <td width="264" bgcolor="#FFFFFF" align=center>
                                <%
				response.write "<a title='"&trim(rs("dctitle"))&"'>"&rs("id")&"</a>"
                                %></td>
                                <td width="128" bgcolor="#FFFFFF" align="center">
                                <%
                                 if rs("dcbegin")=true then
                                    response.write "正启用&nbsp;&nbsp;<a href='mwldc.asp?cmd=stop&sid="&rs("id")&"'>停用</a>"
                                 else
                                    response.write "正停用&nbsp;&nbsp;<a href='mwldc.asp?cmd=star&sid="&rs("id")&"'>启用</a>"
                                 end if
                                %>
                                </td>
                                <td width="210" bgcolor="#FFFFFF"> <div align="center"><font size="2">
                                <%
                                 response.write rs("dcdate")
                                 %></font></div></td>
                                <td width="94" bgcolor="#FFFFFF"> <div align="center"> 
                                    <font size="2"> 
                                    <input type="checkbox" name="del" value="<%=rs("id")%>">
                                    </font>
                                  </div></td>
                              </tr>
                              <% i=i+1 
							  rs.movenext
						loop
						%>
                              <tr bgcolor="#FFFFFF">
                                <td colspan="4" width="714"><div align="right">
                                <font size="2">
								<% if i=maxDel+1 and (not rs.eof) then %><font color="#000000" size="2">
								<a href="<%=reurl%>pageno=<%=pageno+1%>">下一页</a>
								</font>
								<% else %>
								<font color="#999999" size="2">下一页</font>  
								<%end if %>|<% if pageno>1 then %>  
								<font color="#000000"><a href="<%=reurl%>pageno=<%=pageno-1%>">上一页</a></font><% else %><font color="#999999">上一页</font><% end if %></font></div></td>  
                              </tr>  
							  <% else %>  
                              <tr bgcolor="#FFFFFF">   
                                <td colspan="4" width="714"><div align="center"><font size="2">没有相应信息!</font></div></td> 
                              </tr> 
                              <% end if %> 
                              <tr bgcolor="#FFFFFF">  
                                <td colspan="4" width="714"> <div align="center">  
                                    <p> <font size="2"> <br>
                                      <input type="submit" name="Submit" value="删 除" class="buttonface" onclick="return delok()">
                                    &nbsp;</font> </p> 
                                  </div></td> 
                              </tr> 
                            </table></td> 
                        </tr> 
                      </table> 
                    </form>


<%
rs.close()
set rs=nothing
end function
'===End 删除调查================================================================
'===Star 查看结果================================================================
function showResult()
%>
<br><br>
<table width="497" border="0" cellpadding="0" cellspacing="1" bgcolor="#6666CC" align="center">
<%
set lks=conn.execute("select * from wldc order by id desc")
if not lks.eof then
   i=1
   do while not lks.eof and i<10
      response.write "<tr bgcolor='#FFFFFF'><td>"&lks("dctitle")&"</td><td>"
   showpro lks("id")
      response.write "</td></tr>"
   i=i+1
   lks.movenext
   loop
else
   response.write "<tr bgcolor='#FFFFFF'><td>没有记录</td></tr>"
end if
set lks=nothing
%>
</table>
<%
end function
'===End 查看结果================================================================



function showpro(mnum)  '投票结果
on error resume next
set ss=conn.execute("select * from wldc where id="&cint(mnum))
rst1=split(trim(ss("dcrst")&"0"),",,,")
rsm1=split(trim(ss("dcitem")),",,,")
aStr=Lbound(rsm1)
aEnd=Ubound(rsm1)-1
rsnum=0
for j=aStr to aEnd
    rsnum=rsnum + cint(rst1(j))
next	
kmgs=""
kmg="<img border='0' src='../images/dcline.gif'>"
for i=aStr to aEnd
    kmgs=""
    lstmg=cint(rst1(i))/rsnum*100
	for k=1 to lstmg
	    kmgs=kmgs&kmg
	next
    response.write "<a title='"&rsm1(i)&"'>"&i+1&"．</a>&nbsp;&nbsp;<a title='票数"&rst1(i)&"/"&rsnum&"'>"&kmgs&"</a><br>"
next
set ss=nothing
if err.number<>0 then
   err.clear
end if
end function


%>


<%
set conn=nothing
%>