关于asp中的“审核”问题

分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:

sql = "select from food where 审核='0'"

if request("sh")<>"" then

sql = "select from food where 编号='"&request("sh")&"'"

rs("审核")=1
rsupdate

responseredirect "admin2"

end if

……

<a href=admin2sh=<%=rs(0)%>>审核</a></td>

以上这是我写的一段代码，思路是点击“审核”，得到一条记录的ID（rs(0)）传递给变量sh，再由 sql = "select from food where 编号='"&request("sh")&"'" 这一句读取该ID对应的数据，把它的“审核”值改为1

可是实际审核的时候发现不管点击哪条记录，都是从第一条开始审核。

请高手指点问题出在哪里。

解析:

为什么要第一句呢

sql = "select from food where 审核='0'"

既然第一句的作用是列出所有未被审核的记录，那应该把显示记录的rs和用于更新数据的rs分开。

在更新审核状态的时候，再用一个rs2吧

if request("sh")<>"" then

sql = "select from food where 编号="&request("sh")&""

Set rs2 = ServerCreateObject("ADODBRecordSet")

rs2Open sql,conn,1,3

rs2("审核")=1

rs2update

responseredirect "admin2"

end if

采用无组件下载代码。
upfileasp
<% 'OPTION EXPLICIT%>
<!--#include FILE="upload_5xsoftinc"-->
<%
dim upload,file,formName,formPath,iCount,MyFile
set upload=new upload_5xSoft ''建立上传对象
formpath="userdata/" ''得到上传目录
nian=Year(Date)
yue=Month(Date)
ri=Day(Date)
if len(nian)<4 then nian="00"&nian
if len(yue)<2 then yue="0"&yue
if len(ri)<2 then ri="0"&ri
ipinit=""
ip=RequestServerVariables("REMOTE_ADDR")
tmpip=Split(ip,"")
tmpipb=UBound(tmpip)
' ReDim ThisIP(tmpipb)
for i=0 to tmpipb
ThisIp=tmpip(i)
Do WHile len(ThisIP)<3
ThisIP="0"+ThisIP
loop
ipinit=ipinit+ThisIP
next
'Responsewrite nian&yue&ri&ipinit
'Responseend
for each formName in uploadfile ''列出所有上传了的文件
set file=uploadfile(formName) ''生成一个文件对象
if fileFileSize>0 then ''如果 FileSize > 0 说明有文件数据
'MyFile=formPath&FileFileName
'MyFile=FileFileName
shi=Hour(time)
fen=Minute(Time)
Miao=Second(Time)
if len(shi)<2 then shi="0"&shi
if len(fen)<2 then fen="0"&fen
if len(miao)<2 then miao="0"&miao
MyFile=nian&yue&ri&shi&fen&miao&ipinit&"txt"
fileSaveAs Servermappath(formPath&MyFile) ''保存文件
responsewrite fileFilePath&"#"&fileFileName&"#"&" ("&fileFileSize&") => "&MyFile&" 成功!<br>"
end if
set file=nothing
next
set upload=nothing ''删除此对象
%>
upload_5xsoftinc
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
dim upfile_5xSoft_Stream
Class upload_5xSoft

dim Form,File,Version

Private Sub Class_Initialize
dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
Version=">