主页

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

jasondct 2008-12-02 11:08:34

http://58.30.16.205:84/index.asp
编号和密码都是xxx ，在左侧项目结果－－科室下面有多个一样的重复，如果 B超、免疫、尿常规等
想得到；
这一列不重复，只显示一次。
随时在线 200分送

...全文

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>