高考问答什么英雄好打巨魔:怎么设置每次点击标题就浏览人数加1？
来源：百度文库 编辑：高考问答 时间：2024/05/05 17:05:25
我使用Dreamweaver制作网页，要制作热门文章栏目，请教了同学，他说设置每次点击标题就浏览人数加1。他给的程序如下：conn execute("update count set news_browsenum=news_browsenum+1") news_browsenum是字段名。可是用不了。可能我是用数据源连接数据库的，而且Dreamweaver里面有它自己的一套第一方法。不知道怎么修改？
下面是我的Dreamweaver代码：麻烦大家看看语句怎么写，插入到哪里好？
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/mynews.asp" -->
<%
Dim newsll__MMColParam
newsll__MMColParam = "1"
If (Request.QueryString("news_ID") <> "") Then
newsll__MMColParam = Request.QueryString("news_ID")
End If
%>
<%
Dim newsll
Dim newsll_numRows
Set newsll = Server.CreateObject("ADODB.Recordset")
newsll.ActiveConnection = MM_mynews_STRING
newsll.Source = "SELECT * FROM newstest WHERE news_ID = " + Replace(newsll__MMColParam, "'", "''") + ""
newsll.CursorType = 0
newsll.CursorLocation = 2
newsll.LockType = 1
newsll.Open()
newsll_numRows = 0
%>
是不是我没有设置Conn?
附上Dreamweaver自动生成的连接文件。大家帮忙看看，感激不尽。
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_mynews_STRING
MM_mynews_STRING = "dsn=ASP;"
%>
conn execute("update count set news_browsenum=news_browsenum+1")
这里的上面 需要打开 数据库
conn 代表着一个数据库连接.
ConnStr = "Provider=SQLOLEDB;Data Source="&dbip&";DATABASE="&DBName&";UID="&dbuser&";pwd="&dbpsd
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
直接把update sql 语句加到SELECT之前，作为newsll.Source属性一起传递过去不行吗？
If (Request.QueryString("news_ID") <> "") Then
newsll__MMColParam = Request.QueryString("news_ID")
<-----插入到这里
End If
不过简单看了你的代码以后
If (Request.QueryString("news_ID") <> "") Then
newsll__MMColParam = Request.QueryString("news_ID")
<-----插入到这里
End If
应该跟一个else报错
并建议你把下面的
<%
Dim newsll
Dim newsll_numRows
Set newsll = Server.CreateObject("ADODB.Recordset")
newsll.ActiveConnection = MM_mynews_STRING
newsll.Source = "SELECT * FROM newstest WHERE news_ID = " + Replace(newsll__MMColParam, "'", "''") + ""
newsll.CursorType = 0
newsll.CursorLocation = 2
newsll.LockType = 1
newsll.Open()
newsll_numRows = 0
%>
这些代码都移到
If (Request.QueryString("news_ID") <> "") Then
newsll__MMColParam = Request.QueryString("news_ID")
<-----这里
End If
不建议上面兄的方法，因为记录集以只读打开时无法更新数据库的。
顶楼兄的也不对，conn Execute，中间不是空格呀。
正确的应该是：
Conn.Execute("update newstest Set hits=hist+1 WHERE news_ID = "&newsll__MMColParam)