程式師世界 >> 編程語言 >> 更多編程語言 >> 編程綜合問答 >> vbscript-為什麼點擊鏈接到該頁面會執行兩次插入數據操作，代碼是沒有問題的，因為刷新就只執行一次操作

vbscript-為什麼點擊鏈接到該頁面會執行兩次插入數據操作，代碼是沒有問題的，因為刷新就只執行一次操作

編輯：編程綜合問答

為什麼點擊鏈接到該頁面會執行兩次插入數據操作，代碼是沒有問題的，因為刷新就只執行一次操作

 <a href='zf.asp?WBDzhuren="&WBDzhuren&"&ID="&rs4("ID")&"'class='zf'>轉發</a>

-------------------------zf.asp的全部代碼-----------------------

 <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>轉發微博</title>
</head>

<body>
<!--#include file="odbc_connection.asp"-->
<%
dim WBDzhuren,ID,Zhuanfa
WBDzhuren=request.QueryString("WBDzhuren")
ID=request.QueryString("ID")
response.write ID & WBDzhuren
Dim strSql,strSql2                              '首先要從利用URL中獲得ID信息中檢索出該微博記錄
strSql="Select * From weibo where ID="&ID
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open strsql,conn1,1  
    if not rs.Bof then
    Zhuanfa=rs("Zhuanfa")
    strSql2="Update weibo Set Zhuanfa=" & Zhuanfa+1 & " Where ID=" & ID     '將該微博的被轉發數量+1
    conn1.Execute(strSql2)
    '以下將微博內容轉發布到當前登陸賬戶
    dim strSql3,Content
    Content=WBDzhuren&":"& rs("Content")
    strSql3="insert into weibo(Username,Content,Subtime,Zhuanfa,Pinglun,Ding,BplID) values('"&session("Strname")&"','"&Content&"',#"&Now()&"#,0,0,0,'N')"
    conn1.Execute(strSql3)
    else
    end if
%>
</body>
</html>

很奇怪的是，從上一個頁面點擊轉發，就會看到數據庫中被插入了兩條一模一樣的記錄，而刷新就會看到又插入了一條，代碼就是按照一條來設計的，刷新是符合要求的。搞不懂是怎麼回事，請大神指教哈