📄 build_sys_mod_change_pick.asp
字号:
<%
'on error resume next
session("intKey")=request.querystring("intKey")
cat=Request.QueryString("cat")
%>
<html>
<head>
<!-- #INCLUDE FILE="shared_checkBrowser.inc" -->
<script language="JavaScript">
<!--
function SubmitMe(theForm)
{
theForm.submit();
}
// -->
</script>
<style TYPE="text/css">
<!--
TD {font-size: 9pt; font-family: Arial; font-color: blue; font-weight: bold}
TD.small {font-size: 8pt; font-family: Arial; font-color: blue}
TD.large {font-size: 10pt; font-family: Arial}
-->
</style>
</head>
<BODY bgcolor="white">
<TABLE width="100%">
<TR>
<TD BGCOLOR="black" align="center">
<font color="white"><b>Change Component On This System</b></font>
</TD>
</TR>
</table>
<BR>
<center>
<TABLE width="95%">
<form name="cboChgSysForm" METHOD="POST" action="build_sys_mod_change.asp">
<TR valign="top">
<TD align="right">
<!-- #INCLUDE FILE="odbc_connection.inc" -->
<%
Set rsCH2 = server.createObject("ADODB.recordset")
sSQL="SELECT"
sSQL=sSQL & " s_Category"
sSQL=sSQL & " FROM tbl_Categories"
sSQL=sSQL & " WHERE s_Category not like 'Computer System'"
sSQL=sSQL & " ORDER BY s_Category"
rsCH2.open sSQL, conn, 3, 3 'read
if err.number <>0 then
session("sSQL")=sSQL
session("errnum")=err.number
session("error")=err.description
Response.Redirect "error.asp"
end if
if HandlesJScript=true then
response.write "<Select Size='1' NAME='cboChgComponent' onChange='SubmitMe(this.form);'>"
else
response.write "<Select Size='1' NAME='cboChgComponent'>"
end if
do while not (rsCH2.EOF)
s_Category=rsCH2("s_Category")
s_Description=rsCH2("s_Category")
s_Category=replace(s_Category,"'","")
s_Description=replace(s_Description,"'","")
s_Selected=""
if cat=replace(s_Category," ","") then s_Selected = " SELECTED"
response.write "<option value='" & s_Category & "'" & s_Selected & "> " & s_Description & " </option>"
rsCH2.movenext
loop
rsCH2.close
set rsCH2=nothing
%>
</Select>
</TD>
<TD align="left">
<input type="submit" value="Go">
</form>
</TD>
</tr>
</table>
</center>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -