我分太多了 200分 来看看asp问题

jasondct 2008-12-02 11:08:34
http://58.30.16.205:84/index.asp
编号和密码都是xxx ,在左侧项目结果--科室下面 有多个一样的重复,如果 B超、免疫、尿常规等
想得到;
这一列 不重复,只显示一次。
随时 在线 200分送
...全文
251 点赞 收藏 34
写回复
34 条回复
jakeweny 2008年12月03日
既然来了,就和大家见见吧。呵呵。
希望大家也能帮我解决下问题,楼主,借你宝地一用,不介意吧?
--------------------------------
因为导航栏内容太多,不能一次全部显示,所以需要隐藏一部分,点击上下箭头的时候,才上下移动,而且到不同的页面,导航条的位置不要改变。
就是定位问题,现在需要各位的帮忙,谢谢了。记得是要竖行的,谢谢。
回复 点赞
saishui 2008年12月03日
请问楼主是哪人呀?庐江的吗?
回复 点赞
saishui 2008年12月03日
[Quote=引用 28 楼 toury 的回复:]
不要追加了,你给我10分就可以了,其他的给大家分分吧。
分对我来说没什么意义,你的问题解决了就好,呵呵
[/Quote]
你人太好了,呵呵!
回复 点赞
virgo2008 2008年12月03日
额,看来我还要多像toury ,chinmo 两位学习了!呵呵!现在都是.Net害的,都喜欢模块话了!哎!
回复 点赞
toury 2008年12月02日
12楼的sql语句统计科室重复项时少了where,改成这个:
wh=" WHERE guid='"&UserRs("guid")&"'"
sql="SELECT *,(SELECT COUNT([KSMC]) FROM V_TJCX "&wh&" GROUP BY [KSMC]) AS rowspan FROM V_TJCX "&wh&" order by KSMC Asc"
Set KsRs=ConnM.Execute(sql)
回复 点赞
virgo2008 2008年12月02日

<%
sql="select * from V_TJCX where guid='"&UserRs("guid")&"' order by KSMC Asc"
Set KsRs=ConnM.Execute(sql)
%>
<table width="95%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
<tr>
<td colspan="4"> <strong>项目结果 </strong> </td>
</tr>
<tr>
<td> <div align="center">科室 </div> </td>
<td> <div align="center">项目 </div> </td>
<td> <div align="center">结果 </div> </td>
<td> <div align="center">标准 </div> </td>
</tr>
<%
k=0
Session("ksmc")=""
do while not KsRs.Eof
%>
<tr>
<%if Session("ksmc")<>KsRs("ksmc") then%>
<td width="25%" rowspan="<%=k%>">
<div align="center"> <%=KsRs("ksmc")%>
<% if KsRs("KSSM") <>"" then %>
<br>
<span class="style1">( <%=KsRs("KSSM")%>) </span>
<%
end if
Session("ksmc")=KsRs("ksmc")
%>
</div>
</td>
<%
else
k=k+1
end if
%>
<td> <div align="center">  <%=KsRs("XXMC")%> </div> </td>
<td> <div align="center">  <%=KsRs("XMvalue")%> </div> </td>
<td> <div align="center">
<% if KsRs("CKSX") <>"" then %>
<%= KsRs("CKXX") %>- <%= KsRs("CKSX") %> <%= KsRs("DW") %>
<% else %>
 
<%end if%>
</div> </td>
</tr>
<% KsRs.MoveNext %>
<% Loop %>
</table>
<% KsRs.Close %>
回复 点赞
virgo2008 2008年12月02日

<%
sql="select * from V_TJCX where guid='"&UserRs("guid")&"' order by KSMC Asc"
Set KsRs=ConnM.Execute(sql)
%>
<table width="95%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
<tr>
<td colspan="4"> <strong>项目结果 </strong> </td>
</tr>
<tr>
<td> <div align="center">科室 </div> </td>
<td> <div align="center">项目 </div> </td>
<td> <div align="center">结果 </div> </td>
<td> <div align="center">标准 </div> </td>
</tr>
<%
k=0
Session("ksmc")=""
do while not KsRs.Eof
%>
<tr>
<%if Session("ksmc")<>KsRs("ksmc") then%>
<td width="25%" rowspan="<%=k%>">
<div align="center"> <%=KsRs("ksmc")%>
<% if KsRs("KSSM") <>"" then %>
<br>
<span class="style1">( <%=KsRs("KSSM")%>) </span>
<%
end if
Session("ksmc")=KsRs("ksmc")
%>
</div>
</td>
<%
else
nd if k=k+1
e
%>
<td> <div align="center">  <%=KsRs("XXMC")%> </div> </td>
<td> <div align="center">  <%=KsRs("XMvalue")%> </div> </td>
<td> <div align="center">
<% if KsRs("CKSX") <>"" then %>
<%= KsRs("CKXX") %>- <%= KsRs("CKSX") %> <%= KsRs("DW") %>
<% else %>
 
<%end if%>
</div> </td>
</tr>
<% KsRs.MoveNext %>
<% Loop %>
</table>
<% KsRs.Close %>

试试吧,没有测试!
回复 点赞
toury 2008年12月02日

...........
<%
sql="SELECT *,(SELECT COUNT([KSMC]) FROM V_TJCX GROUP BY [KSMC]) AS rowspan FROM V_TJCX WHERE guid='"&UserRs("guid")&"' order by KSMC Asc"
Set KsRs=ConnM.Execute(sql)
%>
<table width="95%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
<tr>
<td colspan="4"> <strong>项目结果 </strong> </td>
</tr>
<tr>
<td> <div align="center">科室 </div> </td>
<td> <div align="center">项目 </div> </td>
<td> <div align="center">结果 </div> </td>
<td> <div align="center">标准 </div> </td>
</tr>
<%
prename=""
do while not KsRs.Eof
rowspan=rs("rowspan")
if prename<>rs("ksmc")'如果换了科室
%>
<tr>
<td width="25%" rowspan="<%=rowspan%>"> <div align="center"> <%=KsRs("ksmc")%>
<% if KsRs("KSSM") <>"" then %>
<br>
<span class="style1">( <%=KsRs("KSSM")%>) </span>
<%end if %>
</div> </td>
<td> <div align="center">  <%=KsRs("XXMC")%> </div> </td>
<td> <div align="center">  <%=KsRs("XMvalue")%> </div> </td>
<td> <div align="center">
<% if KsRs("CKSX") <>"" then %>
<%= KsRs("CKXX") %>- <%= KsRs("CKSX") %> <%= KsRs("DW") %>
<% else %>
 
<%end if%>
</div> </td>
</tr>
<%
else
%>
<tr>
<td> <div align="center">  <%=KsRs("XXMC")%> </div> </td>
<td> <div align="center">  <%=KsRs("XMvalue")%> </div> </td>
<td> <div align="center">
<% if KsRs("CKSX") <>"" then %>
<%= KsRs("CKXX") %>- <%= KsRs("CKSX") %> <%= KsRs("DW") %>
<% else %>
 
<%end if%>
</div> </td>
</tr>
<%
end if
prename=rs("KSMC")&""
KsRs.MoveNext %>
<% Loop %>
</table>
<% KsRs.Close %>
...........
回复 点赞
virgo2008 2008年12月02日
第一排的是哪个字段?
回复 点赞
jasondct 2008年12月02日
这是asp 程序哦 ! 是.net 这个问题 我就不问了 呵呵
回复 点赞
virgo2008 2008年12月02日
我汗,你是.net的跑到asp版块来发,你当然看到的全部是asp代码咯!去.net版块吧!
回复 点赞
jasondct 2008年12月02日
//全部源码


<head>
<title> xxxx</title>
<SCRIPT src="Js.js"></SCRIPT>
<script language="javascript">
function newie()
{
var newWindow;
newWindow=window.open('','content','toolbar=no,location=no,directories=NO,status=NO,menubar=NO,scrollbars=yes,resizable=yes,top=10,left=10,width=770,height=450');
newWindow.focus();
}
</script>
<Link Rel="STYLESHEET" Href="index.CSS">
</head>

<body gcolor="#FFFFFF" topmargin="0" leftmargin="0" link="#000000" vlink="#000000" bgcolor="#CCCCCC">
<%
'on error resume next
tjdb="../database/dhtj.mdb"
'Response.write tydb&"<br>"
Set ConnM=Server.CreateObject("ADODB.Connection")
'ConnstrM="DBQ="+server.mappath(tjdb)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'ConnM.Open ConnstrM
%>

<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<td width="1" bgcolor="#009900"></td>
<td valign="top" width="983">
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0"">
<form action="inquire.asp" method="post" name="form1">
<tr>
<td width="60">
<div align="center"><img height=24
src="images/012.jpg" width=115></div>
</td>

<td width="80">
<div align="right">档案号:</div>
</td>
<td>
<input name="SelfBh" type="text" class="inp1" id="SelfBh" size="16" onMouseOver=this.focus() onFocus=this.select() value=请输入您的编号>
</td>
<td width="60">
<div align="right">密 码:</div>
</td>
<td>
<input name="QueryCode" type="text" class="inp1" id="QueryCode" size="16" onMouseOver=this.focus() onFocus=this.select() value=验证码>
</td>
<td width="60">
<div align="center">
<input type=image height=27 width=48
src="images/top_08.jpg" type="submit" value="查询">
</div>
</td>
</tr>
</form>
</table>
<table width="776" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<%
if Request("SelfBh")="" then
%>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>请在左边输入您的自定义档案号以及密码!</td>
</tr>
</table>
<% else %>
<%
'系统自带档案号用这句,如果是自定义的,将这句前面加'
'sql="select * from Person_XX where healthid='"&Request("SelfBh")&"'"
'自定义档案号请用下面这句,把前面的'去掉,把上面的那句加上'
sql="select * from Person_XX where selfbh='"&Request("SelfBh")&"'"

'set UserRs=ConnM.Execute(sql)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''遍历database文件夹下的所有数据库,查找数据
Dim objFolder
Dim objFSO

Set objFSO = Server.CreateObject("scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(mid(tjdb,2,11)))''''取出文件夹里所有文件

For Each objFile in objFolder.Files
if right(objFile,3) = "mdb" then''''排除其他信息,只要数据库
if ConnM.State = 1 then ConnM.Close''''''关闭
ConnstrM="DBQ="+objFile+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
ConnM.Open ConnstrM
set UserRs=ConnM.Execute(sql)
if not userRs.eof then exit for''''''''有数据了就退出
end if
next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if userRs.eof then
%>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>健康档案号错误!没有这个档案号,您可能还没有在本中心建立《健康档案》请核对后再查询!</td>
</tr>
</table>
<% else %>
<% if request("QueryCode")<>userRs("QueryCode") then%>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>查询码错误!请核对后再查询!</td>
</tr>
</table>
<% else %>
<table width="95%" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" border="1" align="center" cellpadding="0" cellspacing="1">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="40%"><strong> 档案号:<%=request("SelfBh")%></strong></td>
<td> <div align="right">
</div></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="95%" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" border="1" align="center" cellpadding="0" cellspacing="1">
<tr>
<td width="25%"> 姓  名:</td>
<td width="25%"> <%=UserRs("Name")%></td>
<td width="25%"> 性  别:</td>
<td width="25%"> <%=UserRs("Sex")%></td>
</tr>
<tr>
<td> 年  龄:</td>
<td> <%=UserRs("Age")%></td>
<td> 出生日期:</td>
<td> <%=UserRs("Birth")%></td>
</tr>
<tr>
<td> 单  位:</td>
<td> <%=UserRs("DanWei")%></td>
<td> 电  邮:</td>
<td> <%=UserRs("Email")%></td>
</tr>
</table>


<%
'体检的具体数据
%>
<%
sql="select * from V_TJCX where guid='"&UserRs("guid")&"' order by KSMC Asc"
Set KsRs=ConnM.Execute(sql)
%>
<table width="95%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
<tr>
<td colspan="4"> <strong>项目结果</strong></td>
</tr>
<tr>
<td><div align="center">科室</div></td>
<td><div align="center">项目</div></td>
<td><div align="center">结果</div></td>
<td><div align="center">标准</div></td>
</tr>
<% do while not KsRs.Eof %>
<tr>
<td width="25%"><div align="center"><%=KsRs("ksmc")%>
<% if KsRs("KSSM")<>"" then %>
<br>
<span class="style1">(<%=KsRs("KSSM")%>)</span>
<%end if %>
</div></td>
<td><div align="center"> <%=KsRs("XXMC")%></div></td>
<td><div align="center"> <%=KsRs("XMvalue")%></div></td>
<td><div align="center">
<% if KsRs("CKSX")<>"" then %>
<%= KsRs("CKXX") %>-<%= KsRs("CKSX") %><%= KsRs("DW") %>
<% else %>
 
<%end if%>
</div></td>
</tr>
<% KsRs.MoveNext %>
<% Loop %>
</table>
<% KsRs.Close %>
<%
sql="select * from ZJResult where guid='"&UserRs("guid")&"'"
Set ZjsRs=ConnM.Execute(sql)
if not ZjsRs.Eof then
%>
<table width="95%" border="1" align="center" cellpadding="0" cellspacing="1" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
<tr>
<td colspan="2"><strong>终检结果</strong> </td>
</tr>
<tr>
<td width="25%">终检结论</td>
<td width="75%"> <%=ZjsRs("ZJJL")%></td>
</tr>
<tr>
<td>终检建议</td>
<td> <%= ZjsRs("ZJJY") %></td>
</tr>
<tr>
<td>体检日期</td>
<td> <%= ZjsRs("TJRQ") %></td>
</tr>
</table>
<% end if '终检结论的判断数据是否为空的if结束%>

<% end if %>
<% end if %>
<% UserRs.close %>
<% end if %>

</td>
</tr>
</table>
</td>
<td width="20" bgcolor="#009900"></td>
</table>
</body>



回复 点赞
Dogfish 2008年12月02日
上面那个错了。
ks = ""
response.write "<table>"
while not rs.eof
if ks = rs("科室") then
l_ks = ""
else
l_ks = rs("科室")
ks = l_ks
end if
response.write "<tr>"
response.write "<td>" & l_ks & "</td>"
response.write "<td>" & rs("项目") & "</td>"
response.write "<td>" & rs("结果") & "</td>"
response.write "<td>" & rs("标准") & "</td>"
response.write "</tr>"
rs.movenext
wend
response.write "</table>"
回复 点赞
月光下的土豆 2008年12月02日

是这种感觉吗?
两次循环
回复 点赞
Dogfish 2008年12月02日
ks = ""
response.write "<table>"
while not rs.eof
if ks = rs("科室") then
l_ks = ""
else
l_ks = rs("科室")
end if
response.write "<tr>"
response.write "<td>" & l_ks & "</td>"
response.write "<td>" & rs("项目") & "</td>"
response.write "<td>" & rs("结果") & "</td>"
response.write "<td>" & rs("标准") & "</td>"
response.write "</tr>"
rs.movenext
wend
response.write "</table>"
回复 点赞
草原可可 2008年12月02日
支持下
回复 点赞
jasondct 2008年12月02日
我是.net 程序员 对于asp 不懂。 呵呵 需要源码的话 我贴上来。 用.net 来做非常简单。但是 没有框架 !
回复 点赞
virgo2008 2008年12月02日
你也是想合并第一列单元格是吧?我自己写了一个,测试的时候是能合并的,就不知道是不是你需要的!

<%
str="1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50"
a=split(str,",")
b=Ubound(a)
%>
<table width="100%" border="1" cellpadding="3" cellspacing="1" bgcolor="#999999">
<tr>
<td colspan="3" align="center" bgcolor="#FFFFFF">123</td>
</tr>
<tr>
<td rowspan="<%=b+2%>" bgcolor="#FFFFFF">4</td>
<td bgcolor="#FFFFFF">0</td>
<td bgcolor="#FFFFFF">1</td>
</tr>
<%
For i= 0 to b
%>
<tr>
<td bgcolor="#FFFFFF">2</td>
<td bgcolor="#FFFFFF">3</td>
</tr>
<%
Next
%>
</table>

回复 点赞
fabric区块链 2008年12月02日
先帮顶一下!
回复 点赞
一把编程的菜刀 2008年12月02日
我主张学思想,而不是学语法!
语法基本上一看就会,可没了思想,你语法再通,你也不知道怎么下手
就像你这道题一样,其实非常简单。主要是你根本没有那个思想,不知从哪下手
回复 点赞
发动态
发帖子
ASP
创建于2007-09-28

1.9w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区公告
暂无公告