宠物小精灵0.5a全流程:ASP强的来帮下。引用的问题。。

来源:百度文库 编辑:高考问答 时间:2024/05/03 06:25:58
因为是做一个多项复选框。项目多用了一个字段来存储

写了个函数像101010101010这样存储和读取数据。1代表选择0代表没选择。

SQL中 xuanze 类型varchar 默认值(space(100)) 长度100
-----------
主文件INC.ASP

'显示选项
function CheckMe(tcString,tnId)
if mid(tcString,tnId,1)="1" then
CheckMe = "image/yes.jpg"
else
CheckMe = "image/no.jpg"
end if
end function

'提交选项
function ReString(tcReString,tnId,tnInt)
ReString = mid(tcReString,1,Tnid-1)+tnInt+mid(tcReString,tnId+1,len(tcRestring)-(tnId+1))
end function
-----------

显示页面 show.asp

支持DOD:<img border="0" src="<%= CheckMe(Rs("xuanze"),1) %>">

-----------
提交页面 UP.ASP

支持DOD:<input id="1" type="checkbox" name="xuanze" value="1">
-----------
提交验证页面 CHK.asp

dim lcString,lnId
lcString = space (100)

for each lnId in request("xuanze")
lcString = ReString(lcString,idno,request("xuanze",lnId))
next
rs("xuanze") = lcString

在这个地方。要引用最后这个lcString的值就是替换到相应的地方的值.
忘记这个引用怎么写了...
或者大家有什么好的建议意见发表一下.有40多个选择项要录入SQL...怎样才好? DIM太多字段的话SQL会很慢的..