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

jasondct 2008-12-02 11:08:34
http://58.30.16.205:84/index.asp
编号和密码都是xxx ，在左侧项目结果－－科室下面 有多个一样的重复，如果 B超、免疫、尿常规等
想得到；
这一列 不重复，只显示一次。
随时 在线 200分送
...全文
308 34 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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
  • 打赏
  • 举报
 回复
我主张学思想，而不是学语法！
语法基本上一看就会，可没了思想，你语法再通，你也不知道怎么下手
就像你这道题一样，其实非常简单。主要是你根本没有那个思想，不知从哪下手
加载更多回复（14）
ASP.NET中 “字符文本中字符太多”错误及解决方法
我的错误截图    问题描述     在ASP.NET中使用多层引号，要引起注意，引号使用不当会引起“字符文本中字段太多”编译错误！今天我就遇到了这个错误，整理于此！     “字符文本中字段太多”错误提示过于笼统，其实，错误原因很简单，看一下错误源码形式： ""    正确形式应当为： ''    问题起因：HTML中引号多层嵌套问题
asp生成json数据
看过网上很多asp无限分类的代码，
ZZ: ASP.NET WebApi(post) Json请求太大,无法反序列化问题解决方法
转载自：https://blog.csdn.net/andy_5826_liu/article/details/92995776 最近使用 ASP.NET 开发一个WebApi程序时遇到的问题，请求参数为json格式，返回参数也为json格式。 控制器的方法接收参数为一个具体类的形参，运行时(post请求），asp.net帮我把json字符串反序列化为我自定义的类对象。但是我发现当post的请求json数据量太大时，反序列化失败，导致接收到的类对象为null。 解决方法如下： 修改web.config配置两
很好的解决了asp.net页面ViewState过大的问题 ==== 看看就好===不好懂
如果你有一个非常酷的页面，页面上很多东西自动地响应用户操作而展现丰富的变化，你的ViewState是很有可能达到200K的。 这里是我将ViewState持久化保持在服务器端的代码，这样ViewState不占用网络带宽，因此其存取只是服务器的磁盘读取时间。并且它很小，可以说是磁盘随便转一圈就能同时读取好多ViewState，因此可以说“不占时间”。为了再“不占磁盘时间”，我还使用了缓存。 1....
ASP.NET 一文看懂repeater控件使用方法
作为初学者，看到网上repeater用法一脸懵逼，代码不是太长就是太过抽象，根本看不懂，于是找了视频一看就懂了，其实repeater控件用法很简单，网上说的太多非常不适合新手，今天我叫大家使用repeater控件。按照这个步骤就可以成功了。(1)新建Default.aspx，这个大家都会，略过，拖放repeater控件(2)切换到源码看到&lt;asp:Repeater ID="Repeater1...
ASP

28,408

社区成员

356,971

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章