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
相关问答:
文件:folder.inc
HTML code:
<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......
字段PowerList里面的值:KSO10000,KSO10021,KSO10004,KSO10022,KSO10020,KSO10008
现在要判断,当PowerList里面存在KSO10004这个值的时候,输出:好
VBScript code:
<%
set rs=server.Creat ......
请问为什么我这段代码可以显示已修改成功pic文件夹中的图片,但实际上文件夹中的文件名称还是好好的。望高手帮忙改改啊。
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
S ......
IsSqlDataBase = 0 '主数据库类型(1=SQL,0=AC)
'===========================================================================
SqlDatabaseName = "ads365" '主数据库名
S ......
Replace函数如何默认是从左端替换,如何使其从右边开始替换,即替换一个字符串的最后一个字符,替换次数为1次,谢谢
引用
VBScript code <%
Response.Write ReplaceRev("abcdefXXXghi"," ......