📄 parameter_modify.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">
</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='4' cellspacing='0'>")
	response.Write ("<tr>")
	for i= 1 to ubound(c)
	response.Write ("<td width='120'>"&c(i)&"</td>")
	next
	response.Write ("</tr>")
	if not isnull(b) then
'	if DataDeal(a, "0,参数管理,hxdf_parameter", "hxdf_parameter", "addnew", "0") then
'	response.Redirect("parameter_left.asp")
'	else
'	response.Write ("err")
'	end if
'else

	for j=0 to ubound(b,2)
	response.Write ("<tr style='cursor: hand' onclick=""self.location.href='parameter_modify.asp?tb="& tb &"&Condition="& b(0,j) &"';"">")
	for i=1 to ubound(c)
	response.Write ("<td width='120'>"&b(i,j)&"</td>")
	next
	response.Write ("</tr>")
	next
	response.Write ("</table>")
end if
	response.Write ("<form name='theform' method='post' action='parameter_deal.asp?DealWay=addnew&Condition=0&TableName="&tb&"'>")
	response.Write ("<table align='center'><tr>")
	response.Write ("<td width='120' style='display: none'><input type='hidden' name='n_id' value='0'></td>")
	for i= 1 to ubound(c)
	response.Write ("<td width='120'><input type='text' style='width: 120' name='"&c(i)&"'></td>")
	next
	response.Write ("</tr></table>")
	response.Write ("<div align='center'><input type='submit' value=' 添 加 '><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 + -