📄 modulecode_edit.asp
字号:
<!--#include file="../Include/TimeOut.asp"-->
<%modulecode="0102"%>
<!--#include file="../Include/ModuleUserCheck.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'无变量传来时先赋初值，即添加状态
ModuleCode=""
ModuleName=""
ModulePath=""
checkboxend="0"
IP="0"
edit=""
'取得传来变量
strsqlzh=Request.QueryString("strsql")
ModuleCode=Request.Querystring("code")
ModuleName=Request.Querystring("name")
ModulePath=Request.Querystring("path")
page=Cstr(Request.Querystring("page"))
edit=Request.Querystring("edit")
if not ModuleCode="" then
set rst=server.createobject("ADODB.recordset")
Strsql="select * from xt_tc_module where 模块编码='"&ModuleCode&"'"
rst.open Strsql,strconn
ModuleName=rst("模块名称")
ModulePath=rst("模块路径")
CheckBoxEnd=rst("末级菜单")
IP=rst("IP校验标志")
end if
%>
<html>
<head>
<title>模块设置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../CssLib/Cssbutton.css">
</head>
<body text="#000000" bgcolor="#ffffff">
<img src="images/edit_title_modulecode.gif" width="200" height="27"><font color="#00CCFF" size="1">★★★★★<font color="#00CCFF" size="1">★★★★★</font><font color="#00CCFF" size="1">★★★★★</font><font color="#00CCFF" size="1">★★★★★</font>★★</font><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="22" height="20"><img src="../public/images/edit_bg_zs.gif" width="21" height="20"></td>
<td background="../public/images/bg_left.gif" bgcolor="#0099FF">
<div align="center"></div>
</td>
<td width="10"><img src="../public/images/edit_bg_ys.gif" width="21" height="20"></td>
</tr>
<tr>
<td background="../public/images/bg_left.gif"> </td>
<td bgcolor="#FFFFFF" height="200">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="20" width="6%" bgcolor="#FFFFFF"> </td>
<td height="20" width="20%" bgcolor="#FFFFFF"> </td>
<td height="20" width="69%" bgcolor="#FFFFFF"> </td>
<td height="20" width="5%" bgcolor="#FFFFFF"> </td>
</tr>
<form name="conlist" method="post" action="ModuleCode_regist.asp?strsql=<%=server.URLEncode(strsqlzh)%>&edit=<%=request.querystring("edit")%>&page=<%=Cstr(request.querystring("page"))%>" onSubmit="return checkfun()">
<tr>
<td height="20" width="6%" bgcolor="#EAEAEA"> </td>
<td height="20" width="20%" bgcolor="#EAEAEA">
<div align="left">模块编码</div>
</td>
<td height="20" width="69%" bgcolor="#EAEAEA">
<p>
<% if not edit="" then
response.write moduleCode '修改状态
Response.Write "<input type='hidden' name='ModuleCode' value='"&modulecode&"'>"
else %>
<input type="text" name="moduleCode" maxlength=10>
<%
end if
%>
<font color="#ff0000">** </font> （注：**为必填项,下同。 ）<br>
</p>
</td>
<td height="20" width="5%" bgcolor="#EAEAEA"> </td>
</tr>
<tr>
<td height="20" width="6%" bgcolor="white"> </td>
<td height="20" width="20%" bgcolor="white">
<div align="left"></div>
</td>
<td height="20" width="69%" bgcolor="white"> </td>
<td height="20" width="5%" bgcolor="white"> </td>
</tr>
<tr>
<td height="20" width="6%" bgcolor="#EAEAEA"> </td>
<td height="20" width="20%" bgcolor="#EAEAEA">
<div align="left">模块名称</div>
</td>
<td height="20" width="69%" bgcolor="#EAEAEA">
<input type="text" name="ModuleName" value="<%=ModuleName%>" maxlength="20">
<font color="#FF0000">** </font></td>
<td height="20" width="5%" bgcolor="#EAEAEA"> </td>
</tr>
<tr>
<td height="20" width="6%" bgcolor="#FFFFFF"><font color="#FFFFFF"></font></td>
<td height="20" width="20%" bgcolor="#FFFFFF"><font color="#FFFFFF"></font></td>
<td height="20" width="65%" bgcolor="#FFFFFF"><font color="#FFFFFF"></font></td>
<td height="20" width="9%" bgcolor="#FFFFFF"><font color="#FFFFFF"></font></td>
</tr>
<tr>
<td height="20" width="6%" bgcolor="#eaeaea"> </td>
<td height="20" width="20%" bgcolor="#eaeaea">
<div align="left">模块路径</div>
</td>
<td height="20" width="65%" bgcolor="#eaeaea">
<input type="text" name="modulePath" maxlength=100 value="<%=ModulePath%>">
<font color="#ff0000">** </font></td>
<td height="20" width="9%" bgcolor="#eaeaea"> </td>
</tr>
<tr>
<td height="20" width="6%"> </td>
<td height="20" width="20%"> </td>
<td height="20" width="65%"> </td>
<td height="20" width="9%"> </td>
</tr>
<tr>
<td height="20" width="6%" bgcolor="#eaeaea"> </td>
<td height="20" width="20%" bgcolor="#eaeaea">
<div align="left">末级标志</div>
</td>
<td height="20" width="65%" bgcolor="#eaeaea">
<input type="checkbox" name="CheckBoxEnd" value="1" <%if checkboxend="1" then response.write "checked"%>>
</td>
<td height="20" width="9%" bgcolor="#eaeaea"> </td>
</tr>
<tr>
<td height="20" width="6%" bgcolor="white"> </td>
<td height="20" width="20%" bgcolor="white"> </td>
<td height="20" width="65%" bgcolor="white"> </td>
<td height="20" width="9%" bgcolor="white"> </td>
</tr>
<tr bgcolor="#eaeaea">
<td height="20" width="6%"> </td>
<td height="20" width="20%">IP校验标志</td>
<td height="20" width="65%">
<input type="checkbox" name="IP" value="1" <%if IP="1" then response.write "checked"%>>
</td>
<td height="20" width="9%"> </td>
</tr>
<tr>
<td height="20" width="6%" bgcolor="white"> </td>
<td height="20" width="20%" bgcolor="white">
<div align="left"></div>
</td>
<td height="20" width="65%" bgcolor="white"> </td>
<td height="20" width="9%" bgcolor="white"> </td>
</tr>
<tr>
<td height="20" colspan="4" bgcolor="#FFFFFF">
<div align="center">
<input class="button" type="submit" name="Submit" value="提交">
<input class="button" type="reset" name="Submit2" value="重填">
<input class="button" type="button" name="Submit3" value="返回"onClick="back()">
</div>
</td>
</tr>
<tr>
<td height="20" width="6%" bgcolor="#FFFFFF"> </td>
<td height="20" width="20%" bgcolor="#FFFFFF"> </td>
<td height="20" width="69%" bgcolor="#FFFFFF"> </td>
<td height="20" width="5%" bgcolor="#FFFFFF"> </td>
</tr>
</form>
</table>
</td>
<td bgcolor="#FFFFFF" background="../public/images/bg_left.gif"> </td>
</tr>
<tr>
<td width="22"><img src="../public/images/edit_bg_zx.gif" width="21" height="20"></td>
<td bgcolor="#FFFFFF" background="../public/images/bg_left.gif" height="20"> </td>
<td width="10">
<div align="right"><img src="../public/images/edit_bg_yx.gif" width="21" height="20"></div>
</td>
</tr>
</table>
</body>
</html>
<script language="vbscript">
function checkfun() '校验表单
checkfun=true
if ConList.ModuleCode.value="" then
checkfun=false
window.alert "模块编码不能为空，请重新输入！"
exit function
end if
if ConList.ModuleName.value ="" then
checkfun=false
window.alert "模块名称不能为空，请重新输入！"
exit function
end if
if ConList.ModulePath.value ="" then
checkfun=false
window.alert "路径不能为空，请重新输入！"
exit function
end if
end function
function back()
history.back
end function
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -