谁有这样的源代码!!http://www.sgu.edu.cn/vote/index.asp?page=1急!!!!!!
谁有这样的源代码!!http://www.sgu.edu.cn/vote/index.asp?page=1急!!!!!!
问题点数：20、回复次数：8Top
1 楼mt530（涛涛）回复于 2003-11-02 14:55:02 得分 0
upTop
2 楼mt530（涛涛）回复于 2003-11-02 14:56:27 得分 0
有的话可以发到我 信箱啊!!matao19850724@163.com
谢谢大家!!!!!!Top
3 楼Michael_zheng（野兽）回复于 2003-11-02 15:18:47 得分 10
你想要的是投票吗？这个不难把，我的思路大概是这样的。
数据库里面有这样一个表score：
id,score
“现在投票”链接：add.asp?id=id
然后在add.asp中编程：
dim id
id = request.querystring("id")
dim conn,connstr,sql,rs
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
connstr = "provider=sqloledb........." //我用sqlserver
conn.open connstr
sql = "select * from score where id=" & id
rs.open sql,conn
dim score
score = rs("score")
score = score + 1
dim rsadd,sqladd //定义加分
set rsadd = server.createobject("adodb.recordset")
sqladd = "update score set score=" & score & "where id="&id
rsadd.open sqladd,conn
conn.close
Top
4 楼hillhero789（丘）回复于 2003-11-02 15:22:07 得分 2
要的是什么?
难道想要把网页首页转化成图片的组件吗?
如果有的话我也想要啊
Top
5 楼mt530（涛涛）回复于 2003-11-02 19:38:48 得分 0
我要的是他哪样的投票系统啊!!!Top
6 楼mt530（涛涛）回复于 2003-11-03 07:58:57 得分 0
怎么没有人帮我啊!!!
没有高手了吗?Top
7 楼oudream（平凡）回复于 2003-11-06 09:39:29 得分 4
<html xml:lang="zh" dir="ltr">
<title>分页技术</title>
<link href="css1.css" rel="stylesheet" type="text/css">
<head>
<%
const MaxPerPage=25
dim sql
dim rs
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim pag
%>
</head>
<body bgcolor=thistle>
<P align=center><span class="csstest01"><STRONG><font size="6">实例分页技术</font></STRONG></span></p>
</FONT></FONT></P>
<%
conn = ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" + "DBQ=" + server.mappath("data\mydb.mdb")
sql = "SELECT * FROM mytable"
set rs=server.createobject("adodb.recordset")
rs.open SQL,conn,1,1
rs.MoveFirst
rs.pagesize=MaxPerPage
howmanyfields=rs.Fields.Count-1
If trim(Request( "pag" ))<>"" then
CurrentPage= CInt(request("pag"))
If CurrentPage> rs.PageCount then
CurrentPage = rs.PageCount
End If
Else
CurrentPage= 1
End If
if rs.eof then
response.write "<p align='center'> ERROR!</p>"
else
totalPut=rs.recordcount
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage<totalPut then
rs.move((currentPage-1)*MaxPerPage)
dim bookmark
bookmark=rs.bookmark
end if
end if
dim n,k
if (totalPut mod MaxPerPage)=0 then
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
%>
<P>PAGE <%=currentpage%> OF <%=n%> 共<%=rs.recordcount%> 纪录
<% k=currentPage
if k<>1 then
response.write "[<b>"+"<a href='index.asp?pag=1'>首页</a></b>] "
response.write "[<b>"+"<a href='index.asp?pag="+cstr(k-1)+"'>上一页</a></b>] "
else
Response.Write "[首页] [上一页]"
end if
if k<>n then
response.write "[<b>"+"<a href='index.asp?pag="+cstr(k+1)+"'>下一页</a></b>] "
response.write "[<b>"+"<a href='index.asp?pag="+cstr(n)+"'>尾页</a></b>] "
else
Response.Write "[下一页] [尾页]"
end if
%>
</P>
<TABLE border=1 align=center>
<tr>
<%
for i= 0 to howmanyfields%>
<TD><B><%=rs(i).name%></B></TD>
<%
next
i=0
do while not rs.eof and i<maxperpage%>
<tr align=middle>
<%for j=0 to howmanyfields%>
<td>
<%=rs(j)%>
</td>
<%next%>
</tr>
<%
i=i+1
rs.movenext
loop
%>
</TABLE>
<%
end if
rs.close
set rs=nothing
%>
</body>
</html>Top
8 楼bineon（雪冬寒）回复于 2003-11-06 20:42:41 得分 4
down
——————————————————————————————————
www.91asp.cn
有时间到这里找资料找书籍，你会发现asp以及.net很容易！
前提是你努力学习！
Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
