📄 parameter_1.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">
<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,",")
if 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
	response.Write ("<p align='center'>系 统 参 数 设 置 （一）</p>")
	response.Write ("<table align='center'style='border-collapse: collapse' bordercolor='#111111' border='1' cellpadding='0' cellspacing='4'>")
	response.Write ("<tr bgcolor='#cecece'>")
	for i= 1 to ubound(c)
	response.Write ("<td width='120' align='center' nowrap>"&c(i)&"</td>")
	next
	response.Write ("</tr>")
	for j=0 to ubound(b,2)
	response.Write ("<tr style='cursor: hand' onclick=""self.location.href='parameter_2.asp?tb="& b(2,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
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -