set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_conn_STRING
Command1.CommandText = "UPDATE tp_xx SET ps =ps+1 WHERE xxid ="+Trim(Request("tpid"))+""
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
response.Cookies("tp")="abc"
response.Cookies("tp").Expires= dateadd("d",1,now())
%>
<script>
alert("投票成功！")
window.location.href=document.referrer
</script>
<% Else %>
<script>
alert("您已经投过票了！")
window.location.href=document.referrer
</script><% End If %>
<% End If %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
本文来自优文论文网原文请找QQ752018766
<%
Dim wz__MMColParam
wz__MMColParam = "1"
If (Request.QueryString("wid") <> "") Then
wz__MMColParam = Request.QueryString("wid")
End If
%>
<%
Dim wz
Dim wz_numRows
Set wz = Server.CreateObject("ADODB.Recordset")
wz.ActiveConnection = MM_conn_STRING
wz.Source = "SELECT * FROM chaxun WHERE wid = " + Replace(wz__MMColParam, "'", "''") + ""
wz.CursorType = 0
wz.CursorLocation = 2
wz.LockType = 1
wz.Open()
wz_numRows = 0
%>
<%
Dim rm__MMColParam
rm__MMColParam = (wz.Fields.Item("eid").Value)
If (Request("MM_EmptyValue") <> "") Then
rm__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rm
Dim rm_numRows
Set rm = Server.CreateObject("ADODB.Recordset")
rm.ActiveConnection = MM_conn_STRING
rm.Source = "SELECT ylm, elm, wid, bt FROM chaxun WHERE eid = " + Replace(rm__MMColParam, "'", "''") + " ORDER BY djs DESC"
rm.CursorType = 0
rm.CursorLocation = 2
rm.LockType = 1
rm.Open()
rm_numRows = 0
%>
<%
Dim pre__MMColParam
pre__MMColParam = "1"
If (Request.QueryString("wid") <> "") Then
pre__MMColParam = Request.QueryString("wid")
毕业论文http://www.youerw.com
ADODB.Recordset")
pre.ActiveConnection = MM_conn_STRING
pre.Source = "SELECT * FROM Wz_nr WHERE wid < " + Replace(pre__MMColParam, "'", "''") + " ORDER BY wid DESC"
pre.CursorType = 0
pre.CursorLocation = 2
pre.LockType = 1
pre.Open()
pre_numRows = 0
%>
<%
Dim nextone__MMColParam
nextone__MMColParam = "1"
If (Request.QueryString("wid") <> "") Then
nextone__MMColParam = Request.QueryString("wid")
End If
%>
<%
Dim nextone
Dim nextone_numRows
Set nextone = Server.CreateObject("ADODB.Recordset")
nextone.ActiveConnection = MM_conn_STRING
nextone.Source = "SELECT * FROM Wz_nr WHERE wid > " + Replace(nextone__MMColParam, "'", "''") + " ORDER BY wid ASC"
nextone.CursorType = 0
nextone.CursorLocation = 2
nextone.LockType = 1
nextone.Open()
本文来自优文论文网原文请找QQ752018766
<%
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_conn_STRING
Command1.CommandText = "UPDATE Wz_nr SET djs =djs+1 WHERE wid =" + Replace(Command1__a, "'", "''") + ""
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true