输入输出界面当然也重用一个页面,并且数据的输出使用的是客户端的脚本,而不是给出具体的控件和变量名。
客户端的脚本通常看起来象这样
for each element in document.elements
select case element.type
case "checkbox"
'...
case "text"
'...
case else
end select
next
注意这段脚本中是通用脚本,没有出现任何控件的名字。
<%
'here, we must connect to database at first, then global variable "conn" will be used
call sub_connect_db()
'now we comes to the report header
call sub_report_header(request("action"),request("report_table"),request("id"))
%>
'连接数据库
call sub_connect_db()
'将查询内容放入两个数组,一个数组放置名字,另一个放置值,如果是null,值就是""
dim arr_value '数组,保存值,以'符号分割
dim arr_name '数组,保存变量名,以'符号分割
dim l_arr_count '数组长度
strSql="select * from "&report_table&" where id="&id
set rs=conn.execute(strSql)
if rs.eof or rs.bof then
l_arr_count=0
rs.close
set rs=nothing
else
'读入数据
for each myelem in rs.fields
'response.write myelem.name+" " 'debug
arr_name=arr_name+myelem.name+"'"
'response.write cstr(myelem.value)+" " 'debug
if isnull(myelem.value) then
arr_value=arr_value+"'"
else
arr_value=arr_value+cstr(myelem.value)+"'"
end if
next
l_arr_count=rs.fields.count
''去掉最左边地'符号
'arr_name=right(arr_name,len(arr_name)-1)
'arr_value=right(arr_value,len(arr_value)-1)
'response.write " arr_value="&arr_value 'debug
'response.write " arr_name="&arr_name 'debug
end if