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

📄 research.asp

📁 这个也是一个功能强大的企业整站的ASP源代码
💻 ASP
字号:
<!--#include file="../include/connstr.asp"-->
<%
if request("cur_action")="addsave" then
  if not Request.ServerVariables("REMOTE_ADDR")=request.cookies("research") then
    response.cookies("research")=Request.ServerVariables("REMOTE_ADDR")
  else
    response.write "<script>alert('您已经参考过调查,这次调查不累计,谢谢您的支持!');location.replace('Research.asp');</script>"
  end if
 
  count_temp=request("count_temp")
  for i=1 to count_temp
    id_temp=request("ysda"&i)
    if id_temp<>"" then
      sql1="update tResearchAns set Result=Result+1 where ID="&id_temp
      conn.execute(sql1)
    end if
  next
   
  response.write "<script> alert('谢谢您的支持!您的信息已经成功发送!!');location.replace('Research.asp');</script>"   
  response.End()
end if

'-----------------------------------------------
 set rs_ResearchQue=conn.execute("select * from tResearchQue order by Addtime desc")%>
<html>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>浙江永嘉诚一阀门有限公司</title>
<style type="text/css">
<!--
body {
	margin-top: 0px;
	margin-left: 0px;
	margin-bottom: 0px;
}
-->
</style>
<link href="../include/mycss.css" rel="stylesheet" type="text/css">
<!--  浮动层的开始 -->
<SCRIPT language=javascript>
	var delta=0.15
	var collection;
	function floaters() {	//添加层的子程序
		this.items	= [];
		this.addItem	= function(id,x,y,content)
				  {
					document.write('<DIV id='+id+' style="Z-INDEX: 10; POSITION: absolute;  width:100px; height:240px;left:'+(typeof(x)=='string'?eval(x):x)+';top:'+(typeof(y)=='string'?eval(y):y)+'">'+content+'</DIV>');
					
					var newItem				= {};
					newItem.object			= document.getElementById(id);
					newItem.x				= x;
					newItem.y				= y;

					this.items[this.items.length]		= newItem;
				  }
		this.play	= function()
				  {
					collection				= this.items
					setInterval('play()',10);
				  }
		}
		function play()	//调整层的位置
		{

			for(var i=0;i<collection.length;i++)
			{
				var followObj		= collection[i].object;
				var followObj_x		= (typeof(collection[i].x)=='string'?eval(collection[i].x):collection[i].x);
				var followObj_y		= (typeof(collection[i].y)=='string'?eval(collection[i].y):collection[i].y);

				if(followObj.offsetLeft!=(document.body.scrollLeft+followObj_x)) {
					var dx=(document.body.scrollLeft+followObj_x-followObj.offsetLeft)*delta;
					dx=(dx>0?1:-1)*Math.ceil(Math.abs(dx));
					followObj.style.left=followObj.offsetLeft+dx;
					}

				if(followObj.offsetTop!=(document.body.scrollTop+followObj_y)) {
					var dy=(document.body.scrollTop+followObj_y-followObj.offsetTop)*delta;
					dy=(dy>0?1:-1)*Math.ceil(Math.abs(dy));
					followObj.style.top=followObj.offsetTop+dy;
					}
				followObj.style.display	= '';
			}
		}	
		
	var theFloaters		= new floaters();
	theFloaters.addItem('followDiv2',900,100,'<img src=../images/right.jpg  usemap="#Map1111111111111" border=0>');	//层名,位置X,位置Y,内容
	theFloaters.play();
</SCRIPT>
<!--  浮动层的结束 -->
</head>

<body>
<!--#include file="../include/top.asp"-->
<table width="919" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="278" height="502" valign="top" bgcolor="63a639">      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="278" height="502">
            <param name="movie" value="images/left.swf">
            <param name=quality value=high>
            <embed src="images/left.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="278" height="502"></embed>
          </object></td>
        </tr>
      </table>
	<!--#include file="../include/left.asp"-->
	</td>
    <td width="616" valign="top"><table width="99%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="96%" height="721" valign="top"><table width="616"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="136" valign="middle" background="images/Research.jpg"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td colspan="3" align="right"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="308" height="80">
                  <param name="movie" value="../images/shuidi.swf">
                  <param name="quality" value="high">
                  <param name="wmode" value="transparent">
                  <embed src="../images/shuidi.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="308" height="80" wmode="transparent"></embed>
                </object></td>
              </tr>
              <tr>
                <td width="6%">&nbsp; </td>
                <td width="57%" class="biaoti">HOME> 客户服务>网上调查</td>
                <td width="37%">&nbsp;</td>
              </tr>
              <tr>
                <td colspan="3">&nbsp;</td>
              </tr>
            </table></td>
            </tr>
          <tr>
            <td height="576" valign="top"><table width="78%"  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td colspan="3" class="zhengwen"><img src="../images/tou.jpg" width="563" height="27"></td>
              </tr>
              <tr>
                <td width="16" rowspan="2" background="../images/zuo.jpg" class="zhengwen">&nbsp;</td>
                <td width="410" rowspan="2" valign="top" bgcolor="#FFF3F7" class="zhengwen"><p><img src="../images/bg.jpg" width="406" height="10"></p>
                    <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td bgcolor="#FFF3F7"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
                  <form name="form_info" method="post" action="">
                    <tr>
                      <td align="center">
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td height=10 class="fontdz"><font color="ff6500">为了使我们更好的为您提供服务,请停留脚步几分钟,完成以下调查,谢谢您的支持!</font></td>
                        </tr>
                        </table>
                        <table width="100%" height="77" border="0" cellpadding="0" cellspacing="1">
                          <%if rs_ResearchQue.eof and rs_ResearchQue.bof then %>
                          <tr align="center" bgcolor="#FFF3F7">
                            <td height="19" colspan="2" class="fontls">暂时没有可调查数据!</td>
                          </tr>
                          <% else %>
                          <tr align="center" bgcolor="#EFF3E7">
                            <td width="252" height="25" bgcolor="#FFF3F7" class="fontleft"><b>调查问题</b></td>
                            <td width="323" bgcolor="#FFF3F7" class="fontls"><b>预设答案</b></td>
                          </tr>
                          <%do while not rs_ResearchQue.eof 
				  i=i+1
				  dx_temp=rs_ResearchQue("Choice")
				  set rs_ResearchAns=conn.execute("select * from tResearchAns where QuestionID="&rs_ResearchQue("ID"))
				%>
                          <tr bgcolor="#EFF3E7">
                            <td width="252" bgcolor="#FFF3F7" class="fontls">&nbsp;<%=rs_ResearchQue("Title")%></td>
                            <td width="323" bgcolor="#FFF3F7">
                              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                <% do while not rs_ResearchAns.eof %>
                                <tr>
                                  <td align="left" class="fontls">
                                    <% if not dx_temp then 
						       response.write "&nbsp;<input type='radio' name='ysda"& i &"' value="& rs_ResearchAns("ID") &">"&rs_ResearchAns("Title") 
							 else  
							   response.write "&nbsp;<input type='checkbox' name='ysda"& i &"' value="& rs_ResearchAns("ID") &">"&rs_ResearchAns("Title")
							   i=i+1
							 end if
					      %></td>
                                </tr>
                                <% 
					    rs_ResearchAns.movenext
						loop
					  %>
                            </table></td>
                          </tr>
                          <% if  dx_temp then i=i-1
				   rs_ResearchQue.movenext
				   rs_ResearchAns.close
				   set rs_ResearchAns=nothing
				   loop
			  end if %>
                        </table>
                        <br>
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td align="center">
                              <table border="0" cellspacing="0" cellpadding="0" width="100%">
                                <tr>
                                  <td height="30" align="center"><input name="cur_action" type="hidden" id="cur_action" value="addsave">
                                      <input type="hidden" name="count_temp" value=<%=i%>>
                                      <input name="Submit32" type="submit" class="box" value=" 确定提交 ">
                                      <input name="Submit22" type="reset" class="box" value=" 重新填写 "></td>
                                </tr>
                            </table></td>
                          </tr>
                      </table></td>
                    </tr>
                  </form>
              </table></td>
                      </tr>
                    </table>                    
                    </td>
                <td width="138" align="left" valign="top" background="../Images/you.jpg" class="zhengwen"><img src="../images/you.jpg" width="138" height="78"></td>
              </tr>
              <tr>
                <td valign="bottom" background="../Images/you.jpg" class="zhengwen"><img src="../images/you1.jpg" width="138" height="201"></td>
              </tr>
              <tr>
                <td colspan="3" class="zhengwen"><img src="../images/di.jpg" width="563" height="29"></td>
              </tr>
            </table></td>
          </tr>
        </table></td>
        </tr>
    </table></td>
    <td width="25" valign="bottom" background="../images/about_6.jpg"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="262" background="../images/about_6.jpg"><IMG SRC="../images/about_6.jpg" WIDTH=24 HEIGHT=52 ALT=""></td>
      </tr>
      <tr>
        <td height="459" valign="bottom"><IMG SRC="../images/about_8.jpg" WIDTH=24 HEIGHT=337 ALT=""></td>
      </tr>
    </table></td>
  </tr>
</table>
<!--#include file="../include/bottom.asp"-->
</body>
</html>
  <map name="Map1111111111111" id="Map1111111111111">
    <area shape="rect" coords="18,62,71,116" href="../News/News.asp">
    <area shape="rect" coords="18,125,72,184" href="../aboutus/Cultrue.asp">
    <area shape="rect" coords="20,203,73,258" href="../product/Feedback.asp">
    <area shape="rect" coords="18,272,77,327" href="../Distribution/Distribution.asp">
    <area shape="rect" coords="14,334,81,359" href="../english/main.asp" target="_blank">
</map>

⌨️ 快捷键说明

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