易截截图软件、单文件、免安装、纯绿色、仅160KB

ASP中的一个小问题

是这样的,用户登陆界面后进行投票操作,后台的数据表result负责存放投票结果,其中count1存放“张三”的选票数目,count2存放“李四”的选票数目,count3存放“王五”的选票数目,初始值都为0。
程序如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/cnn.asp" -->
<%
Dim rs1
Dim rs1_numRows

Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_cnn_STRING
rs1.Source = "SELECT ni, ei, Gi, ki  from voter  WHERE name='"&session("username")&"'"
rs1.CursorType = 1
rs1.CursorLocation = 2
rs1.LockType = 3
rs1.Open()

rs1_numRows = 0
%>
<%
Dim rs3
Dim rs3_numRows

Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.ActiveConnection = MM_cnn_STRING
rs3.Source = "SELECT * from result"
rs3.CursorType = 1
rs3.CursorLocation = 2
rs3.LockType = 3
rs3.Open()

rs3_numRows = 0
%>
<!--#include file="md5.asp"-->

<!--#include file="xmod.asp"-->
<!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/xhtm


相关问答:

求改一个ASP小程序加上传功能和下载功能。。

文件:folder.inc
HTML code:

<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......

一个ASP判断字符串的问题

字段PowerList里面的值:KSO10000,KSO10021,KSO10004,KSO10022,KSO10020,KSO10008
现在要判断,当PowerList里面存在KSO10004这个值的时候,输出:好


VBScript code:

<%
set rs=server.Creat ......

关于ASP批量修改文件名的问题

请问为什么我这段代码可以显示已修改成功pic文件夹中的图片,但实际上文件夹中的文件名称还是好好的。望高手帮忙改改啊。
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
S ......

asp跟Access数据连接问题。

IsSqlDataBase = 0 '主数据库类型(1=SQL,0=AC)

'===========================================================================
SqlDatabaseName = "ads365" '主数据库名
S ......

关于ASP的Replace函数

Replace函数如何默认是从左端替换,如何使其从右边开始替换,即替换一个字符串的最后一个字符,替换次数为1次,谢谢

引用
VBScript code <%
Response.Write ReplaceRev("abcdefXXXghi"," ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号