📄 servermodify.asp
字号:
<!--#include file = include.asp-->
<!--#include file = CheckPurview.asp-->
<body background="images/BLogo.gif">
<%
function unHtm(content)
unHtm=content
if content <> "" then
unHtm=replace(unHtm,"<","<")
unHtm=replace(unHtm,">",">")
end if
end function
operation=Request.QueryString("Operation")
select case Operation
case "Modifyservername"
serverID=Request.Form("serverID")
set rs=Server.CreateObject("Adodb.RecordSet")
rs.source="select * from server where serverid="&serverid
rs.open rs.source,conn,1,1
%>
<form name="form" method="POST" action="serverSubmit.asp?operation=Modifyservername" onsubmit="return Checkservername()">
<p> </p>
<table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" border="0" cellpadding="0" align="center" cellspacing="1" bgcolor="#96C5DE">
<tr>
<td colspan=3><!--#include file = topMenu.htm--></td>
</tr>
<tr bgcolor="#a4cee4">
<td height="25" colspan="2" align="center" valign="middle"><b>修改业务项目</b></td>
</tr>
<tr>
<td height="25" width="152" valign="middle" bgcolor="#FFFFFF">业务名称:</td>
<td height="25" width="326" valign="middle" bgcolor="#FFFFFF">
<input type="text" name="servername1" size="20" value="<%=rs("servername")%>" Class=InputStyle>
<input type="hidden" name="servername" value="<%=rs("servername")%>">
</td>
</tr>
<tr>
<td height="40" align="center" colspan=2 bgcolor="#FFFFFF" width="100%">
<input type="hidden" value="<%=rs("serverID")%>" name="serverID">
<input type="hidden" value="<%=rs("servername")%>" name="sservername">
<input type="submit" value=" 修 改 " name="B12" onclick="return modify()">
<input type="reset" value=" 还 原 " name="B13">
</td>
</tr>
</table>
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -