投票网页制作,网页制作dw8中单选投票功能

<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”936″%>

投票网页制作,网页制作dw8中单选投票功能

<!–#include file=”Connections/conn.asp” –>

投票网页制作,网页制作dw8中单选投票功能

<%

Dim keming

Dim keming_numRows

Set keming = Server.CreateObject(“ADODB.Recordset”)

keming.ActiveConnection = MM_conn_STRING

keming.Source = “SELECT * FROM keming”

keming.CursorType = 0

keming.CursorLocation = 2

keming.LockType = 1

keming.Open keming.Source,conn ‘conn是conn.asp文件里投票网页制作,建立的连接,一般都CONN吧

keming_numRows = 0

%>

<%

set Command1 = Server.CreateObject(“ADODB.Command”)

Command1.ActiveConnection = MM_conn_STRING

Command1.CommandText = “UPDATE keming SET ts=ts+1 WHERE id=”

Command1.CommandType = 1

Command1.CommandTimeout = 0

Command1.Prepared = true

Command1.Execute(Command1.CommandText) ‘随便看看应该是这样

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

Repeat1__numRows = -1

Repeat1__index = 0

keming_numRows = keming_numRows + Repeat1__numRows

%>

<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” ” }

<html xmlns=” }

<head>

<meta }

<title>无标题文档</title>

</head>

<body>

<form id=”form1″ name=”form1″ method=”post” action=”toupxs.asp”>

<p align=”center”>请选择你喜欢的课程</p>

<table width=”425″ border=”1″ align=”center” cellpadding=”0″ cellspacing=”0″>

<%

While ((Repeat1__numRows <> 0) AND (NOT keming.EOF))

%>

<tr>

<td width=”223″><%=(keming.Fields.Item(“keming”).Value)%></td>

<td width=”71″><label>

<input type=”radio” name=”ra” value=”<%=(keming.Fields.Item(“id”).Value)%>” />

<input name=”text” type=”text” id=”text” value=”<%=(keming.Fields.Item(“id”).Value)%>” size=”2″ />

</label></td>

</tr>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

keming.MoveNext()

Wend

%>

<tr>

<td><label>

<input type=”submit” name=”Submit” value=”提交” />

</label></td>

<td>&nbsp;</td>

</tr>

</table>

</form>

</body>

</html>

<%

keming.Close()

Set keming = Nothing

%>

‘———–你还是用DW直接生成asp – -” ———–

 

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 2895593579@qq.com 举报,一经查实,本站将立刻删除。