📄 selfcheck_read.asp
字号:
<%@ Language=VBScript %>
<!--#include file= "../dbase.asp"-->
<!--#include file= "../function.asp"-->
<!--#include file= "selfcheck_function.asp"-->
<html>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
<link href="../mstyle.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.check1 {
color: #00FFFF;
background-color: #9999CC;
}
.leftMenu {
letter-spacing: 5px;
word-spacing: 5px;
}
-->
</style>
</head>
<% if request("KindName")="" then
KindName=""
else
KindName=request("KindName")
end if %>
<body>
<table width="100%" height="75" border="0" cellpadding="4" cellspacing="3">
<tr>
<td width="110" align="center" valign="top">
<!-- left -->
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td align="center" bordercolor="#9999CC" bgcolor="#9999CC" class="leftMenu"><font color="#00FFFF">自检报告</font></td>
</tr>
</table>
<table width="100%" border="1" cellpadding="2" cellspacing="0" bordercolor="#9999CC">
<% BK = selfcheckKinds(KindName)'调用selfcheck_function.asp，得到自检类型数据库
If not isnull(BK) Then
for i=0 to ubound(BK,2)%>
<tr>
<td height="22" align="center" class="leftMenu" style="cursor: hand ;<%if BK(2,i)="selected" then response.Write("color: #00FFFF;background-color: #9999CC;")%>" onclick="self.location.href='selfcheck_read.asp?KindName=<%= BK(1,i) %>'"><%= BK(1,i) %></td>
</tr>
<% next
End If %>
</table>
<!-- end left -->
</td>
<td valign="top"><!-- right -->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" class="leftMenu" align=center><%= KindName %></td>
<td width="50%" align="center"><form method="post" name="form1" target="_self">
<% If not isnull(BK) Then
response.Write("<select name='KindName'>")
for i=0 to ubound(BK,2)
response.Write("<Option value='"& BK(1,i) &"'>"& BK(1,i) &"</Option>")
next
response.Write("<Option value='' Selected style='background-color: #cccccc'>自检报告类型</Option>")
response.Write("</select>")
end if %><input type="text" name="BKey"><input type="submit" name="Submit" value="GO">
</form>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%
if request("page")="" then
Page=1
else
Page=request("page")
end if
if request("BKey")<>"" then
BKey=request("BKey")
else
BKey=""
end if
call selfcheckList(KindName,BKey,Page,30)'调用selfcheck_function.asp，产生列表清单%></td>
</tr>
</table>
<!-- end right -->
</td>
</tr>
</table>
</body>
</html>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName) { //v2.0
window.open(theURL,winName,'width=320,height=380');
}
//-->
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -