📄 parameter_2.asp

📁 北京华信东方网络办公系统
💻 ASP
字号:
<%@ Language=VBScript %>
<!--#include file= "../dbase.asp"-->
<!--#include file= "parameter_function.asp"-->
<html>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
<style type="text/css">
<!--
.BtCH1 {	background-color: #99CCFF; border: 0px solid #99CCFF;}
}
-->
</style>
<link href="../mstyle.css" rel="stylesheet" type="text/css">

</head>
<body>
<%
if request("tb")="" then
tb="hxdf_parameter"
else
tb=request("tb")
end if
a=FieldArray(tb)
b=DataArray(a,tb)
c=split(a,",")
	response.Write ("<p align='center'>系 统 参 数 设 置 （二）</p>")
	response.Write ("<table align='center'style='border-collapse: collapse' bordercolor='#111111' border='1' cellpadding='1' cellspacing='0'>")
	response.Write ("<tr bgcolor='#cecece'>")
	response.Write ("<td width='100' style='display: none'></td>")
	for i= 1 to ubound(c)
	response.Write ("<td width='100' align='center' nowrap>"&c(i)&"</td>")
	next
	response.Write ("<td align='center' nowrap>管理</td>")
	response.Write ("</tr>")
	if not isnull(b) then
	for j=0 to ubound(b,2)
	response.Write ("<form method='post' name='form"&b(0,j)&"'>")
	response.Write ("<tr>")
	response.Write ("<td width='100' style='display: none'><input type='hidden' name='n_id' value='"&b(0,j)&"'></td>")
	for i= 1 to ubound(c)
	response.Write ("<td width='100'><input type='text' size='15' name='"&c(i)&"' value='"&b(i,j)&"'></td>")
	next
	response.Write ("<td align='center'><input type='button' value='改' "&_
		" onclick=""form"&b(0,j)&".action='parameter_deal.asp?DealWay=modify&Condition="&b(0,j)&"&TableName="&tb&"'; form"&b(0,j)&".submit();"">")
	response.Write ("<input type='button' value='删' onclick=""form"&b(0,j)&".action='parameter_deal.asp?DealWay=Delete&Condition="&b(0,j)&"&TableName="&tb&"'; form"&b(0,j)&".submit();""></td>")
	response.Write ("</tr></form>")	
	next
end if
	response.Write ("<form name='theform' method='post' action='parameter_deal.asp?DealWay=addnew&Condition=0&TableName="&tb&"'>")
	response.Write ("<tr>")
	response.Write ("<td width='100' style='display: none'><input type='hidden' name='n_id' value='0'></td>")
	for i= 1 to ubound(c)
	response.Write ("<td width='100'><input type='text' style='width: 100' name='"&c(i)&"'></td>")
	next
	response.Write ("<td align='center'><input type='submit' value='添'><input type='reset' value='清'></td>")
	response.Write ("</tr></table>")
	response.Write ("<div align='center'><input type='button' value=' 返 回 ' onclick='self.location.href=""parameter_1.asp""'></div></form>")
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -