<% '查寻数量 '查询表 '查询条件 '排序字段 '要显示的字段名 'html显示字段中间 '表格代码 'html循环开始代码 'html循环结束代码 '是否显示分隔字符 '表格结束代码 '连接开始代码 '连接参数代码 '连接参数对应的字段代码 '连接结束代码 '是否显示连接Sub x_get_news()Sub x_get_news(select_num,select_table,select_where,sort_field,show_field,html_split_str,html_start_table_code,html_start_code,html_end_code,y_n_split,html_end_table_code,start_href_code,href_url_code,href_field,end_href_code,href_y_n) Dim x_array,x_href_code_array,x_href_field_array x_array = Split(sh