网页生成后总提示"确实允许网页访问剪贴板",这是咋回事哦~~请教各位大虾!
<%@LANGUAGE="VBSCRIPT"%><!--#include file="Connections/conn.asp" --><%
Dim rspro
Dim rspro_numRows
Set rspro = Server.CreateObject("ADODB.Recordset")
rspro.ActiveConnection = MM_conn_STRING
rspro.Source = "SELECT * FROM pro ORDER BY addtime DESC"
rspro.CursorType = 0
rspro.CursorLocation = 2
rspro.LockType = 1
rspro.Open()
rspro_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 15
Repeat1__index = 0
rspro_numRows = rspro_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<title>案例介绍-厦门致高点品牌策划联盟机构-厦门致高点信息科技有限公司</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url(images/aboutbg.jpg);
}
-->
</style></head>
<body>
<!--#include file="top1.asp"=-->
<div style="width:1024px;margin-left:auto;margin-right:auto">
<table width="845" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#808080">
<tr>
<td width="112" height="365" align="right" valign="top" bgcolor="666666" ><!--#include file="left3.asp"=--></td>
<td width="759" valign="top">
<div style="width:100%;height:75px;background-color:#A7A5A5;text-align:right;padding-top:6px;">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="11%"> </td>
<td width="89%"><td align="center" valign="top">
<img id="bpic" src="<%=(rspro.Fields.Item("pic").Value)%>" width="609" height="400" border="0" GALLERYIMG="no" />
</td></tr>
</table>
</div>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div style="width:100%;height:75px;background-color:#A7A5A5;text-align:right;padding-top:350px;">
<table width="100%" height="75" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="85%" align="left" nowrap="nowrap" valign="top">
<div style="width:502px;text-align:left;margin-left:5px;overflow:hidden;" id="diver">
<%
While ((Repeat1__numRows <> 0) AND (NOT rspro.EOF))
%>
<img src="<%=(rspro.Fields.Item("pic").Value)%>" height="55" border="0" style="cursor:pointer;border:1px solid #ffffff;" onmouseover="javascript:this.style.borderColor='#cccccc';changeimg('<%=rspro("pic")%>');" onmouseout="javascript:this.style.borderColor='#ffffff';" galleryimg="no" />
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rspro.MoveNext()
Wend
%>
</div>
</td>
<td align="center" valign="middle"><script language="javascript">
var diver;
function scrolldiv(area){
diver=setInterval("divscroll('"+area+"')",50);
}
function divscroll(area){
if(area=="r"){
document.getElementById("diver").scrollLeft=document.getElementById("diver").scrollLeft+25;
}else{
document.getElementById("diver").scrollLeft=document.getElementById("diver").scrollLeft-25;
}
}
function stopscroll(){
clearInterval(diver);
}
function changeimg(url){
document.getElementById("bpic").src=url;
}
</script>
<img src="images/upon.gif" border="0" align="absmiddle" style="cursor:pointer;" onmousedown="javascript:scrolldiv('l');" onmouseup="javascript:stopscroll();" onmouseout="stopscroll();" GALLERYIMG="no" />
<img src="images/nexton.gif" border="0" align="absmiddle" style="cursor:pointer;" onmousedown="javascript:scrolldiv('r');" onmouseup="javascript:stopscroll();" onmouseout="stopscroll();" GALLERYIMG="no" /> </td>
</tr>
</table>
</div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table> </td>
</tr>
</table></td>
</tr>
<tr>
<td><div align="right" class="text8">
</div></td>
</tr>
</table>
</div>
<!--#include file="footx.asp"=-->
</body>
</html>
<%
rspro.Close()
Set rspro = Nothing
