永发信息网

关于VB中使用Access数据库输出条件语句

答案:1  悬赏:0  手机版
解决时间 2021-04-14 13:42

使用原有的数据库

数据库 中表Products 字段结构中 其中有字段:Usedianhuo 、 Useshow。此表是保存商品记录的。

现想 实现

1. 当同一个ID记录中 字段 Usedianhuo 为1 Useshow为0 的 这次条记录 为共给用户点货使用(即原数据库中 此商品拍的图片不漂亮 但仓存里还有此商品 就给用户点货使用)

2. 当同一个ID记录中 字段 Usedianhuo 为0 Useshow为1 的 这次条记录 即展示用的 (原数据库中 此商品拍的图片很漂亮 但实仓存并无此商品 所以就只能当作历史展示使用 )

3. 当同一个ID记录中 字段 Usedianhuo 为1 Useshow为1 的 这次条记录 为共给用户点货 使用 又做展示用(原数据库中 此商品拍的图片很漂亮 仓存也还有此商品 所以此条记录 既给用户点货 又做展示用)

4. 当同一个ID记录中 字段 Usedianhuo 为0 Useshow为0 的 这次条记录 共给用户点货 又做展示 都不使用 (原数据库中 有可能是商品拍的图片不好 看展示不使用 实际上仓存也无此商品了 但公司仍然需要在数据库中留底)

现products.asp 为产品展示页面

该页面负责 判断 有用户时(islog = 1) 即输出 字段字段 Usedianhuo 为1 的所有商品记录。

无用户登陆时 (islog = 0) 即输出 字段Useshow为1 的所有记录。

请问 products.asp 代码该如何写才能实现?

以下 是本人写的 但并为实现的代码 希望大家帮看看指出错误在那里。

<%
'Call db
Call dbConn()

Dim sortName,sortID,sortRS,tType,islog,Usedianhuo,Useshow
sortID = toInt(Request("Sort"))
tType = toInt(Request("s"))
islog = islogin(0)
Usedianhuo = toInt(Request("Usedianhuo"))
Useshow = toInt(Request("Useshow"))
if tType = 5 and islog = 0 then call funerr("要查看特价商品需要登录后才可继续.|")

Dim Total,iPage,oRs,word,sSql,image,text
image = "p100.gif"
text = "全部产品"
word = funSql(Request("word"))
Set oRs = Server.CreateObject("Adodb.RecordSet")
sSql = "Select Name,Num,Picture,ID,Dir,Usedianhuo,price,Useshow From Products Where 1=1 "
If islog = 0 then
sSql = sSql & "And isMember <> 1 "
end if
If Len(word) > 0 Then
sSql = sSql & "And Name Like '%"& word &"%' "

...........%>

<table width="120" border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7F7">
<tr>
<td width="120" height="120" align="center" valign="top" background="images/1052.gif" ><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" bgcolor="#F7F7F7">

<%if islog = 0 & Useshow = 1 then%> <%else if Usedianhuo= 1 then%>
<a href="pshow.asp?ID=<%=oRs("ID")%>" target="_blank"><img src="docs/<%=oRs("Dir") & "/" & oRs("Picture")%>" width="110" height="110" border="0"></a><%end if%></td>
</tr>
</table></td>
</tr>
<tr>
<td width="120" height="29" ><a href="pshow.asp?ID=<%=oRs("ID")%>" target="_blank"><%=left(oRs("Name"),9)%></a><br>编号: <%=ors("Num")%><br><%if islog = 1 then%>价格: <font color="#FF0000"><%=formatnumber(ors("price"),2)%></font> 元<br><%end if%><font color="#0000ff" onclick="shop('<%=ors("id")%>')">放入购物车</font></td>
</tr>
</table>

最佳答案

你残缺的代码很难实现!


我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
在公司里上班真的有这么多的小人吗?
施华洛世奇深圳茂业百货华强北店在哪里啊,我
魔域 寻找安洁儿任务中的bb蛋奈丽在哪啊
摩尔庄园 nosed reindeer
乐高在哪买便宜,在哪买乐高比较便宜?
急:跪求《dj - dj - 2009 最新劲爆舞曲 中华
鸿旭王记私房菜地址在哪,我要去那里办事
所有银行的卡的网上银行开通都必须到发卡银行
港湾商务酒店这个地址在什么地方,我要处理点
他下定决心赶上其他学生。
從有关中秋团圆诗句,关于中秋'思念',
长,3.75 宽3.1 的房间放多大的床,还要放衣柜
人人软件站的三国战记的游戏有病毒吗
请问在贵州贵阳哪里可以买到组合电脑桌
香雪兰的种子放久了会不会干
推荐资讯
吃猪肺有什么好处?
下列文言句子的句式判断错误的一项A.广武君策
教师节对同行的祝福,教师节给老师的祝福语20
这样能怀孕?
读英语句子怎样划分,关于学习的英文名言
女人小资情调生活诗句,描写格调的句子
阅读下面《为何出现金融危机》,完成小题。(
夏维怡家纺地址有知道的么?有点事想过去
购房合同弄丢了怎么办呀?
DNF10年12月,现在的天空套二还会存在吗??
抱怨兄弟情谊的句子,需一些带有什么兄弟情谊
初中英语完成句子方法,初中英语补全句子?。
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?