📄 default.asp
字号:
</HEAD>
<%
Set Conn = session("AdoConnectObj")
%>
<BODY>
<table width=100%>
<tr>
<td align=center class=TitleTable>用例组合查询</td>
</tr>
</table>
<br><br>
<div align=center><center>
<table cellpadding="0" cellspacing="0" border="0" align="center" WIDTH="240">
<tr>
<td width="50%" nowrap>用例编号 <input type=text size=22 maxlength=50 class=InputText id=TUCCode onchange="Javascript:BSubmit.disabled = false" ></td>
<td width="50%" nowrap> 所属分类 <input type=text id=TreeNodeName size=18 readonly maxlength=50 class=InputText value=""><input type=button class=Button value="..." onclick="CatiQuery()" id=button1 name=button1></td>
</tr>
<tr>
<td width="50%" nowrap>用例名称 <input type=text size=22 maxlength=15 class=InputText id=TUCName onkeyup="TUCCode_OnFocus()" onchange="Javascript:BSubmit.disabled = false"></td>
<td width="50%" nowrap> 检索键值 <input type=text size=22 maxlength=15 class=InputText id=SearchKey onchange="Javascript:BSubmit.disabled = false"></td>
</tr>
</table>
<table cellpadding="0" cellspacing="0" border="0" align="center" WIDTH="240">
<tr>
<td width="50%" nowrap>测试阶段 <select id=TestProgressID size=1>
<Option value="<NONE>" selected>任意</Option>
<%
MySql = "Select REPLACE(REPLACE(REPLACE(fchrTestProgressID , '}', ''), '{', ''), '-', '_') As TestProgressID ,fchrTestProgressName as TestProgressName From Sys_testProgress"
Set Rs = Conn.Execute(MySql)
While NOT Rs.EOF
Response.Write "<option value='"+Trim(Rs("TestProgressID"))+"'>"+Trim(Rs("TestProgressName"))+"</option>"
Rs.MoveNext
Wend
Set Rs = Nothing
%></Select></td>
<td width="50%" nowrap> 优先级别 <select id=DealPriorityID size=1>
<Option value="<NONE>" selected>任意</Option>
<%
MySql = "Select REPLACE(REPLACE(REPLACE(fchrDealPriority , '}', ''), '{', ''), '-', '_') As DealPriorityID,fchrDealPriorityName as DealPriorityName From Sys_DealPriority Order By fchrDealPriorityName"
Set Rs = Conn.Execute(MySql)
While NOT Rs.EOF
Response.Write "<option value='"+Trim(Rs("DealPriorityID"))+"'>"+Trim(Rs("DealPriorityName"))+"</option>"
Rs.MoveNext
Wend
Set Rs = Nothing
%></Select></td>
</tr>
<tr>
<td width="50%" nowrap>测试类别 <select id=TestTypeID size=1>
<Option value="<NONE>" selected>任意</Option>
<%
MySql = "Select REPLACE(REPLACE(REPLACE(fchrTestTypeID , '}', ''), '{', ''), '-', '_') As TestTypeID,fchrTestTypeName as TestTypeName From Sys_TestType"
Set Rs = Conn.Execute(MySql)
While NOT Rs.EOF
Response.Write "<option value='"+Trim(Rs("TestTypeID"))+"'>"+Trim(Rs("TestTypeName"))+"</option>"
Rs.MoveNext
Wend
Set Rs = Nothing
%></Select></td>
<td width="50%" nowrap> 审核状态 <Select type=InputText id=AuditSate onchange="Javascript:BSubmit.disabled = false">
<Option value="<NONE>" selected>任意</Option>
<option value="0">未 审 核</option>
<option value="1">审核通过</option>
<option value="2">审核拒绝</option>
</Select></td>
</tr>
<tr>
<td width="50%" nowrap>用例版本 <input type=text size=22 class=InputText id=Version onchange="Javascript:BSubmit.disabled = false" Value="Ver1.0"></td>
<td width="50%" nowrap> 版本状态 <Select type=InputText id=VersionState onchange="Javascript:BSubmit.disabled = false">
<Option value="<NONE>" selected>任意</Option>
<option value="0">原始用例</option>
<option value="1">临时用例</option>
<option value="2">版本用例</option>
</Select></td>
</tr>
<tr>
<td width="50%" nowrap>补丁编号 <input type=text size=22 maxlength=10 class=InputText id=PathNo onchange="Javascript:BSubmit.disabled = false"></td>
<td width="50%" nowrap> 所属项目 <input type=text id=ItsProject size=22 maxlength=50 disabled class=InputText disabled value=""></td>
</tr>
</table>
<table cellpadding="0" cellspacing="0" border="0" align="center" WIDTH="240">
<tr>
<td width="100%" nowrap>产品路径 <input type=text size=58 maxlength=100 class=InputText id=ItsProductPath disabled onchange="Javascript:BSubmit.disabled = false"></td>
</tr>
<tr>
<td width="100%" nowrap>用例摘要 <input type=text size=58 maxlength=100 class=InputText id=TUCDesc onchange="Javascript:BSubmit.disabled = false"></td>
</tr>
<tr>
<td width="100%" nowrap>关联文件 <input type=text size=58 maxlength=100 class=InputText id=FileURL onchange="Javascript:BSubmit.disabled = false"></td>
</tr>
<tr>
<td width="100%" nowrap>关联脚本 <input type=text size=58 maxlength=100 class=InputText id=ScriptURL onchange="Javascript:BSubmit.disabled = false"></td>
</tr>
<tr>
<td width="100%" nowrap>原始用例 <input type=text size=43 maxlength=100 class=InputText id=VersionSourceName readonly onchange="Javascript:BSubmit.disabled = false"
disabled
language="vbscript" onmousedown="
cTemp = showModalDialog("../DrugCati/STestUC.asp","选择用例名称","dialogHeight:12;dialogWidth:14;help:no;resizable:no;status:no")
if cTemp<>'Exit' then
cTmp=Split(cTemp,"/")
VersionSourceID.value=cTmp(0)
PYCode.value=cTmp(1)
cTm=Split(cTmp(2),"")
VersionSourceName.value=cTm(0)
else
VersionSourceID.value=""
VersionSourceName.value=""
end if
"
> <input type="button" value="浏览..." name="select" style="background-color: #e6e6e6; color: #000000"
language="vbscript" onmousedown="
cTemp = showModalDialog("../DrugCati/STestUC.asp","选择用例名称","dialogHeight:12;dialogWidth:14;help:no;resizable:no;status:no")
if cTemp<>'Exit' then
cTmp=Split(cTemp,"/")
VersionSourceID.value=cTmp(0)
PYCode.value=cTmp(1)
cTm=Split(cTmp(2),"")
VersionSourceName.value=cTm(0)
else
VersionSourceID.value=""
VersionSourceName.value=""
end if
"
>
</td>
</tr>
</table>
<table cellpadding="0" cellspacing="0" border="0" align="center" WIDTH="240">
<tr>
<td>测试描述<br> <textarea id=DetailDesc cols=56 rows=2 onchange="Javascript:BSubmit.disabled = false"></textarea>
</td>
</tr>
<tr>
<td>预期结果<br> <textarea id=Result cols=56 rows=2 onchange="Javascript:BSubmit.disabled = false"></textarea>
</td>
</tr>
<tr>
<td width="100%"nowrap >补充说明<br> <textarea id=Entironment cols=56 rows=2 onchange="Javascript:BSubmit.disabled = false"></textarea></td>
</tr>
</table>
<table cellpadding="0" cellspacing="2" border="0" align="center" WIDTH="240">
<tr>
<td width="50%" nowrap> 创建人员 <input type=text size=15 maxlength=50 readonly class=InputText id=CreateUserName onchange="Javascript:BSubmit.disabled = false" value="">
<input type="button" value="..." name="select" style="background-color: #e6e6e6; color: #000000"
language="vbscript" onmousedown="
cTemp = showModalDialog("SPersion.asp","选择创建人名称","dialogHeight:12;dialogWidth:14;help:no;resizable:no;status:no")
if cTemp<>'Exit' then
cTmp=Split(cTemp,"/")
CreateUserID.value=cTmp(0)
PYCode.value=cTmp(1)
cTm=Split(cTmp(2),"")
CreateUserName.value=cTm(0)
else
CreateUserID.value=""
CreateUserName.value=""
end if
"
>
</td>
<td width="50%" nowrap> 审核人员 <input type=text size=16 maxlength=50 readonly class=InputText id=AuditUserName onchange="Javascript:BSubmit.disabled = false" >
<input type="button" value="..." name="select" style="background-color: #e6e6e6; color: #000000"
language="vbscript" onmousedown="
cTemp = showModalDialog("SPersion.asp","选择审核人名称","dialogHeight:12;dialogWidth:14;help:no;resizable:no;status:no")
if cTemp<>'Exit' then
cTmp=Split(cTemp,"/")
AuditUserID.value=cTmp(0)
PYCode.value=cTmp(1)
cTm=Split(cTmp(2),"")
AuditUserName.value=cTm(0)
else
AuditUserID.value=""
AuditUserName.value=""
end if
"
>
</td>
</tr>
<tr>
<td width="50%" nowrap> 创建日期 <input type=text size=22 maxlength=15 class=InputText id=CreateDate onchange="Javascript:BSubmit.disabled = false" value="" ></td>
<td width="50%" nowrap> 至 <input type=text size=22 maxlength=15 class=InputText id=AuditDate onchange="Javascript:BSubmit.disabled = false" ></td>
</tr>
<tr>
<td width="50%" nowrap> 审核日期 <input type=text size=22 maxlength=15 class=InputText id=CreateDate onchange="Javascript:BSubmit.disabled = false" value="" ></td>
<td width="50%" nowrap> 至 <input type=text size=22 maxlength=15 class=InputText id=AuditDate onchange="Javascript:BSubmit.disabled = false" ></td>
</tr>
<tr>
<td width="50%" nowrap> 排序规则按 <select size=1 id=OrderA>
<option value="fchrCaseMainCode">用例编号</option>
<option value="fchrCaseName">用例名称</option>
<option value="fchrSearchKey">检索键值</option>
</Select></td>
<td width="50%" nowrap> 升序 <input type=radio name=A onclick="Javascript:OrderB.value=''" checked> 降序 <input type=radio Name=A onclick="Javascript:OrderB.value='DESC'">
<input type=hidden id=OrderB>
</td>
</tr>
</table>
</center></div><br>
<Input Type=Hidden id=VersionSourceID Value="">
<Input Type=Hidden id=AuditUserID Value="">
<Input Type=Hidden id=CreateUserID Value="">
<Input Type=Hidden id=PYCode Value="">
<Input Type=Hidden id=TreeNodeID Value="">
<div align=right><input type=button class=Button value=开始查询 onclick="Query()"> </div>
</BODY>
</HTML>
<form id=postForm method=post action="ListDrug.asp">
<input type=hidden name=QuerySql>
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -