PCDVD數位科技討論區
PCDVD數位科技討論區   註冊 常見問題 標記討論區為已讀

回到   PCDVD數位科技討論區 > 其他群組 > 疑難雜症區
帳戶
密碼
 

回應
 
主題工具
scottot
Power Member
 

加入日期: Dec 2003
文章: 662
ASP問題

請問這該如何讓38行到63行能夠正確的顯示出來??
(跳過迴圈並使
MyMsgs[0] = "<table border=0><tr><td>編號<TD>姓名<TD>狀態<tr><td><%=num%><TD><% =name%><TD><%=per%></table>"
這裡能夠順利的用迴圈顯示....感謝大大
<%
atime=request("atime")
slbJob=request("slbJob")

select case atime
case "上午"
a="9:00AM"
b="10:00AM"
c="11:00AM"
case "下午"
a="13:00PM"
b="14:00PM"
c="15:00PM"
case "晚上"
a="17:00PM"
b="18:00PM"
c="19:00PM"
end select

if a <> "" AND b <> "" AND c <> "" then
Set cnnDB = Server.CreateObject("ADODB.Connection")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("User2.mdb")
cnnDB.Open strCon
Set rstObj = Server.CreateObject ("ADODB.Recordset")
strSQL="SELECT * From 預約資料 Where 門診名稱='" & Request("slbJob") & "' and 日期=#" & Date & "# and 看診時間=#" & a &"# Order By Num asc"

rstObj.Open strSQL,cnnDB

Do While Not rstObj.EOF

num=rstObj("Num")
name=rstObj("病患姓名")
per=rstObj("狀態")


%>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<style>
body,td,div {font-family:細明體;font-size:12px;}
.DocumentTopic {font-size:16px;color:#ffeeaa;}
.TabLabel0 {padding:6px 3px 0px 4px;width:100%;height:23px;cursor:hand;}
.TabLabel1 {padding:6px 3px 0px 4px;width:100%;height:24px;cursor:default;}
.TabBody {padding:6px;width:100%;height:100%;cursor:default;line-height:18px;}
A.TabColor0:visited {text-decoration:none;color:#5080af;}
A.TabColor0:link {text-decoration:none;color:#5080af;}
A.TabColor0:hover {text-decoration:none;color:#0050f0;}
A.TabColor1:visited {text-decoration:none;color:#0050f0;}
A.TabColor1:link {text-decoration:none;color:#0050f0;}
A.TabColor1:hover {text-decoration:none;color:#0050f0;}
</style>
<script language="JavaScript" src="ColorTabs.js"></script>
<script language="JavaScript">
<!-- 開始設定

BoxHeight = 600
BoxWidth = 400
BorderColor="#000000"

MyTabs = new Array
MyTabs[0] = new Array ("<% =a %>","118","#ffaeae","#f88888","center");
MyTabs[1] = new Array ("<% =b %>","118","#ffdd99","#e0c074","center");
MyTabs[2] = new Array ("<% =c %>","118","#c0defa","#a6c4ee","center");

MyMsgs = new Array
MyMsgs[0] = "<table border=0><tr><td>編號<TD>姓名<TD>狀態<tr><td><%=num%><TD><% =name%><TD><%=per%></table>"
</script>
<%
rstObj.MoveNext
loop

rstObj.Close
Set rstObj=Nothing
cnnDB.Close
Set cnnDB=Nothing
end if
%>
<script language="JavaScript">
MyMsgs[1] = "您可以任意設定每個頁籤的顏色..."
MyMsgs[2] = "可以自由增減頁籤項目並直接套用,不需要再額外修改原始程式。"
// 結束設定 -->
</script>


<body onload="loadtab(0);">
<center>
<html>
<cneter>
<FORM action="demo.asp" Method=post id=form2 name=form2>
<SELECT name=slbJob size=1>
<OPTION value="一般外科1診">一般外科1診</OPTION>
<OPTION value="一般外科2診">一般外科2診</OPTION>
<OPTION value="中醫內科1診">中醫內科1診</OPTION>
<OPTION value="中醫內科2診">中醫內科2診</OPTION>
<OPTION value="牙科1診">牙科1診</OPTION>
<OPTION value="牙科2診">牙科2診</OPTION>
<OPTION value="皮膚科1診">皮膚科1診</OPTION>
<OPTION value="皮膚科2診">皮膚科2診</OPTION>
<OPTION value="耳鼻喉科1診">耳鼻喉科1診</OPTION>
<OPTION value="耳鼻喉科2診">耳鼻喉科2診</OPTION>
<OPTION value="家庭醫學科1診">家庭醫學科1診</OPTION>
<OPTION value="家庭醫學科2診">家庭醫學科2診</OPTION>
<OPTION value="骨科1診">骨科1診</OPTION>
<OPTION value="骨科2診">骨科2診</OPTION>
<OPTION value="婦產科1診">婦產科1診</OPTION>
<OPTION value="婦產科2診">婦產科2診</OPTION>
<OPTION value="眼科1診">眼科1診</OPTION>
<OPTION value="眼科2診">眼科2診</OPTION>
<OPTION value="整形外科1診">整形外科1診</OPTION>
<OPTION value="整形外科2診">整形外科2診</OPTION>
</SELECT>
<SELECT name="atime" size=1>
<OPTION value="上午">上午</OPTION>
<OPTION value="下午">下午</OPTION>
<OPTION value="晚上">晚上</OPTION>
</select>
&nbsp;<input style="BORDER-RIGHT: #ffeef2 2px solid; BORDER-TOP: #ffeef2 2px solid; BORDER-LEFT: #ffeef2 2px solid; COLOR: #ff174b; BORDER-BOTTOM: #ffeef2 2px solid; BACKGROUND-COLOR: #ffffff" type="submit" value="送出" name=submit1>
</form>
<table height=260><tr><td>
<script language="JavaScript">
if(document.all){
document.write("<div id=\"TabIE\"></div>")
}else{
document.write("<layer id=\"TabNC\" left="+((screen.width-BoxWidth)/2-10)+" top=65></layer>")
}
</script>
</td></tr></table>
     
      

此文章於 2005-11-12 03:59 PM 被 scottot 編輯.
舊 2005-11-12, 03:51 PM #1
回應時引用此文章
scottot離線中  
scottot
Power Member
 

加入日期: Dec 2003
文章: 662
已經解決了.........但是為什麼在上面會自動跑出undefined的字?謝謝
 
舊 2005-11-13, 10:00 AM #2
回應時引用此文章
scottot離線中  


回應


POPIN
主題工具

發表文章規則
不可以發起新主題
不可以回應主題
不可以上傳附加檔案
不可以編輯您的文章

vB 代碼打開
[IMG]代碼打開
HTML代碼關閉



所有的時間均為GMT +8。 現在的時間是06:56 PM.


vBulletin Version 3.0.1
powered_by_vbulletin 2025。