📄 listdrug.asp
字号:
<%@ Language=VBScript %>
<%Response.Expires=0
Response.Buffer = False
Server.ScriptTimeout = 1200
%>
<Script Language=VBScript>
<!--
Sub LPrint()
' nStart1 = 1
' nStart2 = 1
' MySql = postForm.QuerySql.value
' nStart1 = InStr(nStart2,MySql," Where")
' If nStart1 > 0 Then
' cTemp = Mid(MySql,nStart1,Len(MySql) - nStart1 + 1)
' Else
' cTemp = " "
' End If
' PrintC1.Constr = "<%=Session("constr")%>"
' PrintC1.ModuleID = 15
' PrintC1.ConditionStr = cTemp
' PrintC1.FillDataReady
'PrintC1.PrintObj.doPreView
'PrintC1.PrintObj.doPageSetup
' MsgBox "依据您所打印的用例数量,打印时间可能为数秒到数分钟,请耐心等待.按 确定 开始打印",64,"准备打印"
' PrintC1.PrintObj.doPrint 1,true
self.print()
End Sub
-->
</Script>
<Script Language=Javascript>
<!--
function SetFormat()
{
location.href = "../../dbcheck/ViewFormat_selected.asp";
}
-->
</Script>
<html>
<head>
<meta name="VI60_DefaultClientScript" Content="VBScript">
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<link href="../../Css_Template/CssTable.css" rel="STYLESHEET" type="text/css">
</head>
<body>
<table width="100%">
<tr>
<td align="center" class="TitleTable">用 例 列 表</td>
</tr>
<tr>
<td align="left"><a href="Javascript:history.back()">返回组合查询</a> <a href="Javascript:SetFormat()">自定义显示格式</a> <input type=image src="../../images/print.gif" border="0" title="打印当前查询结果" Onclick="LPrint()" WIDTH="23" HEIGHT="22" id=image1 name=image1></td>
</tr>
</table>
<%
'On Error Resume Next
MySql = Trim(Request.Form("QuerySql"))
'Response.Write MySql + "<br>"
Set Conn = session("AdoConnectObj")
MySql1 = "Select (FormatDetail0+FormatDetail1) As FormatDetail From View_Format Where ModuleName = '用例查询打印' And isSelected = '1'"
Set Rs1 = Conn.Execute(MySql1)
cFormatDetail = Trim(Rs1("FormatDetail"))
nStart1 = 1 'Front Point
nStart2 = 1 'Tail Point
nStart1 = InStr(nStart2,cFormatDetail,",")
nCol = CInt(Mid(cFormatDetail,nStart2,nStart1)) '所有的列数
'Dim ColArray()
'ReDim ColArray(3*nCol)
strColArray = Split(cFormatDetail,"/")
Set Rs = Conn.Execute(MySql)
%>
<label id="TempInfo"><font color="#10ADB5"><b>正在查询......</b></font></label>
<div align="center"><center>
<table cellpadding="0" cellspacing="0" border="0" align="center">
<tr>
<td nowrap align="center" class="TitleTd"> 序号 </td>
<%
For nTemp = 2 To 3*nCol Step 3
%>
<td nowrap align="center" class="TitleTd"> <%=strColArray(nTemp)%> </td>
<%
Next
%>
</tr>
<%
nTemp = 1
While NOT Rs.EOF
%>
<tr>
<td nowrap class="EditTd"><%=nTemp%></td>
<%
For nTemp1 = 1 To 3*nCol Step 3
Select Case Trim(strColArray(nTemp1))
Case "DrugName"%>
<td nowrap class="EditTd"><%If Trim(Rs("DrugName")) <> "" Then Response.Write Trim(Rs("DrugName")) Else Response.Write " " End If%></td>
<%Case "DrugCatiName"%>
<td nowrap class="EditTd"><%If Trim(Rs("DrugCatiName")) <> "" Then Response.Write Trim(Rs("DrugCatiName")) Else Response.Write " " End If%></td>
<%Case "PYCode"%>
<td nowrap class="EditTd"><%If Trim(Rs("PYCode")) <> "" Then Response.Write Trim(Rs("PYCode")) Else Response.Write " " End If%></td>
<%Case "LatiName"%>
<td nowrap class="EditTd"><%If Trim(Rs("LatiName")) <> "" Then Response.Write Trim(Rs("LatiName")) Else Response.Write " " End If%></td>
<%Case "DCode"%>
<td nowrap class="EditTd"><%If Trim(Rs("DCode")) <> "" Then Response.Write Trim(Rs("DCode")) Else Response.Write " " End If%></td>
<%Case "DosageName"%>
<td nowrap class="EditTd"><%If Trim(Rs("DosageName")) <> "" Then Response.Write Trim(Rs("DosageName")) Else Response.Write " " End If%></td>
<%Case "Sepecification"%>
<td nowrap class="EditTd"><%If Trim(Rs("Specification")) <> "" Then Response.Write Trim(Rs("Specification")) Else Response.Write " " End If%></td>
<%Case "Concentration"%>
<td nowrap class="EditTd"><%If Trim(Rs("Concentration")) <> "" Then Response.Write Trim(Rs("Concentration")) Else Response.Write " " End If%></td>
<%Case "RetailUnitName"%>
<td nowrap class="EditTd"><%If Trim(Rs("RetailUnitName")) <> "" Then Response.Write Trim(Rs("RetailUnitName")) Else Response.Write " " End If%></td>
<%Case "RetailPrice"%>
<td nowrap class="EditTd"><%If Trim(Rs("RetailPrice")) <> "" Then Response.Write Trim(Rs("RetailPrice")) Else Response.Write " " End If%></td>
<%Case "TradePrice"%>
<td nowrap class="EditTd"><%If Trim(Rs("TradePrice")) <> "" Then Response.Write Trim(Rs("TradePrice")) Else Response.Write " " End If%></td>
<%Case "OrderMark"%>
<td nowrap class="EditTd"><%
If Rs("OrderMark") = 1 Then
Response.Write "是"
Else
Response.Write "否"
End If
%></td>
<%Case "MaxOrderAmount"%>
<td nowrap class="EditTd"><%If Trim(Rs("MaxOrderAmount")) <> "" Then Response.Write Trim(Rs("MaxOrderAmount")) Else Response.Write " " End If%></td>
<%Case "SelfFlag"%>
<td nowrap class="EditTd"><%
Select Case Rs("SelfFlag")
Case 1
Response.Write "自费"
Case 2
Response.Write "甲类"
Case 3
Response.Write "乙类"
Case Else
Response.Write " "
End Select
%></td>
<%Case "DrugPoison"%>
<td nowrap class="EditTd"><%
If Rs("DrugPoison") = 1 Then
Response.Write "是"
Else
Response.Write "否"
End If
%></td>
<%Case "AbrMark"%>
<td nowrap class="EditTd"><%
Select Case Rs("AbrMark")
Case 0
Response.Write "国产"
Case 1
Response.Write "进口"
Case 2
Response.Write "合资"
Case Else
Response.Write " "
End Select
%></td>
<%Case "NewFlag"%>
<td nowrap class="EditTd"><%
If Rs("NewFlag") = 1 Then
Response.Write "是"
Else
Response.Write "否"
End If
%></td>
<%Case "OwnRatio"%>
<td nowrap class="EditTd"><%If Trim(Rs("OwnRatio")) <> "" Then Response.Write Trim(Rs("OwnRatio")) Else Response.Write " " End If%></td>
<%Case "MaxStockAmount"%>
<td nowrap class="EditTd"><%If Trim(Rs("MaxStockAmount")) <> "" Then Response.Write Trim(Rs("MaxStockAmount")) Else Response.Write " " End If%></td>
<%Case "MinStockAmount"%>
<td nowrap class="EditTd"><%If Trim(Rs("MinStockAmount")) <> "" Then Response.Write Trim(Rs("MinStockAmount")) Else Response.Write " " End If%></td>
</tr>
<%
End Select
Next
Rs.MoveNext
nTemp = nTemp + 1
Wend
Set Rs1 = Nothing
Set Rs = Nothing
%>
</table></center></div>
<script Language="VBScript">
<!--
TempInfo.outerHTML = "<b>总共 <%=CStr(nTemp-1)%> 种符合查询条件的用例</b>"
-->
</script>
<form method=post id=postForm>
<input type=hidden id=QuerySql Name=QuerySql value="">
</form>
<!-- <OBJECT id=PrintC1 style="LEFT: 0px; TOP: 0px" codeBase="../../intostock/int/Int.CAB#version=1,0,0,0"
classid=CLSID:60469F15-AB24-11D4-9D3D-0010B5558803 width=0 height=0>
<PARAM NAME="_ExtentX" VALUE="26">
<PARAM NAME="_ExtentY" VALUE="26"></OBJECT>
-->
</body>
</html>
<%
'Response.Flush
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -