微信扫一扫2.8w+
社区成员
我分太多了 200分 来看看asp问题
http://58.30.16.205:84/index.asp
编号和密码都是xxx ，在左侧项目结果－－科室下面 有多个一样的重复，如果 B超、免疫、尿常规等
想得到；
这一列 不重复，只显示一次。
随时 在线 200分送
编号和密码都是xxx ，在左侧项目结果－－科室下面 有多个一样的重复，如果 B超、免疫、尿常规等
想得到；
这一列 不重复，只显示一次。
随时 在线 200分送
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
jakeweny 2008-12-03
既然来了，就和大家见见吧。呵呵。
希望大家也能帮我解决下问题，楼主，借你宝地一用，不介意吧？
--------------------------------
因为导航栏内容太多，不能一次全部显示，所以需要隐藏一部分，点击上下箭头的时候，才上下移动，而且到不同的页面，导航条的位置不要改变。
就是定位问题，现在需要各位的帮忙，谢谢了。记得是要竖行的，谢谢。
希望大家也能帮我解决下问题，楼主，借你宝地一用，不介意吧？
--------------------------------
因为导航栏内容太多，不能一次全部显示，所以需要隐藏一部分，点击上下箭头的时候，才上下移动，而且到不同的页面，导航条的位置不要改变。
就是定位问题，现在需要各位的帮忙，谢谢了。记得是要竖行的，谢谢。
- 打赏
- 举报
saishui 2008-12-03
请问楼主是哪人呀?庐江的吗?
- 打赏
- 举报
saishui 2008-12-03
[Quote=引用 28 楼 toury 的回复:]
不要追加了，你给我10分就可以了，其他的给大家分分吧。
分对我来说没什么意义，你的问题解决了就好，呵呵
[/Quote]
你人太好了,呵呵!
不要追加了，你给我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)
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>
<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）
经常发现有人被乱码困扰着，而我感觉比较幸运，很少为此烦恼过。 在这篇博客中，我将把我想到的一些与乱码有关的经验总结出来，供大家参考。 页面显示乱码问题 在一个网站中，有些页面会正常显示，然而，有些页面