var adCmdText="&H0001";
var adInteger=3;
var adParamInput="&H0001";
//上述的三个变量在操作系统目录下(%systemroot%/system32/adovbs.inc),vb中导入即可,如下句:
<%--<!--#include virtual="~/adovbs.inc"--> --%>(该语句已注释)
function IncreaseClicks(id)
{
var conn = new ActiveXObject("ADODB.Connection");
var cmd = new ActiveXObject("ADODB.Command");//必须注册组件scrrun.dll,(msxml3.dll 或许不用)(regsvr32 scrrun.dll )
var connstr="DRIVER={SQL Server};server=127.0.0.1;database=ttldb;uid=ttl;pwd=ttldbpwd;";
conn.Open(connstr);
cmd.ActiveConnection = conn;
cmd.CommandType = adCmdText;//adovbs.inc中的adCmdText值为&H0001
cmd.CommandText= "update Tb_FlashFile set FF_Clicks=FF_Clicks+1 where FF_Id=?";
cmd.Parameters.Append(cmd.CreateParameter("@FF_Id" , adInteger, adParamInput, 4, id));
cmd.Execute();
conn.close();
}
原文件如下:
opus.aspx
<%@ Page Language="C#" AutoEventWireup="true" Inherits="opus" CodeFile="opus.aspx.cs" %>
<%@ Register TagPrefix="cc1" Namespace="LtpPageControl" Assembly="LtpPageControl" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>无标题</title>
<link href="css/style.css" rel="stylesheet" type="text/css" />
<%--<!--#include virtual="~/adovbs.inc"--> --%>
<!-- METADATA type="typelib" file="~/msado20.tlb" -->
<script id="script1" type="text/javascript">
var adCmdText="&H0001";
var adInteger=3;
var adParamInput="&H0001";
//上述的三个变量在操作系统目录下(%systemroot%/system32/adovbs.inc),vb中导入即可,如下句:
<%--<!--#include virtual="~/adovbs.inc"--> --%>(该语句已注释)
function IncreaseClicks(id)
{
var conn = new ActiveXObject("ADODB.Connection");
var cmd = new ActiveXObject("ADODB.Command");//必须注册组件scrrun.dll,(msxml3.dll 或许不用)(regsvr32 scrrun.dll )
var connstr="DRIVER={SQL Server};server=127.0.0.1;database=ttldb;uid=ttl;pwd=ttldbpwd;";
conn.Open(connstr);
cmd.ActiveConnection = conn;
cmd.CommandType = adCmdText;//adovbs.inc中的adCmdText值为&H0001
cmd.CommandText= "update Tb_FlashFile set FF_Clicks=FF_Clicks+1 where FF_Id=?";
cmd.Parameters.Append(cmd.CreateParameter("@FF_Id" , adInteger, adParamInput, 4, id));
cmd.Execute();
conn.close();
}
</script>
</head>
<body>
<form id="form1" runat="server">
<%-- <asp:ScriptManager ID="ScriptManager1" EnablePageMethods="true" runat="server">
<Scripts>
<asp:ScriptReference Path="~/activity/Clicks.js" />
</Scripts>
<Services>
<asp:ServiceReference Path="~/WSClicks.asmx" />
</Services>
</asp:ScriptManager>--%>
<div id="opus" style="width: 672px; height: 402px; background: #e5e5e5; padding: 40px 0 40px 51px;">
<asp:Repeater ID="Repeater1" runat="server">
<ItemTemplate>
<%--DisplaySWF.aspx?id=<%#Eval("FF_Id") %>--%>
<dl>
<dt><a href="/activity/flash/<%#Eval("FF_FileName") %>" οnclick="IncreaseClicks(<%#Eval("FF_Id")%)" target="_blank">
<img alt="" src="/activity/images/<%#Eval("FF_Thumnails")%>">
</a></dt>
<dd>
<a href="/activity/flash/<%#Eval("FF_FileName") %>" οnclick="IncreaseClicks(<%#Eval("FF_Id")%)"
target="_blank">
<%#Eval("FF_Description")%>
</a>
</dd>
</dl>
</ItemTemplate>
</asp:Repeater>
<br />
<cc1:Page04 ID="Page021" runat="server" Page_Index="opus.aspx" Page_Size="9" Page_Width="622"
Height="402px" Page_Background="images/bg_38.jpg" Tagp_Background="images/bg_38.jpg">
</cc1:Page04>
</div>
</form>
</body>
</html>